N=1
F=Freefile
Open"GrosseDatei.txt" for input as #f
While not eof(f)
  line input#f, txt
  A=Split(txt,"$1")
  G=freefile
  Open "Datei"+cstr(n)+".Txt" for output as #g
  For i=0 to ubound(a)
    Print#g, a(i)
  Next
  Close#g
  N=N+1
Wend
close#f

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)