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