Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: URL aus Text auslesen
Autor: Reiner
Datum: 17.01.02 16:59
Hallo, ich habe das Beispiel genutzt und bin auf ein Problem gestoßen. Zwischen dem Auslesen der URL und dem Anzeigen im Listenfeld habe ich den Mauszeige verändert. Wenn URL's vorhanden sind ändert sich der Mauszeiger auch wie gewollt. Sollte jedoch keine URL vorhanden sein, so geht er nicht mehr in seinen Ausgangszustand zurück und bleibt als Sanduhr. Private Sub Command1_Click() Dim sHTMLText As String Dim sURL As Variant Dim I As Integer '************************************************* Screen.MousePointer = vbHourglass '************************************************* ' zunächst Seitenquelltext ermitteln With WebBrowser1.Document sHTMLText = .documentElement.outerHTML End With ' jetzt URLs ermitteln sURL = HTML_GetAllURLs(sHTMLText) ' URLs vorhanden? If IsArray(sURL) Then ' ListBox mit den URLs füllen List1.Clear For I = 0 To UBound(sURL) List1.AddItem sURL(I) Next I '***************************************************** Screen.MousePointer = vbDefault '***************************************************** End If End Sub mfg Reiner

URL aus Text auslesen	71	Reiner	11.01.02 16:13
Re: URL aus Text auslesen	327	Dieter	11.01.02 22:27
Danke	46	Reiner	12.01.02 12:11
Re: URL aus Text auslesen	56	Reiner	17.01.02 16:59
Re: URL aus Text auslesen	298	Dieter	17.01.02 18:44

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übersicht

Suchen