Imports System.Text.RegularExpressions
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
regtest()
End Sub
Public Function regtest()
Dim re As New Regex("data-win-number='[\d]+")
Dim math As RegularExpressions.Match
For Each math In regtest.Matches(TextBox1.Text)
Debug.Print(math.Value)
Next
End Function
End Class

谢谢 已经解决