c00p3r
14.07.2008, 18:56
Ihr habt einen WebBrowser und möchtet den Quelltext eines speziellen Frames auslesen um dann im Quelltext nach einem bestimmten String zu suchen.
Beispiel:
frame: main
string: "alle 6 stelligen zahlen welche nach vxxxxxex kommt"
-> dann kommt zB vabcdee=123456
' Lesen des Quelltextes des Frames Main
Dim sQuelltext As String
On Error GoTo err
With WebBrowser1.Document.Window.Frames("Main")
sQuelltext = .Document.Body.InnerHtml.ToString
End With
setze "Filter" -> es muss ein v dann 5 beliebige Zeichen und dann e kommen dan ein beliebiges Zeichen und dann eine 6 stellige Zahl
Dim p As String = "[v].....[e].\d{6}"
Dim re As New System.Text.RegularExpressions.Regex(p)
For Each m As System.Text.RegularExpressions.Match In re.Matches(sInput)
' splitten von z.B. vabcdee=123456 in 123456
variabel = m.Value.Substring(8)
Next
err:
Beispiel:
frame: main
string: "alle 6 stelligen zahlen welche nach vxxxxxex kommt"
-> dann kommt zB vabcdee=123456
' Lesen des Quelltextes des Frames Main
Dim sQuelltext As String
On Error GoTo err
With WebBrowser1.Document.Window.Frames("Main")
sQuelltext = .Document.Body.InnerHtml.ToString
End With
setze "Filter" -> es muss ein v dann 5 beliebige Zeichen und dann e kommen dan ein beliebiges Zeichen und dann eine 6 stellige Zahl
Dim p As String = "[v].....[e].\d{6}"
Dim re As New System.Text.RegularExpressions.Regex(p)
For Each m As System.Text.RegularExpressions.Match In re.Matches(sInput)
' splitten von z.B. vabcdee=123456 in 123456
variabel = m.Value.Substring(8)
Next
err: