如何简单判断某一字符串中只有字母、数字?

fense2002 2003-12-02 03:57:38
最简单越好
...全文
145 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
fense2002 2003-12-03
  • 打赏
  • 举报
回复
谢谢
northwolves 2003-12-02
  • 打赏
  • 举报
回复
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 Function
lxcc 2003-12-02
  • 打赏
  • 举报
回复
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
hansong_ll 2003-12-02
  • 打赏
  • 举报
回复
判断是否为数字:IsNumeric()
lxcc 2003-12-02
  • 打赏
  • 举报
回复
逐个判断ASCII值,是否在48-57,65-90,97-122之内!

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧