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)