none
字符查找问题 RRS feed

  • 问题

  •  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??

    2012年2月17日 1:23

答案

全部回复

  • 我写到了控制台内,请自行修改:

    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(sregMatch)
                Dim t As String = ms.Value
                Console.WriteLine(t.Substring(t.IndexOf("X") + 1))
            Next
        End Sub
    End Module


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

    2012年2月17日 5:38
    版主
  • 我写到了控制台内,请自行修改:

    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(sregMatch)
                Dim t As String = ms.Value
                Console.WriteLine(t.Substring(t.IndexOf("X") + 1))
            Next
        End Sub
    End Module


       QQ我:讨论(Talk)
    下载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)。。最后一个无法获取。。

    2012年2月17日 6:03
    • 已标记为答案 ckjason 2012年2月17日 7:06
    2012年2月17日 6:04
    版主