老刘1号

'&wscript  -nologo -e:vbscript "%~0"
text=_
"寒蝉凄13切，对长亭晚，13311111111骤雨初歇。"&vbcrlf&_
"都门帐饮无绪，留恋处舟催发。执手相看[color=Red]1355555"&vbcrlf&_
"7777[/color]泪眼，竟无语凝噎。念15去135去千里烟波，"&vbcrlf&_
"暮霭沉1314沉楚天阔。  多情自古12580伤离别，"&vbcrlf&_
"更那堪冷落清秋节。今宵酒醒何处?136杨柳岸晓风10010残月。"&vbcrlf&_
"1372222此444去经年，应是良辰好景虚设。"&vbcrlf&_
"便纵10086有千种风情，更与何人说? 13788889999"

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' 建立变量。
   Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = patrn   ' 设置模式。
   regEx.Global = True   ' 设置全局可用性。
   regEx.IgnoreCase = True   ' 设置是否区分字符大小写。
   Set Matches = regEx.Execute(strng)   ' 执行搜索。
   For Each Match in Matches   ' 遍历匹配集合。
      RetStr = RetStr & Match.Value& vbCRLF
   Next
   RegExpTest = RetStr
End Function
                        MsgBox(RegExpTest("1\d{10}", text))
复制代码

保存为CMD、BAT、VBS、VBE随意