VB.net如何检查TextBox中特定的字符?
请问如何检查TextBox中是否含有特定的字符并与一个存在文件比较?假设现在有textbox1和io.txt,当textbox1首字符为/时,记录后面的字符直到遇到空格,...
请问如何检查TextBox中是否含有特定的字符并与一个存在文件比较?
假设现在有textbox1和io.txt,当textbox1首字符为/时,记录后面的字符直到遇到空格,然后与io.txt中所有的字符进行比较,如果其中包含记 录的字符则返回1,否则返回0。
请教大神帮我一下,谢谢! 展开
假设现在有textbox1和io.txt,当textbox1首字符为/时,记录后面的字符直到遇到空格,然后与io.txt中所有的字符进行比较,如果其中包含记 录的字符则返回1,否则返回0。
请教大神帮我一下,谢谢! 展开
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询