vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: GetAttribute 
Autor: IIINikeIII
Datum: 18.06.11 22:09
Ok, ich geb euch ein Beispiel
www.bing.com
In Zeile 17 findet sich:
<a id="sh_cp" href="javascript:void(0);" class="sc_light"><div>&copy;</div><span><p>[u]Deepwater mushroom soft coral (Anthomastus ritteri) off the coast of California, in the Pacific Ocean -- Mark Conlin/Photolibrary</p></span></a> 

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal _
  e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  WebBrowser1.DocumentCompleted
        Dim Elemente As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpagelement As HtmlElement In Elemente
            If webpagelement.GetAttribute("id") = "sh_cp" Then
                TextBox1.Text = webpagelement.InnerText
            End If
        Next
End Sub
geht 

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal _
  e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  WebBrowser1.DocumentCompleted
        Dim Elemente As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpagelement As HtmlElement In Elemente
            If webpagelement.GetAttribute("href") = "javascript:void(0);" Then
                TextBox1.Text = webpagelement.InnerText
            End If
        Next
End Sub
geht 

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal _
  e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  WebBrowser1.DocumentCompleted
        Dim Elemente As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpagelement As HtmlElement In Elemente
            If webpagelement.GetAttribute("class") = "sc_light" Then
                TextBox1.Text = webpagelement.InnerText
            End If
        Next
End Sub
geht nicht

Alle drei sollten denselben Text ausgeben, aber nur bei "class" funktioniert es nicht. Wenn man einen Haltepunkt bei TextBox1.Text= ... setzt, dann wird das Programm nicht unterbrochen. Woran liegt es also, dass er nicht in die If-Funktion hineinkommt?

_________________________________________________
VB.Net Einsteiger mit fortgeschrittenem Unwissen.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
GetAttribute2.505IIINikeIII15.06.11 20:19
Re: GetAttribute1.771Code_mancer16.06.11 07:45
Re: GetAttribute1.871IIINikeIII18.06.11 22:09
Re: GetAttribute1.750Caddy19.06.11 02:22

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel