Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Replace()
Autor: Stefan
Datum: 31.03.02 00:07
Achja kann ja auch gleich den ganzen Code posten : Reset LCase (Text1.Text) Open "D:Tool Box XPvok_engl.db" For Input As #1 For X = 1 To 1900 Input #1, sline lPos = InStr(sline, "#") Var1 = Left$(sline, lPos - 1) Var2 = Mid$(sline, lPos + 1) Text1.Text = Replace(Text1.Text, Var1, Var2) Next X Close #1 Open "D:Tool Box XP rns_std.db" For Input As #2 For Y = 1 To 4 Input #2, sline lPos = InStr(sline, "#") Var1 = Left$(sline, lPos - 1) Var2 = Mid$(sline, lPos + 1) Text1.Text = Replace(Text1.Text, Var1, Var2) Next Y Close #2 PS: Mit EOF einlesen wär elegeanter is aber kein problem eigentlich ;)

Replace()	52	Stefan	30.03.02 23:54
Re: Replace()	146	Dieter	31.03.02 00:03
Re: Replace()	40	Stefan	31.03.02 00:04
Sollte aber gehen...	186	Dieter	31.03.02 00:07
Re: Replace()	73	Stefan	31.03.02 00:07
Re: Replace()	28	Stefan	31.03.02 00:09
Genau daran liegt es	198	Dieter	31.03.02 00:12
Re: Genau daran liegt es	233	Dieter	31.03.02 00:27
Re: Genau daran liegt es	87	Stefan	31.03.02 13:02
Kleiner Schönheitsfehler	168	Dieter	31.03.02 14:05
Danke	27	Stefan	31.03.02 18:42

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