帮忙看一下

[lk_cool]

这段小函数是过滤掉text中的非数值字符

可是有错误

例如:12354a就可以通过检测！

为什么？

Function Checknum(Strc As String) As Integer

Dim I，J As Integer
Dim Tstr As String

I = Len(Strc)

For J = 1 To I

Tstr = Mid(Strc, J, 1)

J = J + 1

If Asc(Tstr) >= 48 Then

If Asc(Tstr) <= 57 Then
Checknum = 1
Else
Checknum = 2
Exit Function
End If

Else

Checknum = 2
Exit Function
End If

Next

End Function

[ahbbnimor]

Function Checknum(Strc As String) As boolean
Dim I，J As Integer
Dim Tstr As String
I = Len(Strc)

For J = 1 To I

Tstr = Mid(Strc, J, 1)
if asc(Tstr)>=58 or asc(Tstr)<=47 then
msgbox "有非数字字符",vbokonly,"error"
Checknum=false
exit function
end if
next J

Checknum=true

End Function

[ahbbnimor]

上面我只是判断有没有非数字字符.有的话函数返回值为false,否则为true.你可以根据你自己的需要再改.

[ahbbnimor]

如果你想要把非数字字符去掉而只保留数字的话,那这样写


Function Checknum(Strc As String) As string
Dim I，J As Integer

Dim Tstr,re As String
I = Len(Strc)
re=""
For J = 1 To I

Tstr = Mid(Strc, J, 1)
if asc(Tstr)<=58 and asc(Tstr)>=47 then
re=re & Tstr
end if

next J

Checknum=re

End Function

[lk_cool]

thanks!