Asp regexp结果列表

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)

。{