'Str为要处理的数据
Dim Reg, reMatches
Set Reg = New RegExp
Reg.Pattern = "(距离[\s\S]+?) ([0-9\.]+公里)"
Reg.Global = True
Set reMatches = Reg.Execute(Str)
For Each reMatch In reMatches
Response.Write("字符串1：" & reMatch.subMatches(0))
Response.Write("字符串2：" & reMatch.subMatches(1))
Next
Set reMatches = Nothing
Set Reg = Nothing
这么个思路：
1，先匹配出字符串2，正则部分："\d{1,}(\.\d{1,})?公里"
2，使用匹配出的字符串2做为分隔符，split 取数组0，保存到字符串1
得到结果，字符串1和字符串2.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024