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

vb如何验证特殊字符?如果 是一个字符串可以这样判断
Dim iStrAs String
iStr = "你的字符%串..."
Dim iAs Long
Dim sAs String
Dim aAs 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 iLen(s) Then
'字符串没有非法字符
Debug.Print "字符串没有非法字符"
End If
如果在 Text 输入的时候做判断...可以用下面的例子
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String
iStr = Chr(KeyAscii)
Dim iAs Long
Dim sAs String
Dim aAs String
s = "@%" ' 这里放你需要的所有非法符号
If InStr(s, iStr)0 Then
'输入非法字符
MsgBox "输入非法字符:"iStr
Else
'输入字符正确
End If
End Sub
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
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判断特殊字符的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb字符串判断、vb.net判断特殊字符的信息别忘了在本站进行查找喔 。

    推荐阅读