Hallo liebe Community ,
ich arbeite derzeit an einem Programm für eine Automatisierte Telefonnummern Suche. In einer Excel Tabelle befinden sich Hausnummer und Straße. Diese möchte ich in einen Link einsetzen und dann den Html Code auslesen, um die Nummer (z.b. unten im Html Code (0 22 05) 8 32 57) herauszubekommen und ensprechend in die Excel Tabelle schreiben.
Habe nicht so den großen Plan von VB.Net. Nur Grundwissen aus meinem Informatik Modul im Ingenieuers Studium. Bisher habe ich viele Informationen gesammelt (vorallem hier aus dem Forum) und zu einen Quellcode zusammen getragen bzw. angepasst. Leider funktioniert es nicht, bzw es kommt keine Fehlermeldung es passiert einfach garnichts und ich weis mittlerweile nicht mehr weiter.
Ich vermute, dass der Fehler bei dem Regex befehl liegt. Habe mir dazu das Tutorial aus dem Forum durchgelesen. Jedoch bin ich mir unsicher ob das so korrekt ist.
Hier vorerst einen Auszug aus dem Html Code:
Und Hier der Quellcode in VB.NET:
Das 'txtSourcecode.Text = httpContent habe ich als Kommentar gekennzeichnet, da es immer als falsch angezeigt wurde. War bestandteil eines Codes, den ich genutzt habe, dieser hier: Etwas aus dem HTML Quelltext auslesen mit HTTPWebRequest & RegEx
Für jeden Tipp bin ich sehr dankbar!!!
Viele Grüße
Teslon
ich arbeite derzeit an einem Programm für eine Automatisierte Telefonnummern Suche. In einer Excel Tabelle befinden sich Hausnummer und Straße. Diese möchte ich in einen Link einsetzen und dann den Html Code auslesen, um die Nummer (z.b. unten im Html Code (0 22 05) 8 32 57) herauszubekommen und ensprechend in die Excel Tabelle schreiben.
Habe nicht so den großen Plan von VB.Net. Nur Grundwissen aus meinem Informatik Modul im Ingenieuers Studium. Bisher habe ich viele Informationen gesammelt (vorallem hier aus dem Forum) und zu einen Quellcode zusammen getragen bzw. angepasst. Leider funktioniert es nicht, bzw es kommt keine Fehlermeldung es passiert einfach garnichts und ich weis mittlerweile nicht mehr weiter.
Ich vermute, dass der Fehler bei dem Regex befehl liegt. Habe mir dazu das Tutorial aus dem Forum durchgelesen. Jedoch bin ich mir unsicher ob das so korrekt ist.
Hier vorerst einen Auszug aus dem Html Code:
Und Hier der Quellcode in VB.NET:
VB.NET-Quellcode
- Dim MyExcel As New Excel.Application
- With MyExcel.Workbooks.Open(Pfad)
- With .Sheets(1)
- For r = 2 To .Cells(.Rows.Count, 7).End(Excel.XlDirection.xlUp).Row
- Dim aktuelleStraße = .Cells(r, 1).Value
- Dim aktuelleHausnummer = .Cells(r, 2).Value
- Dim aktuellerWert As String = aktuelleStraße & " " & aktuelleHausnummer
- 'Dim aktuelleNummer As String
- Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("http://www3.dasoertliche.de/Controller?sst=yes&page=1&zvo_ok=0&action=43&st=" & aktuelleStraße & "+" & aktuelleHausnummer & "&choose=true&image=Finden&skw=yes&ci=r%F6srath&sfn=yes&form_name=search_nat_ext&book=912&context=1")
- Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
- Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
- Dim httpContent As String = reader.ReadToEnd
- 'txtSourcecode.Text = httpContent
- Dim aktuelleNummer As New Regex(" <span class="">.*</span>\s")
- Dim aktuelleNummer2 As String = aktuelleNummer.Match(httpContent).ToString()
- .cells(r, 3).value = aktuelleNummer2
- Next
- End With
- End With
Das 'txtSourcecode.Text = httpContent habe ich als Kommentar gekennzeichnet, da es immer als falsch angezeigt wurde. War bestandteil eines Codes, den ich genutzt habe, dieser hier: Etwas aus dem HTML Quelltext auslesen mit HTTPWebRequest & RegEx
Für jeden Tipp bin ich sehr dankbar!!!
Viele Grüße
Teslon