Stack size limit for If/Then statements?

Stack size limit for If/Then statements? - Printable Version

+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: Chatting and Socializing (https://qb64phoenix.com/forum/forumdisplay.php?fid=11)
+--- Forum: General Discussion (https://qb64phoenix.com/forum/forumdisplay.php?fid=2)
+--- Thread: Stack size limit for If/Then statements? (/showthread.php?tid=2413)

Pages: 1 2 3

RE: Stack size limit for If/Then statements? - Kernelpanic - 01-31-2024

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