batman

还是vbs正则方便：

Dim vbstr, rgstr
vbstr = "xxx""abcx""xabc""1""xx""xxx""abc""2""abc""3abc3""xx""x"
Set regex = New RegExp
regex.Global = True
regex.IgnoreCase = True
regex.Pattern = ".*?abc\x22(.*?)\x22"
For Each match In regex.Execute(vbstr)
  rgstr = rgstr & match.Submatches(0)
next
Set regex = Nothing
MsgBox rgstr
复制代码

ps:这个正则可以想取哪段取哪段的，很方便。。。

batman

还是vbs:

Dim vbstr, rgstr
vbstr = "strxxx""abcx""xabc""1""xFFF""A""xxFFFx""xxx""abc""2""xxFFF""B""xxabc""3abc3""xx""x""FFF""C""xxxFFF"
Set regex = New RegExp
regex.Global = True
regex.IgnoreCase = True
regex.Pattern = ".*?abc\x22(.*?)\x22.*?fff\x22(.*?)\x22"
For Each match In regex.Execute(vbstr)
  rgstr = rgstr & match.Submatches(0) & Chr(9) & match.Submatches(1) & vbCrLf
next
Set regex = Nothing
MsgBox rgstr
复制代码