regex - 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

私はこのコードが好きで、すべてのレコードをリストにしようとしています。しかし、レコード視聴の1つだけです。

どうすればこれを修正できますか?

ありがとう。

Answer 1

また、一致ごとに連結する必要があります。行 VeriBul = i.SubMatches(1)を変更するVeriBul = VeriBul & i.SubMatches(1)