Verzeichnis auslesen Frage

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

Keimax

Betreff: Verzeichnis auslesen Frage

BeitragSo, Apr 18, 2004 17:51
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo, mit den Dateibefehlen kenn ich mich leider nicht so aus
und komme gerad nicht weiter.
Ich möchte ein Verzeichnis mit *.dat Dateien auslesen
und in Variablen speichern.
Habe mal das Beispiel der Onlinehilfe modifiziert, aber das funktioniert
alles nicht:

Code: [AUSKLAPPEN]
dim levels(99)
global nummer = 0
global datei1$
global Verz

Verz=READDIR("maps\")
REPEAT
   datei1$=NEXTFILE$(Verz)
   IF not FILETYPE(datei1$) = 0 THEN
levels(nummer) = datei1$
nummer = nummer + 1
END IF
IF  FILETYPE(datei1$) = 0 THEN goto ende
FOREVER
.ende
CLOSEDIR Verz



in levels(0) usw... steht leider nichts drin.
wie muss ich das anstellen?

Danke
Keimax
XP3000, FX6600, 1024DDR, BB2d @ W2k,
- > Diesen Text bitte nicht beachten <-
 

René Meyer

BeitragSo, Apr 18, 2004 17:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Das Dim-Feld nicht für Zahlen-, sondern für String-Variablen definieren. :-)
www.blitzbasic.de | Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

Keimax

BeitragSo, Apr 18, 2004 18:25
Antworten mit Zitat
Benutzer-Profile anzeigen
Äh Danke. Smile
So hier dann mal der funktionierende Code:
Hier lese ich alle *.dat Datei aus dem Verzeichnis Maps

Code: [AUSKLAPPEN]
; Levels im Verzeichnis laden

dim levels$(99)
global nummer = 0
global datei1$
global Verz

Verz=READDIR("maps")
REPEAT
   datei1$=NEXTFILE$(Verz)

if RIGHT$(datei1$,4) = ".dat" then
levels$(nummer) = datei1$
nummer = nummer + 1
end if
 IF datei1$="" THEN EXIT
FOREVER
.ende
CLOSEDIR Verz



cu
XP3000, FX6600, 1024DDR, BB2d @ W2k,
- > Diesen Text bitte nicht beachten <-

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group