Set Matches = Reg.Execute(str)
For Each Match in Matches
Set r = New RegExp
r.ignoreCase = true
r.Pattern = "<div></div>"
str2 = r.replace(Match.Value,"$1")
RetStr = RetStr & str2 &","
Next
For Each Match in Matches
Set r = New RegExp
r.ignoreCase = true
r.Pattern = "<div></div>"
str2 = r.replace(Match.Value,"$1")
RetStr = RetStr & str2 &","
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货