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

你这个写法好奇怪。。一般都写\d+ 而不会使用只有一个元素的字符组。。

\d匹配数字啊没匹配到当然返回nothing，你怎么遍历

还有空格也得注意

谢谢 已经解决