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