Alternative:
Dim X as Long, Y as Long, Dummy as String
X=FreeFile
open <inputfile> for input as X
Y=FreeFile
open <outputfile> for output as Y
While not eof(X)
Line Input #X, Dummy
If Instr(1,Dummy,"löschtext")=0 then Print #Y,Dummy
Wend
Close #X
Close #Y
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\"
http://www.dream.at/gizmo/bunny.gif
Image is © 2001 Merle
Sterndalsäg.. ähh... jäger 
|