UC知道关于vb中match的一段代码，急，在线等
来源：百度知道 编辑：UC知道 时间：2024/05/15 20:16:52
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tb As String = TextBox2.Text
Dim searchString As String = TextBox3.Text
Dim count As Integer = 0
Dim r As Regex = New Regex(searchString, RegexOptions.IgnoreCase)
Dim m As Match = r.Match(Text)
Do While m.Success
count = count + 1
m = m.NextMatch()
Loop
MessageBox.Show(count.ToString)
End Sub
这段代码有什么问题吗？
为什么显示出来的结果总是0
Dim tb As String = TextBox2.Text
Dim searchString As String = TextBox3.Text
Dim count As Integer = 0
Dim r As Regex = New Regex(searchString, RegexOptions.IgnoreCase)
Dim m As Match = r.Match(Text)
Do While m.Success
count = count + 1
m = m.NextMatch()
Loop
MessageBox.Show(count.ToString)
End Sub
这段代码有什么问题吗？
为什么显示出来的结果总是0
Do While m.Success 应该是你的循环没有执行
你的m.success是哪里定义的？
这是VB的语句吗？好多地方不符VB合语法啊
是 VB 语句，不过是 .NET 的，可惜不懂