anoniem Geplaatst: 1 mei 2005 Delen Geplaatst: 1 mei 2005 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 Quote Link naar reactie
anoniem Geplaatst: 1 mei 2005 Auteur Delen Geplaatst: 1 mei 2005 Met mid de eerste stats vervangen; dus " " plaatsen waar "stats" stond. Uiteraard later wel weer het origineel gebruiken voor de data. Quote Link naar reactie
anoniem Geplaatst: 1 mei 2005 Auteur Delen Geplaatst: 1 mei 2005 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. Quote Link naar reactie
anoniem Geplaatst: 1 mei 2005 Auteur Delen Geplaatst: 1 mei 2005 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. Quote Link naar reactie
anoniem Geplaatst: 1 mei 2005 Auteur Delen Geplaatst: 1 mei 2005 Je bent geweldig bedankt Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen