Hi,
mein Hirn setzt langsam aus, also brauche ich mal eure Hilfe.
Ich versuche verzweifelt eine *ini zu laden. Diese habe ich angehängt (gfx.ini)
Die dazugehörige Funktion ist:
FUNCTION sys_loader:
LOCAL ok, tmp, tmp$, lang, file$, file_load$
ok = DOESFILEEXIST("media/gfx/gfx.ini")
IF ok = TRUE
INIOPEN "media/gfx/gfx.ini"
lang = INIGET$("file", "count")
FOR tmp = 1 TO lang
tmp$ = tmp
file$ = "file_" + tmp$
file_load$ = INIGET$("file", file$)
sys_loader_ini(file_load$)
NEXT
INIOPEN ""
ELSE
sys_logging("1 Datei " + file$ + " wurde nicht gefunden.")
ENDIF
ENDFUNCTION
Grundlegend funktioniert das sys_logging korrekt und liefert mir auch zurück, dass die Datei vorhanden ist.
Im Ablauf soll sie nun geöffnet werden, count auslesen (funzt) und in die Schleife springen (funzt).
Sobald ich in der Schleife bin, funktioniert der 1. Aufruf vollkommen korrekt, d.h. die aufgerufenen Daten werden wie folgt aufgerufen:
file_1 media/gfx/stars.ini
file_2 NO_DATA
Aus irgendeinem Grund gibt file_2 keinen Inhalt zurück, egal was ich hier eingebe.
Ansich sollte der Code passen, da ich mehrere Files so einlese. Habt Ihr eine Idee?
LG
W.
INIOPEN "" weg :)
Jup, du hattest recht. Aber in der anderen Funktion. Also buffere ich zwischen. Thx! :booze:
FUNCTION sys_loader:
LOCAL ok, tmp, tmp$, lang, file$
LOCAL files$[]
ok = DOESFILEEXIST("media/gfx/gfx.ini")
IF ok = TRUE
INIOPEN "media/gfx/gfx.ini"
lang = INIGET$("file", "count")
DIM files$[lang]
FOR tmp = 1 TO lang
tmp$ = tmp
file$ = "file_" + tmp$
files$[tmp - 1] = INIGET$("file", file$)
NEXT
INIOPEN ""
FOR tmp = 1 TO lang
sys_loader_ini(files$[tmp - 1])
NEXT
ELSE
sys_logging("1 Datei " + file$ + " wurde nicht gefunden.")
ENDIF
ENDFUNCTION