Daten aus *.txt in ein Array laden

[Marvin133]

ich habe versucht eine integer zahl aus einer txt datei in ein array zu laden und dann auszugeben nur leider funktioniert das ganze nicht so wie ich will icxh hoffe ihr habt eine lösung.

Code: Alles auswählen

OpenFile(0,"Data\level.txt") 
    
    Dim Tiles(10)    
    
    While Eof(0) = 0           
      
      
      
      FileSeek(0,0)
      
      Tiles(0)  = ReadInteger(0)
      
      CloseFile(0) 
      
      
      Debug(Tiles(0))
    
            
    Wend
                
 

[ts-soft]

ReadInteger funktioniert nicht mit txt-Dateien! Entweder Du schreibst die Datei binär oder
Du wandelst den String mit Val()

[STARGÅTE]

Da haut was in deiner Frage nicht hin:
"ich habe versucht eine integer zahl aus einer txt datei in ein array zu laden "

Eine einzige Zahl wirst du wohl kaum in ein Array packen können,

Du hast vermutlich viele Zahlen. Sind die mit Zeilenumbrüchen "verbunden" dann konntest du jede Zeile (also Zahl) mit ReadString einlesen und mit Val umwandeln und dann ins Array schmeißen.
Du kannst aber auch ein anderes Verbindunszeichen wählen, zB ein ; und dann nur ein mal ReadString anwenden und dann mit StringField() die einzelnen "Felder" auslesen und dnan mit Val umwandeln.

[Marvin133]

trotzdem gibt er bei mir nur ein null aus obwohl in der txt datein iene 128 gespeichert ist

Code: Alles auswählen

OpenFile(0,"Data\level.txt") 
    
    Dim Tiles.s(10)    
    
    While Eof(0) = 0           
      
      
      
      FileSeek(0,0)
      
      Tiles.s(0)  = ReadString(0)
      
      
      
      CloseFile(0) 
      
      
      Debug Val("Tiles(0)")
    
            
    Wend

[rolaf]

Lass mal die Gänsefüsse bei Val wech...

[Kaeru Gaman]

mach die umwandlung beim einlesen.

Code: Alles auswählen

Dummy$ = ReadString(0)
Tiles(n)  = Val(Dummy$)

du brauchst doch nicht platz für 5 buchstaben verbraten, wenn du sowieso die nummer haben willst.

... aber STRiP:
speicher deine Map gleich als Zahlen in einem Binary.