Asp regexp结果列表 strDeger1=“”>” strDeger2=“” strBSLIKBUL=VeriBul（strDeger1，strDeger2） 响应。写入strbslikbul 回答。写“” Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.Global=True RegEx.Pattern=“（“&BaslangicDegeri&”）（.+？）（“&BitisDegeri&”） 设置Sonuc=RegEx.Execute（Trim（tr（Mid（HTTPObj2.GetURL，29600254000））） 对于我在索努克的每一个人 VeriBul=i.子匹配（1） 下一个 如果是空的（VeriBul），则VeriBul=“Sonuc Yok” Set RegEx=Nothing 设置Sonuc=无 设置objXmlHttp=Nothing 端函数

我喜欢这段代码，我正在尝试列出所有记录。但这只是一个记录查看

我怎样才能解决这个问题

---

谢谢。

每一场比赛都需要参加。修改行

VeriBul=i.SubMatches（1）

with

VeriBul=VeriBul&i.SubMatches（1）

 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