＋设为首页 ＋添加到收藏夹
有字符串1de5,5dd/ses.see!
逐个的取出字符串中的每一位，怎么来判断这一位是字符还是符号。我需要的是一个函数，最好是vb自己的函数
for i=1 to len(strdata)
if asc(mid(strdata,i,1))>asc("a") and asc(mid(strdata,i,1))>asc("z") or asc(mid(strdata,i,1))>asc("A") and asc(mid(strdata,i,1))>asc("Z") or asc(mid(strdata,i,1))>asc("0") and asc(mid(strdata,i,1))>asc("9") then
数字和字母
else
符号
endif
next i
符号和字符有区别吗？？
楼上的同志不用怎么复杂吧
用IsNumeric判断是不是数字，否则就是字符了
有。
vba.IsNumeric
工程->引用
Microsoft VbScript Regular Expression
Private Function IsStr(str As String):Boolean
On Error Goto ErrHandler
Dim Reg As New RegExp
Reg.Global=True
Reg.IgnoreCase=True
Reg.Pattern="^[0-9a-zA-Z]*$" 是否由字母數字組成
IsStr=Reg.Test(str)
Set Reg=Nothing
ErrHandler:
If Err Then
IsStr=False
End If
End Function
調用
IsStr("asdf")
IsStr("asdf_as!")
