VB.net - Iteracija kroz Regex matchesTrebao bi da za svaki match od dvije capturing groups da obe vrednosti stavim u stringove i prosledim ih drugoj funkciji na obradu.
Problem je sto ne znam kako da kada u ovom kodu dobijem taj MatchResult, kako iz njega da izvadim vrijednost prve i druge capturing grupe
u odvojen string.
Moze neka pomoc?
Code (vbnet):
Try
Dim RegexObj As New Regex("<p>username:([a-z0-9-])*.*?Password:([a-z0-9])*</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase)
Dim MatchResults As Match = RegexObj.Match(SubjectString)
While MatchResults.Success
Dim i As Integer
For i = 1 To MatchResults.Groups.Count
Dim GroupObj As Group = MatchResults.Groups(i)
If GroupObj.Success Then
' matched text: GroupObj.Value
' match start: GroupObj.Index
' match length: GroupObj.Length
End If
Next
MatchResults = MatchResults.NextMatch()
End While
Catch ex As ArgumentException
MsgBox(ex.ToString())
End Try
Try
Dim RegexObj As New Regex("<p>username:([a-z0-9-])*.*?Password:([a-z0-9])*</p>", RegexOptions.Singleline Or RegexOptions.IgnoreCase)
Dim MatchResults As Match = RegexObj.Match(SubjectString)
While MatchResults.Success
Dim i As Integer
For i = 1 To MatchResults.Groups.Count
Dim GroupObj As Group = MatchResults.Groups(i)
If GroupObj.Success Then
' matched text: GroupObj.Value
' match start: GroupObj.Index
' match length: GroupObj.Length
End If
Next
MatchResults = MatchResults.NextMatch()
End While
Catch ex As ArgumentException
MsgBox(ex.ToString())
End Try
p.s. Veci dio programiranja radim u PHP-u ali evo trenutno mi je zatrebao VB.net a posto nisam bas na ti sa njime svaka pomoc bi mi dobro dosla :)
