Stack size limit for If/Then statements?

[Kernelpanic]

Yes, looks like reading a file 1 sequentially and copying the contents into a file 2. But you need a loop to read it out. Now one just have to separate the individual lines.

zeilenPuffer - line buffer
dateiLesen - name of the file to be copied
inDateiSchreiben - name of the new file

Code: (Select All)

'Uebung Textdatei lesen und in andere Datei schreiben - 31. Jan. 2024



Option _Explicit



Dim As String zeilenPuffer, dateiLesen, inDateiSchreiben



Locate 2, 2

Input "Name der zu kopierenden Datei: ", dateiLesen

'Fehler abfangen

If dateiLesen = "" Then End



Locate 4, 2

Input "Name der neuen Datei: ", inDateiSchreiben

If dateiLesen = "" Then End



'Zu kopierende Datei oeffnen

Open dateiLesen For Input As #1



'Neue Datei oeffnen zum einfuegen

Open inDateiSchreiben For Output As #2



'Datei 1 auslesen bis Ende und in Puffer speichern

Do Until EOF(1)

  Line Input #1, zeilenPuffer



  'Puffer nach datei 2 uebertragen

  Print #2, zeilenPuffer

Loop



'Beide(!) Dateien schliessen

Close #1

Close #2



Locate 6, 2

'Inhalte der neuen Datei anzeigen

Open inDateiSchreiben For Input As #1



'Sequentiell auslesen bis zum Ende

Do Until EOF(1)

  'Zeile lesen und in ZeilenPuffer abspeichern

  Line Input #1, zeilenPuffer



  'Zeile auf dem Bildschirm(Screen) ausgeben

  Print zeilenPuffer

Loop



End