【按键精灵】判断是否全是英文
dim str = "azAZ09"TracePrint 判断是否全英文(str)
Function 判断是否全英文(str)
Dim i,tmp
For i = 1 To Len(str)
tmp = Mid(str, i, 1)
tmp= asc(tmp)
If tmp > 122 or tmp < 65 or (tmp > 90 and tmp < 97) Then
TracePrint tmp
判断是否全英文 = False
exit Function
End If
Next
判断是否全英文 = True
End Function
页:
[1]