[QB] Fehlermeldung unterbinden

Seite: 1

Autor

Beitrag

Siggy

[QB] Fehlermeldung unterbinden - Beitrag verfasst: 10.06.2007, 20:21 Uhr

[ Gastposter ]

Hallo,

ich habe folgendes Problem:
QBasic soll einen Text soundsoviel mal in eine Datei schreiben, das würde dann so aussehen:

Code:

1 2 3 4 5 6 7 8 CLS a$ = "DER TEXT" OPEN c:test.txt FOR OUTPUT AS #1 FOR I = 1 TO 'Anzahl' WRITE #1, a$ NEXT CLOSE #1 END

Wenn er ihn jetzt bsp. 1000000 mal schreibt kommt bsp. 100 MB raus.
Doch wenn die Festplatte jetzt kleiner ist als 100 MB gibt er folgende Fehlermeldung:

Fehler: Festplatte zu klein (oder so ähnlich)

Wie kann ich jetzt diese Meldung unterbinden?

Hoffe auf eine Lösung und vielen Dank im Voraus

Siggy

Nach Oben

DrSoong

Beitrag verfasst: 11.06.2007, 10:47 Uhr

Globaler Moderator

Anmeldedatum: 15.08.2002
441 Posts und 2 Themen.

Wie bei VB kennt auch QB den On Error Goto Sprung, so kannst du den Fehler abfangen und dein Programm bricht nicht ab. Schau dir dazu auch das QB-Kochbuch an (suche nach "Error").

Der Doc!

____________________
Zur Information: Ich beantworte keine Fragen, die per Mail an mich gesandt werden. Bei Kontaktaufnahme einen Post ins Forum setzen oder mich nach Aufforderung per VPM anschreiben.

Nach Oben

Siggy

Beitrag verfasst: 11.06.2007, 14:21 Uhr

[ Gastposter ]

Hallo,

leider klappt es nicht, er ignoriert scheinbar die Zeile einfach:

Code:

1 2 3 4 5 6 7 8 9 CLS a$ = "DER TEXT" OPEN c:test.txt FOR OUTPUT AS #1 FOR I = 1 TO 'Anzahl' WRITE #1, a$ NEXT ON ERROR GOTO 0 0 CLOSE #1 END

Ich habs auch schon anders probiert, in oder vor der Schleife, nützt nichts!

Siggy

EDIT: Fehler gefunden! Hätte mir deinen Link genauer ansehen sollen! Vielen Dank, DrSoong!

2 x geändert, zuletzt am 11.06.2007 von

Nach Oben

Die Domain www.v-basic.de steht zum Verkauf: Interesse?

[QB] Fehlermeldung unterbinden