28,391
社区成员
发帖
与我相关
我的任务
分享
a = "<a class=""srPatentName"" id='patentID=DDD-2454'></a>" & vbcrlf
a = a & "<a class=""srPatentName"" id='patentID=ASSS-4444'></a>"
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "patentID=([^']*)"
Set myMatches = myRegExp.Execute(a)
For Each myMatch in myMatches
response.write myMatch.Value
Next
(?<=(id='))[^']+(?=('))
(?<=(id='))[^']+(?!('))