vb.net判断特殊字符 vb字符串判断

vb如何验证特殊字符?

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

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

相关问答

Q1: VB.Net如何利用“文本中是否包含某字符串”作为判断条件应该用什么函数？

有一个字符串函数vb.net判断特殊字符：Instr(n,S1,S2)

该函数vb.net判断特殊字符的功能vb.net判断特殊字符：从字符串S1的左起第N位开始vb.net判断特殊字符，向右逐位进行搜索匹配字符串S2，如果找到匹配，就返回一个整数指明匹配的位置，否则就返回0。如果缺省n，就是默认从字符串S1的左起第1位开始，进行搜索匹配字符串S2。

例如1：Instr(1,"abcde","a")，返回1

例如2：Instr(3,"abcde","a")，返回0

例如3：Instr(1,"abcde","c")，返回3

例如4：Instr(1,"abcde","cde")，返回3

例如5：Instr(4,"ab12cd12e12","12")，返回7，这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12"，找到的是中间一个“12”，这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。

而：Instr(1,"ab12cd12e12","12")，返回3

Instr("ab12cd12e12","12")，返回3

Q2: VB.net如何检查TextBox中特定的字符？

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

abc(TextBox1.Text)

End Sub

Private Function abc(ByVal s As String) As Boolean

If s.Length = 0 Or InStr(s, " ") = 0 Then abc = False : Exit Function

Dim r As String = ""

If s.Substring(0, 1) = "/" Then r = s.Substring(1, InStr(s, " ") - 2)

Dim t As String = IO.File.ReadAllText("地址", System.Text.Encoding.Default)

Return CBool(InStr(t, r))

End Function

vb.net判断特殊字符的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb字符串判断、vb.net判断特殊字符的信息别忘了在本站进行查找喔。