189 8069 5689
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:
instr()函数可以直接判断。
vb.net可以用
string.intertext来判断。
就一个函数，不存在什么代码问题。
如果 是一个字符串可以这样判断
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
有一个字符串函数：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