Das deutsche QBasic- und FreeBASIC-Forum

[Progger_X]

Hallo, ich hätte 2 Fragen zum öffenen und einlesen von Dateien.

1. Wie kann ich Dateien erkennen, ob sie existieren? Soll so nen Textprogramm sein, und dann beim Laden "Vorhandene Dateien:", da muss ich alle anzeigen.

2. Wie kann ich die Menge von Einträgen bestimmen?

[Progger_X]

2. hat sich erledigt:

[Skilltronic]

Hallo !

Zu 1: Ich habe mal das Beispiel aus der QB-Onlinehilfe zum ON ERROR Befehl etwas abgewandelt. Mit diesem kannst du eigene Fehlerbehandlungsroutinen erstellen.

[Progger_X]

Und ginge es auch, das man alle Dateien anzeigt, und man dann eine auswählt? Ich meine geht ja bei QB mit .bas dateien auch...

[Skilltronic]

Wie meinst du das genau ? Die Dateien im aktuellen Verzeichnis kannst du mit

FILES

oder z.B.

SHELL "dir" bzw. SHELL "dir/p"

anzeigen lassen.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[Progger_X]

Das heißt so:

CLS
ON ERROR GOTO fehler
eingabe:
SHELL "dir" bzw. SHELL "dir/p"
INPUT datei$
OPEN datei$ FOR INPUT AS 1
CLOSE 1
GOTO eingabe

fehler:
IF ERR = 53 THEN
PRINT "Datei nicht gefunden"
RESUME eingabe
ELSEIF ERR = 52 THEN PRINT "Geben sie einen Namen ein."
RESUME eingabe
ELSE PRINT "Unerwarteter Fehler"
END
END IF

[Skilltronic]

Hallo !

Probier's doch einfach ! Dir ist aber schon klar, dass die Zeile

[Progger_X]

Ähm ja, habs mehr reinkopiert als gemacht oder getestet...
machsch jetzt.