Function VeriBul(BaslangicDegeri,BitisDegeri)
Set RegEx = New RegExp
RegEx.IgnoreCase = True
RegEx.Global = True
RegEx.Pattern = "(" & BaslangicDegeri & ")(.+?)(" & BitisDegeri & ")"
Set Sonuc = RegEx.Execute(Mid(strRetval,29600,254000))
For Each i in Sonuc
VeriBul = VeriBul & tr2(i.SubMatches(1))
Set RegEx2 = New RegExp
RegEx2.IgnoreCase = True
RegEx2.Global = True
RegEx2.Pattern = "(<hemenalfiyat>)(.+?)(</hemenalfiyat>)"
Set Sonucx = RegEx2.Execute(Mid(strRetval,33000,2000))
For Each y in Sonucx
VeriBul2 = VeriBul2 & tr2(y.SubMatches(1))
Next
When it works then appering error
Next
================================================== ====
For Each i in Sonuc
i.SubMatches(1)
For Each y in Sonucx
y.SubMatches(1)
Next
Next
Submatches コードを除いてこれを印刷するにはどうすればよいですか? そのような2つの正規表現コード(したがって、Regex2として使用されます)があり、サブマッチに再び使用できないためです。
ありがとう、