Asp正则表达式结果列表

Question

strDeger1 = """ >" 
strDeger2 = "</a>" 
strBaslikBul = VeriBul(strDeger1, strDeger2) 
Response.Write strBaslikBul 
Response.Write "<hr>" 

Set RegEx = New RegExp 
RegEx.IgnoreCase = True 
RegEx.Global = True 
RegEx.Pattern = "(" & BaslangicDegeri & ")(.+?)(" & BitisDegeri & ")" 
Set Sonuc = RegEx.Execute(Trim(tr(Mid(HTTPObj2.GetURL,29600,254000)))) 
For Each i In Sonuc 
VeriBul = i.SubMatches(1) 
Next 


If IsEmpty(VeriBul) Then VeriBul = "Sonuc Yok" 
Set RegEx = Nothing 
Set Sonuc = Nothing 
Set objXmlHttp = Nothing 
End Function 

我有这样的代码，我试图列出所有的记录。但只是一个记录观看。

我该如何解决这个问题？

谢谢。

Answer 1

还需要为每个匹配连续。修改行 VeriBul = i.SubMatches(1)与VeriBul = VeriBul & i.SubMatches(1)