如何简单判断某一字符串中只有字母、数字？
最简单越好 问题点数：20、回复次数：5Top
1 楼lxcc（）回复于 2003-12-02 16:15:41 得分 2
逐个判断ASCII值，是否在48-57，65-90，97-122之内！Top
2 楼hansong_ll（老六）回复于 2003-12-02 16:20:42 得分 2
判断是否为数字：IsNumeric()Top
3 楼lxcc（）回复于 2003-12-02 16:26:41 得分 5
Private Sub Command1_Click()
Dim strTemp As String
strTemp = "aslkdjalksj32334j23j"
Dim i As Integer
For i = 1 To Len(strTemp)
If IsCommonChar(Mid(strTemp, i, 1)) = False Then
MsgBox "有非字母或数字的字符"
Exit Sub
End If
Next
MsgBox "没有非字母或数字的字符"
strTemp = "aslkdja@￥#！￥lksj32334j23j"
For i = 1 To Len(strTemp)
If IsCommonChar(Mid(strTemp, i, 1)) = False Then
MsgBox "有非字母或数字的字符"
Exit Sub
End If
Next
MsgBox "没有非字母或数字的字符"
End Sub
Private Function IsCommonChar(strChar As String) As Boolean
If (Asc(strChar) >= 48 And Asc(strChar) <= 57) _
Or (Asc(strChar) >= 65 And Asc(strChar) <= 90) _
Or (Asc(strChar) >= 97 And Asc(strChar) <= 122) Then
IsCommonChar = True
Else
IsCommonChar = False
End If
End Function
Top
4 楼northwolves（狼行天下）回复于 2003-12-02 16:48:05 得分 11
Private Sub Command1_Click()
MsgBox ZIMUSHUZIONLY("123DFGD#SGG")
End Sub
Function ZIMUSHUZIONLY(ByVal X As String) As Boolean
ZIMUSHUZIONLY = False
For I = 0 To 9
X = Replace(X, I, "")
Next
For I = 1 To 26
X = Replace(X, Chr(64 + I), "")
X = Replace(X, Chr(96 + I), "")
Next
If X = "" Then ZIMUSHUZIONLY = True
End FunctionTop
5 楼fense2002（）回复于 2003-12-03 08:40:05 得分 0
谢谢Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
