Das deutsche QBasic- und FreeBASIC-Forum

[alfonsospringer]

CLS
anfang:
ON ERROR GOTO fehler
INPUT "Dateiname: ", name$
OPEN name$ FOR INPUT AS 1
DO
INPUT #1, text$
PRINT text$
LOOP UNTIL EOF(1)

fehler:
GOTO anfang:


wenn ich in diesem programm 2x den Namen einer nicht existenten datei angebe, dann wird das Programm beendet - warum? eigentlich sollte es doch immer wieder erneut nach dem namen der Datei fragen, oder ?
Wenn nein wie realisiere ich dies ?

[Sebastian]

So muss der Code richtig aussehen:

[alfonsospringer]

aber dieser code bewirkt doch nicht, dass ich nochmals den aufgefordert werde den dateinamen einzugeben, oder ? Er gibt doch nur die Fehlernummer aus

ich moechte, dass er mich immer wieder nach dem Namen der datei fragt, bis ich einen funktionierenden angebe.

[Sebastian]

[jb]

Oho, Sebastian verwendet den GOTO-Befehl

jb
_________________
Elektronik und Programmieren

[alfonsospringer]

wenn man in dem Programm 2 mal hintereindander den namen einer nicht exisstenten datei eingibt funktioniert es nicht mehr. Probiert's mal aus

[pinkpanther]

Um sicherzustellen, dass auch der nächste Fehler wieder von der Fehlerbehandlungsroutine abgefangen wird, muss man die Fehlerbehandlung mit dem RESUME-Befehl (und nicht mit dem GOTO-Befehl, der diesmal nicht nur aus stilistischen Gründen unangebracht ist) beenden.

Der korrekte Code lautet somit:

[alfonsospringer]

Im moment habe ich diese etwas unschoene Variante um nach einem Fehler in einem sub den sub nochmal neuu zu starten

[pinkpanther]

Am elegantesten löst du dieses Problem, indem du es erst überhaupt nicht zu einem Fehler kommen lässt. Das heißt, du musst erst prüfen, ob es die Datei gibt, bevor du sie mit irgendwelchen Dateibefehlen bearbeitest.

Wie man prüfen kann, ob eine bestimmte Datei existiert, habe ich im folgenden Beitrag beschrieben:
http://forum.qbasic.at/viewtopic.php?p=21887&highlight=#21887
_________________
lG
pinkpanther