Hallo,
Ich suche mich schon seid Stunden durchs Internet aber finde keine Antwort auf mein Problem, ich hoffe bei diesem Forum wird mir geholfen.
Mein Problem ist, ich möchte mehrere Wörter aus einem Quelltext auslesen. Mein Code dafür ist:
---------------------------------------------------------------
strText = WebBrowser1.DocumentText
If strText <> "" Then
sPos = 1
Do
sPos = InStr(sPos, strText, "e", CompareMethod.Text)
If sPos > 0 Then
ePos = InStr(sPos, strText, """,""birthday_md", CompareMethod.Text)
If ePos > 0 Then
a = Mid$(strText, sPos + 1, ePos - sPos - 1)
End If
sPos = sPos + 1
Else
Exit Do
End If
Loop
End If
--------------------------------------------------------------
Es wird nun ein Wort ausgelesen, ich möchte aber, dass alle Wörter die zwischen e und "",""birthday_md stehen ausgelesen werden.
WIE GEHT DAS???
Man kann sich das so vorstellen
blabla
eWichtigesWort1"",""birthday_md
blablabla
eWichtigesWort2"",""birthday_md bla
blabla
eWichtigesWort3"",""birthday_md blablablabla
und diese wichtigen wörter möchte ich haben.
Danke schonmal
Grüße larry



.
Zitieren

Lesezeichen