字符查找问题

Question

 Dim regMatch As String
        regMatch = "ML5X(\d+)\s+ML10X(\d+)\s+ML50X(\d+)\s+ML100X(\d+)\s+"

        For Each ms As Match In Regex.Matches(TextBox2.Text, regMatch)

            Dim s As String = ms.Value

            TextBox1.Text &= (s.Substring(s.IndexOf("ML") + 4) & vbCrLf)  //这部分要怎样改？
          Next

TEXT CONTENT:

ML5X1   ML10X2    ML50X3    ML100X4

要如何删除ML5X,ML10X,ML50X,ML100X......最终结果是1  2 3 4？？

Answer 1

我写到了控制台内，请自行修改：

Module A
    Public Sub main()
        Dim s As String = "ML5X1   ML10X2    ML50X3    ML100X4"
       Dim regMatch As String
        regMatch = "ML(\d+)X(\d+\s+)"
        For Each ms As Match In Regex.Matches(s, regMatch)
            Dim t As String = ms.Value
            Console.WriteLine(t.Substring(t.IndexOf("X") + 1))
        Next
    End Sub
End Module

---

   QQ我：
下载MSDN桌面工具(Vista,Win7)
我的博客园
慈善点击，点击此处

Answer 2

我写到了控制台内，请自行修改：

Module A
    Public Sub main()
        Dim s As String = "ML5X1   ML10X2    ML50X3    ML100X4"
       Dim regMatch As String
        regMatch = "ML(\d+)X(\d+\s+)"
        For Each ms As Match In Regex.Matches(s, regMatch)
            Dim t As String = ms.Value
            Console.WriteLine(t.Substring(t.IndexOf("X") + 1))
        Next
    End Sub
End Module

---

   QQ我：
下载MSDN桌面工具(Vista,Win7)
我的博客园
慈善点击，点击此处

 Sub Main()
        Dim s As String = "ML5X1   ML10X2    ML50X3    ML100X4"
        Dim regMatch As String
        regMatch = "ML(\d+)X(\d+\s+)"
        For Each ms As Match In Regex.Matches(s, regMatch)
            Dim t As String = ms.Value
            Console.Write(t.Substring(t.IndexOf("X") + 1))
        Next
        Console.ReadKey()
    End Sub

只能获取3个数字（1,2,3）。。最后一个无法获取。。

Answer 3

regMatch = "ML(\d+)X(\d+\s{0,})"

---

   QQ我：
下载MSDN桌面工具(Vista,Win7)
我的博客园
慈善点击，点击此处