Quelltext korrekt und schnell auslesen

schnibli · 22. Dezember 2012, 11:50

Guten Tag,

Ich würde gerne aus einem Quelltext der wie unten aufgebaut ist, alle rot gekenzeichneten sachen auslesen... am besten in ein dgv oder listview

<tr><td class="normalText">12/18/2012</td><td class="normalText"> 16:13</td><td class="normalText"> 0:44</td><td class="normalText"></td><td class="normalText">&#52&#49&#52&#52&#53&#49&#53&#54&#53&#57&#55&#64&#112&#114&#111&#50&#46&#118&#111&#105&#112&#103&#97&#116&#101&#119&#97&#121&#46&#111&#114&#103</td><td class="normalText"><a href="index.htm?indexdial=1;type=d">&#48&#52&#49&#57&#50&#54&#51&#48&#48&#48</a><a href="adr.htm?nameadd=0415555555&outgoing=4155555555@pro2.voipgateway.org"><img src="img/edit.gif" width="19" height="12" border="0" alt="edit"></a><td class="form" align="center"><a href="index.htm?dialeddel=1"><img src="img/delete.gif" width="12" height="12" border="0" alt="delete"></a></td>
</td></tr>
<tr><td class="normalText">12/18/2012</td><td class="normalText"> 07:52</td><td class="normalText"> 5:43</td><td class="normalText"></td><td class="normalText">&#52&#49&#52&#52&#53&#49&#53&#54&#53&#57&#55&#64&#112&#114&#111&#50&#46&#118&#111&#105&#112&#103&#97&#116&#101&#119&#97&#121&#46&#111&#114&#103</td><td class="normalText"><a href="index.htm?indexdial=2;type=d">&#48&#56&#52&#56&#55&#49&#49&#55&#49&#49</a><a href="adr.htm?nameadd=555555555&outgoing=0444444444@pro2.voipgateway.org"><img src="img/edit.gif" width="19" height="12" border="0" alt="edit"></a><td class="form" align="center"><a href="index.htm?dialeddel=2"><img src="img/delete.gif" width="12" height="12" border="0" alt="delete"></a></td>
</td></tr>
<tr><td class="normalText">12/13/2012</td><td class="normalText"> 10:02</td><td class="normalText"> 0:33</td><td class="normalText"></td><td class="normalText">&#52&#49&#52&#52&#53&#49&#53&#54&#53&#57&#55&#64&#112&#114&#111&#50&#46&#118&#111&#105&#112&#103&#97&#116&#101&#119&#97&#121&#46&#111&#114&#103</td><td class="normalText"><a href="index.htm?indexdial=3;type=d">&#48&#55&#57&#52&#48&#53&#56&#50&#52&#48</a><a href="adr.htm?nameadd=55555555&outgoing=4144555555@pro2.voipgateway.org"><img src="img/edit.gif" width="19" height="12" border="0" alt="edit"></a><td class="form" align="center"><a href="index.htm?dialeddel=3"><img src="img/delete.gif" width="12" height="12" border="0" alt="delete"></a></td>
</td></tr>

Jedoch weis ich nicht wie ich das anstellen sollte

Danke für eure Hilfe

rotherford · 22. Dezember 2012, 11:58

Hi,
Zuerst benutze mal einen Code-Tag.

Zum Problem:
Die meisten lösen so etwas mit Regex (Regular Expressions).
[VB 2008] RegEx Tutorial - Blutige Anfänger und Fortgeschrittene

Alternativ:
olussier.net/2010/03/30/easily…html-documents-in-csharp/

Lg

vbExtremeFan · 27. Dezember 2012, 03:13

Mittag,

VB.NET-Quellcode

'dein quelltext
Dim new_quell As String
new_quell = new_quell.Replace(System.Convert.ToChar(34), System.Convert.ToChar(39)Dim list3 As New List(Of String)
Dim patt3 As String = "[code]<td>(?<group1>.*?)</td>

"
Dim str3 As String = new_quell
For Each match3 As Match In Regex.Matches(str3, patt3)
list3.Add(match3.Groups("group3").Value)'
MessageBox.Show(match3.Groups("group3").Value)
Next[/code]

in der liste3 steht nun alles was zwichen <td> und </td steht, dann müsstest du schauen ob items in der liste dem Format entsprechen xx:xx und ob das aus zahlen besteht für die anderen Sachen die du rausholen willst.
ggf. nochmal das obrige verwedenden

MfG

schnibli · 27. Dezember 2012, 11:41

Hallo,

Danke für deine Mühe...

Aber ich komm nicht ganz klar.... hab das ganze mal so angepasst:

VB.NET-Quellcode

Dim new_quell As String
new_quell = WebBrowser1.DocumentText
new_quell = new_quell.Replace(System.Convert.ToChar(34), System.Convert.ToChar(39))
Dim list3 As New List(Of String)
Dim patt3 As String = "[code]<td>(?<group1>.*?)</td>

"
Dim str3 As String = new_quell
For Each match3 As Match In Regex.Matches(str3, patt3)
list3.Add(match3.Groups("group3").Value) '
MessageBox.Show(match3.Groups("group3").Value)

Next
End Sub[/code]

jedoch wird mir nichts angezeigt

markus.obi · 27. Dezember 2012, 23:56

Das kann auch nicht funktionieren, weil [ code ] oder [ /code ] nicht im quellcode vorkommen. Statt group3 musst du natürlich group1 schreiben.
Les dir mal das Tutorial aus Post #2 durch.

Versuchs mal damit:

VB.NET-Quellcode

Dim quell As String = 'Quelltext
quell = quell.Replace(vbNewLine, "")
For Each match1 As Match In Regex.Matches(quell, "<tr>(?<group1>.*?)</tr>")
Dim blub As New List(Of String)
For Each match2 As Match In Regex.Matches(match1.Groups("group1").Value, "<td.*?>(?<group2>.*?)</td>")
blub.Add(match2.Groups("group2").Value)
Next
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>\d+)&outgoing=(?<outgoing>\d+)")
Debug.WriteLine(match3.Groups("nameadd").Value)
Debug.WriteLine(match3.Groups("outgoing").Value)
Debug.WriteLine(blub.Item(0))
Debug.WriteLine(blub.Item(1))
Debug.WriteLine(blub.Item(2))
Next

schnibli · 28. Dezember 2012, 12:11

Hallo, ich habe mich mal das in Post2 gelesen, jedoch komme ich nicht auf mein resultat.

Momentan habe ich den fehler:

VB.NET-Quellcode

Der Index lag außerhalb des Bereichs. Er muss nicht negativ und kleiner als die Auflistung sein.
Parametername: index

Und dies wird leider nicht erklärt... das heist soviel ich weis ist der Index nicht negativ etc... :s

markus.obi · 28. Dezember 2012, 12:26

Der Fehler steht doch da! Du der Index ist außerhalb des Bereichs! Du versuchst auf ein Element zuzugreifen, das nicht existiert.
In Visual Studio kannst du mit der Maus über die entsprechende Auflistung fahren und den Inhalt anschauen. (Während der Laufzeit im Debugmodus!)
Dazu entweder Haltepunkt machen oder einfach dann wenn die Exception fliegt.

Ohne deinen Quellcode zu wissen können wir dir nicht helfen...

schnibli · 28. Dezember 2012, 12:33

Hallo,

Mein Code:

VB.NET-Quellcode

Dim quell As String = WebBrowser1.DocumentText
quell = quell.Replace(vbNewLine, "")
For Each match1 As Match In Regex.Matches(quell, "<tr>(?<group1>.*?)</tr>")
Dim blub As New List(Of String)
For Each match2 As Match In Regex.Matches(match1.Groups("group1").Value, "<td.*?>(?<group2>.*?)</td>")
blub.Add(match2.Groups("group1").Value)
Next
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>)&outgoing=(?<outgoing>)")
Debug.WriteLine(match3.Groups("nameadd").Value)
Debug.WriteLine(match3.Groups("outgoing").Value)
Debug.WriteLine(blub.Item(0))
Debug.WriteLine(blub.Item(1))
Debug.WriteLine(blub.Item(2))
Next

Jedoch bin ich nicht so versiert mit fehlern, da ich diese gerne meide

markus.obi · 28. Dezember 2012, 15:03

Ich hau dir nen Copy-Paste Code hin, du veränderst ihn (scheinbar ohne Ahnung von Regex) und wunderst dich, dass es nicht mehr geht...
Lern Regex!

schnibli · 28. Dezember 2012, 15:46

VB.NET-Quellcode

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Url = New Uri("http://192.168.61.41")
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim quell As String = WebBrowser1.DocumentText
quell = quell.Replace(vbNewLine, "")
For Each match1 As Match In Regex.Matches(quell, "<tr>(?<group1>.*?)</tr>")
Dim blub As New List(Of String)
For Each match2 As Match In Regex.Matches(match1.Groups("group1").Value, "<td.*?>(?<group2>.*?)</td>")
blub.Add(match2.Groups("group2").Value)
Next
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>\d+)&outgoing=(?<outgoing>\d+)")
Debug.WriteLine(match3.Groups("nameadd").Value)
Debug.WriteLine(match3.Groups("outgoing").Value)
Debug.WriteLine(blub.Item(0))
Debug.WriteLine(blub.Item(1))
Debug.WriteLine(blub.Item(2))
Next
End Sub
End Class

Dies ist mein ganzer code, das einzige was ich geändert habe ist

VB.NET-Quellcode

WebBrowser1.Url = New Uri("http://192.168.61.41")

und

VB.NET-Quellcode

Dim quell As String = WebBrowser1.DocumentText

und es erscheint der selbe fehler.

Daher habe ich angefange den code zu ändern...

rotherford · 28. Dezember 2012, 16:40

Benutze keinen WebBrowser zum Quellcode auslesen!
Das ist mega Crap.

dotnet-snippets.de/dns/quellte…eite-auslesen-SID950.aspx

schnibli · 28. Dezember 2012, 17:23

Hab es jetzt angepasst mit:

VB.NET-Quellcode

Dim client As New WebClient
Dim quellcode As String = client.DownloadString("http://192.168.61.41")
Dim quell As String = quellcode

aber das ist ja nicht der Punkt warum es nicht funktioniert

markus.obi · 28. Dezember 2012, 17:42

schnibli schrieb:

Dies ist mein ganzer code, das einzige was ich geändert habe ist

Verarschen kann ich mich selber. Zeile 7 und 9 sind anders.
rotherford hat recht. Sowas macht man übern Webclient oder nen HttpWebRequest.

schnibli · 28. Dezember 2012, 17:49

Post 5 von markus.obi

VB.NET-Quellcode

blub.Add(match2.Groups("group2").Value) ' Zeile 7
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>\d+)&outgoing=(?<outgoing>\d+)")'Zeile 9

lass ich bei mir alles weg bis private Sub Button1.....
Post 10 schnibli

VB.NET-Quellcode

blub.Add(match2.Groups("group2").Value)'Zeile 7
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>\d+)&outgoing=(?<outgoing>\d+)")'Zeile 9

Ich hab ja in Post 10 geschrieben:

Es erscheint der Selbe fehler, daher habe ich angefangen den Code zu ändern...

markus.obi · 28. Dezember 2012, 18:39

Du hast geschrieben:

VB.NET-Quellcode

blub.Add(match2.Groups("group1").Value)
Next
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>)&outgoing=(?<outgoing>)")

was offensichtlich Müll ist und auch nicht das ist was ich in Post #5 geschrieben habe.

schnibli · 28. Dezember 2012, 19:02

Ja da hab ich was rausgelöscht aber nicht absichtlich, jedoch Funktioniert bei mir der Code von Post 5 bez. der hier nicht

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim client As New WebClient
Dim quellcode As String = client.DownloadString("http://192.168.61.41")
Dim quell As String = quellcode
quell = quell.Replace(vbNewLine, "")
For Each match1 As Match In Regex.Matches(quell, "<tr>(?<group1>.*?)</tr>")
Dim blub As New List(Of String)
For Each match2 As Match In Regex.Matches(match1.Groups("group1").Value, "<td.*?>(?<group2>.*?)</td>")
blub.Add(match2.Groups("group2").Value)
Next
Dim match3 As Match = Regex.Match(blub.Item(5), "nameadd=(?<nameadd>\d+)&outgoing=(?<outgoing>\d+)")
Debug.WriteLine(match3.Groups("nameadd").Value)
Debug.WriteLine(match3.Groups("outgoing").Value)
Debug.WriteLine(blub.Item(0))
Debug.WriteLine(blub.Item(1))
Debug.WriteLine(blub.Item(2))
Next
End Sub

markus.obi · 28. Dezember 2012, 23:27

Bei mir funktioniert der Code mit dem Quelltext aus Post #1.

Spoiler anzeigen

Insofern nicht mein Problem!

schnibli · 28. Dezember 2012, 23:52

Auch wenn ich den code oben verwende, kommt zwar kein fehler aber es wird mir auch nichts ausgegeben.

rotherford · 29. Dezember 2012, 14:21

rotherford schrieb:

Alternativ:
olussier.net/2010/03/30/easily…html-documents-in-csharp/

..

alca · 29. Dezember 2012, 16:09

VB.NET-Quellcode

Dim Request As HttpWebRequest = CType(HttpWebRequest.Create("http://deine.web.seite"), HttpWebRequest)
Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim Reader As StreamReader = New StreamReader(Response.GetResponseStream)
Dim Content As String = reader.ReadToEnd
Dim Pattern As String = "\<td class=\""normalText\""\>(?<string>(.*?))\<\/td\>"
Dim List As New List(Of String)
For Each Match As Match In Regex.Matches(Content, Pattern)
List.Add(Match.Groups("string").Value)
'MsgBox(Match.Groups("string").Value)
Console.WriteLine(Match.Groups("string").Value)
Next

Da nimmst du die Elemente in der Liste raus, die du brauchst und wiederholst das ganze mit den anderen Patterns.
Ist noch Anpassungswürdig.

Quelltext korrekt und schnell auslesen

Quelltext korrekt und schnell auslesen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

schnibli schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

rotherford schrieb:

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

5 Benutzer haben hier geschrieben