Visual Basic Forum

Devilworld · Tutorial Leser Anmeldedatum: 03.05.2008 Beiträge: 25

Hey, hänge mal gerade wieder an etwas.
Möchte von einer Homepage einen bestimmten link
auslesen (bild) der sich immer ändert.
Jetzt speichert mein Browser denn Quellcode
der seite schonmal ab. (in einer txt)
Da die Seite sich aber auch immer ändert, kann ich
nicht denn Link aus der zeile kopiert.
Da der Link aber zwischen www.xxx.de
steht, wollte ich fragen, ob ich denn text zwischen
denn IMG Variablen auslesen kann?
Thx u. MfG
Devilworld
_________________

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Visual Basic: [code]text = split(split(quellcode, "")(1), "")(0)[/code]

1 und 0 musst du jeweils um 1 erhöhen, kommt drauf an wie oft die Tags im Quellcode vorkommen.

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

uiuiui, du willlst bilder von www.xxx.de auslesen? Very Happy

Devilworld · Tutorial Leser Anmeldedatum: 03.05.2008 Beiträge: 25

hmm irgendwie funktioniert das nicht :confused:
Habe mal an google getestet:
Visual Basic: [code]Private Sub Command1_Click()
Dim texta As Long
Dim quelltext As String
quelltext = WebBrowser1.Document.documentElement.outerHTML
texta = Split(Split(quellcode, "")(1), "")(0)
Text1.text = texta
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.google.de"
End Sub
[/code]

er sollte dann Eigendlich "Google" ausgeben...
Weis einer bescheid??? ^^

Devilworld · Tutorial Leser Anmeldedatum: 03.05.2008 Beiträge: 25

hmm irgendwie funktioniert das nicht :confused:
Habe mal an google getestet:

Visual Basic: [code]Private Sub Command1_Click()
Dim texta As Long
Dim quelltext As String
quelltext = WebBrowser1.Document.documentElement.outerHTML
texta = Split(Split(quellcode, "")(1), "")(0)
Text1.text = texta
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.google.de"
End Sub
[/code]

er sollte dann Eigendlich "Google" ausgeben...
Weis einer bescheid??? ^^

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

1.
Visual Basic: [code]Dim texta As Long
...
texta = Split(Split(quellcode, "")(1), "")(0)[/code]
Nimm lieber String.

2.
Visual Basic: [code]quelltext = WebBrowser1.Document.documentElement.outerHTML
texta = Split(Split(quellcode, "")(1), "")(0)[/code]
Einmal quellcode und einmal quelltext. ^^
_________________

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

wenn du dıe lände der Strıngs weıst, kannst du auch eınfach:

FindString = Left(Replace(quelltext, Left(quelltext, ANZAHL DER STRINGS), ""), LÄNGE DES STRINGS)