vb6 vraag je

[anoniem]

Ik kom hier niet uit Hoe kan ik deze aanpassen dat hij pas vanaf de 2e of 3e Stats gaat lezen. Dus dat hij niet de 1e pakt. [code:1:4f9e641962] Dim strZoekstring As String Dim lngStart As Long Dim lngEerste As Long Dim lngTweede As Long Dim strResultaat As String strZoekstring = Text1.Text lngStart = 1 lngEerste = InStr(lngStart, strZoekstring, "Stats") lngTweede = InStr(lngEerste + 6, strZoekstring, "end") strResultaat = Mid(strZoekstring, lngEerste + 6, lngTweede - lngEerste - 7) Label6 = (strResultaat) [/code:1:4f9e641962] Alvast bedankt

[anoniem]

Met mid de eerste stats vervangen; dus " " plaatsen waar "stats" stond. Uiteraard later wel weer het origineel gebruiken voor de data.

[anoniem]

Als ik dat doe dan krijg ik ook de tekst wat voor de 1e stats staat maar de 2e rij krijg ik niet of ik doe iets verkeerd.

[anoniem]

euh, nee, als het goed is niet. Je moet zoiets hebben: lngEerste = InStr(lngStart, strZoekstring, "Stats") mid(strZoekstring,lngEerste)=" " lngEerste = InStr(lngStart, strZoekstring, "Stats") oid, en dan hetzelfde voor lngTweede.

[anoniem]

Je bent geweldig bedankt