Such1="$2"
Such2="$3"
Start=False
F=Freefile
Open"GrosseDatei.txt" for input as #f
While not eof(f)
  line input#f, txt
  If Such1=txt then Start=true
  If Such2=txt then Start=False
 
  If Start=true then 
    if txt<>Such1 then 
      G=freefile
      Open "Dateixy.Txt" for Append as #g
      Print#g, txt
      Close#g
   end if
  end if
Wend
close#f
 
Schneller geht auch so:
 
Such1="$2"
Such2="$3"
Ende=False
F=Freefile
Open"GrosseDatei.txt" for input as #f
Do While not eof(f)
  line input#f, txt
  If Such1=txt then 
    G=freefile
    Open "Dateixy.Txt" for Append as #g
    Do
      line input#f, txt
      If Such2<>txt then
        Print#g, txt
      else
        Close#g
        Ende=true
        Exit do
      end if
    loop
 
  End if
  If Ende=true then exit do
Loop  
 
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)