Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Eine Textdatei nach einem bestimmten String durchsuchen
Autor: Braindead
Datum: 23.11.01 09:53
Hi cromec Kommt daruf an ob du die File laden willst oder bloß durchsuchen!! Nur suchen : private function findString(byval SuchText as string byval FileName as string)as long Dim nr as byte,text as string,x as long,anZahl as long nr = freefile anzahl=0 open filename for input as nr while eof(nr)<>true line input nr,text x=1 while x>0 x=instr(x,text,suchtext,vbtextcompare) anzahl=iif(x>0,anzahl+1,anzahl) x=iif(x>0,x+1,0) wend wend close nr findString=anzahl end function in ein textfeldladen und dan suchen : private function findString(byval SuchText as string byval FileName as string)as long Dim nr as byte,text as string,x as long,anZahl as long nr = freefile anzahl=0 open filename for input as nr while eof(nr)<>true line input nr,text text1.text=text1.text & text wend close nr x=1 while x>0 x=instr(x,text1.text,suchtext,vbtextcompare) anzahl=iif(x>0,anzahl+1,anzahl) x=iif(x>0,x+1,0) wend findString=anzahl end function Hab das jetzt nicht geprobt aber müßt funz. MFG

Eine Textdatei nach einem bestimmten String durchsuchen	61	cromec	23.11.01 08:19
Re: Eine Textdatei nach einem bestimmten String durchsuchen	51	Braindead	23.11.01 09:53
thanx braindead. Ich denke das hilft mir weiter (ot)	29	cromec	25.11.01 11:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen