参考代码
Dim str As String = "2017-11-30进行中订单号:222017113080215 买方:重庆市第三人民医院订单金额: 920,428.48 元"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{4}-[0-9]+-[0-9]+")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{15,}")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9,. ]+(?=元)")
msgbox(mc(0).value)
参考例子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108619&skin=0
[此贴子已经被作者于2017/12/14 10:37:17编辑过]