Question

vb如何验证特殊字符?

就是说一个字符串里只能包含中文,英文和数字
不能有"@%<"之类的符号.
要怎么做?

Answer 1

如果 是一个字符串可以这样判断

Dim iStr As String

iStr = "你的字符%串..."

Dim i As Long
Dim s As String
Dim a As String

s = "@%<" ' 这里放你需要的所有非法符号

For i = 1 To Len(s)
a = Mid(s, i, 1)
If InStr(iStr, a) > 0 Then
'字符串含有非法字符
Debug.Print "字符串含有非法字符:"; a
Exit For
Else

End If

Next
If i > Len(s) Then
'字符串没有非法字符
Debug.Print "字符串没有非法字符"
End If

如果在 Text 输入的时候做判断...可以用下面的例子

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String
iStr = Chr(KeyAscii)
Dim i As Long
Dim s As String
Dim a As String
s = "@%<" ' 这里放你需要的所有非法符号
If InStr(s, iStr) > 0 Then
'输入非法字符
MsgBox "输入非法字符:" & iStr
Else
'输入字符正确
End If
End Sub

Answer 2

设这个字符串为Str1
If InStr(1, Str1, "@", vbTextCompare) <> 0 Or InStr(1, Str1, "%", vbTextCompare) <> 0 Then '像这样用Or连接下去
'弹出错误
Else
'格式正确的处理
End If

Answer 3

字符串是哪来的呢？
应该从来源着手，
比如是在文本框里得到的，就不要给文本框输入无关的字符
因为在文本框里就可以很简单的得到你的要求

Answer 4

用正则表达式判断