*.ini einlesen

[WPShadow]

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:

Code (glbasic) Select Expand


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.

[Schranz0r]

INIOPEN "" weg

[WPShadow]

Jup, du hattest recht. Aber in der anderen Funktion. Also buffere ich zwischen. Thx! 

Code (glbasic) Select Expand


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