16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System.Text.RegularExpressions
Dim test As String = "你的测试文本"
Dim mc As MatchCollection = Regex.Matches(test, ".*8.*", RegexOptions.Multiline) '找含8的行
For Each m As Match In mc
Debug.Print(m.Value)
Next