Telefonbuch Rückwärtssuche
bearbeitet von Rolf BHallo,
ich habe ein Problem beim Auslesen des HTML von "dasoertliche.de". Ich rufe in .Net die Seite mit der betr. Rufnummer auf und kann im Quellcode den Namen und die Adresse auslesen. Der Code sieht so aus:
~~~vb
doc.Load(client.OpenRead("https://www.dasoertliche.de/?form_name=search_inv&buc=674&page=5&context=4&action=43&ph=" & 03642553535), Encoding.UTF8)
Dim entry = doc.GetElementbyId($"entry_{i}
If entry Is Nothing Then Exit Sub
Dim divLeftOnHit = entry.ChildNodes.FirstOrDefault(Function(a) a.HasClass("oe_hit"))
Dim _Name As String = HttpUtility.HtmlDecode(divLeftOnHit.ChildNodes.FirstOrDefault(Function(a) a.Name = "a").InnerText.Replace(CrLf, ""))
Dim _Adresse As String = divLeftOnHit.ChildNodes.FirstOrDefault(Function(a) a.Name = "address").InnerText.Replace(CrLf, "").Replace(Tab, "")
liste.Add(_Name & ";" & _Adresse.Replace(" ", "").Replace(",", " "))
~~~
Das funktioniert in 90 % aller Fälle. Sind aber "Blumengrüsse" eingearbeitet, bekomme ich nicht mehr den Namen, sondern stattdessen die "Blumengrüsse".
[![](/images/8c0d9fd8-738d-11eb-b510-b42e9947ef30.png?size=medium)](/images/8c0d9fd8-738d-11eb-b510-b42e9947ef30.png)
Sorry - bekomme keine vernünftige Formatierung hin, deshalb als Bild.
Von HTML verstehe ich absolut nichts. Nur von .Net
Hab in mein Projekt Net.Http und HtmlAgilityPack eingebunden.
Kann mir jemand helfen?
Grüße Norbert
Telefonbuch Rückwärtssuche
bearbeitet von Der MartinHallo,
ich habe ein Problem beim Auslesen des HTML von "dasoertliche.de". Ich rufe in .Net die Seite mit der betr. Rufnummer auf und kann im Quellcode den Namen und die Adresse auslesen. Der Code sieht so aus:
> doc.Load(client.OpenRead("https://www.dasoertliche.de/?form_name=search_inv&buc=674&page=5&context=4&action=43&ph=" & 03642553535), Encoding.UTF8)
> Dim entry = doc.GetElementbyId($"entry_{i}
> If entry Is Nothing Then Exit Sub
> Dim divLeftOnHit = entry.ChildNodes.FirstOrDefault(Function(a) a.HasClass("oe_hit"))
> Dim _Name As String = HttpUtility.HtmlDecode(divLeftOnHit.ChildNodes.FirstOrDefault(Function(a) a.Name = "a").InnerText.Replace(CrLf, ""))
> Dim _Adresse As String = divLeftOnHit.ChildNodes.FirstOrDefault(Function(a) a.Name = "address").InnerText.Replace(CrLf, "").Replace(Tab, "")
> liste.Add(_Name & ";" & _Adresse.Replace(" ", "").Replace(",", " "))
Das funktioniert in 90 % aller Fälle. Sind aber "Blumengrüsse" eingearbeitet, bekomme ich nicht mehr den Namen, sondern stattdessen die "Blumengrüsse".
[![](/images/8c0d9fd8-738d-11eb-b510-b42e9947ef30.png?size=medium)](/images/8c0d9fd8-738d-11eb-b510-b42e9947ef30.png)
Sorry - bekomme keine vernünftige Formatierung hin, deshalb als Bild.
Von HTML verstehe ich absolut nichts. Nur von .Net
Hab in mein Projekt Net.Http und HtmlAgilityPack eingebunden.
Kann mir jemand helfen?
Grüße Norbert
Telefonbuch Rückwärtssuche
bearbeitet von Norbert StrzataHallo,
ich habe ein Problem beim Auslesen des HTML von "dasoertliche.de". Ich rufe in .Net die Seite mit der betr. Rufnummer auf und kann im Quellcode den Namen und die Adresse auslesen. Der Code sieht so aus:
> doc.Load(client.OpenRead("https://www.dasoertliche.de/?form_name=search_inv&buc=674&page=5&context=4&action=43&ph=" & 03642553535), Encoding.UTF8)
> Dim entry = doc.GetElementbyId($"entry_{i}
> If entry Is Nothing Then Exit Sub
> Dim divLeftOnHit = entry.ChildNodes.FirstOrDefault(Function(a) a.HasClass("oe_hit"))
> Dim _Name As String = HttpUtility.HtmlDecode(divLeftOnHit.ChildNodes.FirstOrDefault(Function(a) a.Name = "a").InnerText.Replace(CrLf, ""))
> Dim _Adresse As String = divLeftOnHit.ChildNodes.FirstOrDefault(Function(a) a.Name = "address").InnerText.Replace(CrLf, "").Replace(Tab, "")
> liste.Add(_Name & ";" & _Adresse.Replace(" ", "").Replace(",", " "))
Das funktioniert in 90 % aller Fälle. Sind aber "Blumengrüsse" eingearbeitet, bekomme ich nicht mehr den Namen, sondern stattdessen die "Blumengrüsse".
[![](/images/8c0d9fd8-738d-11eb-b510-b42e9947ef30.png?size=medium)](/images/8c0d9fd8-738d-11eb-b510-b42e9947ef30.png)
Sorry - bekomme keine vernünftige Formatierung hin, deshalb als Bild.
Von HTML verstehe ich absolut nichts. Nur von .Net
Hab in mein Projekt Net.Http und HtmlAgilityPack eingebunden.
Kann mir jemand helfen?
Grüße Norbert