如何找出一个字符串中由8位以上数字组成的子串？

[ynduanlian]

听说用正则表达式可以，但不知怎么用？

[wuyq11]

^(?!\D+$).{8,15}$

[xiongying18]

Imports System.Text.RegularExpressions

    Private Sub aaaaaaaa()
        Dim Str_TXT As String = "a1234567899asdf147852369632easdf5852adf85569999999999999999999999999afas5555555555555989"
        Dim r As Regex
        Dim m As Match
        r = New Regex("(\d{9,})", IgnoreCase Or Compiled)
        m = r.Match(Str_TXT)
        While m.Success
            MessageBox.Show(m.Groups(1).Value, "注意")
            m = m.NextMatch()
        End While
    End Sub