vb.net判断特殊字符 vb判断一个字符串有无汉字

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

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

创新互联专注为客户提供全方位的互联网综合服务，包含不限于做网站、网站建设、宾阳网络推广、微信小程序、宾阳网络营销、宾阳企业策划、宾阳品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供宾阳建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

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 判断某字符串是否存在

vb:

instr()函数可以直接判断。

vb.net可以用

string.intertext来判断。

就一个函数，不存在什么代码问题。

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

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

有一个字符串函数：Instr(n,S1,S2)

该函数的功能：从字符串S1的左起第N位开始，向右逐位进行搜索匹配字符串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判断特殊字符 vb判断一个字符串有无汉字
URL分享：http://6mz.cn/article/dohopsp.html