vb.net 字符串函数问题

[soft20111]

Dim str1 As String = "222223456444"

这里用什么net函数来直接读取str1中的前22222串联字符串呢。


有没有net自带的函数呢

[bdmh]

没有，自己写

[老毕]

如果是取出某个字符串中，以2开头的、由若干个2组成的串，请用正则表达式。

[q107770540]

Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object

    strData = "222223456444"

    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "(\d)\1\1\1\1"
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        'Debug.Print match.Value
        Debug.Print match.SubMatches(0)
    Next
End Sub