ReadString in to 2D Array – help Needed!

[AmonParticipant]

The content of the level file is below.

Monkey

"111111111004000112000001110000011300000110000001100000011000002110000011100000311004000111111111"

1	"111111111004000112000001110000011300000110000001100000011000002110000011100000311004000111111111"

The monkey code to load the data into the 2D Array is below

Monkey

Level = LoadString("asset::level1.txt") GameArray = New Int[8,12] Local xi:Int Local yi:Int For Local x:Int = 0 Until Level.Length If xi >= 7 xi = -1 yi+=1 If yi >=12 Then Exit Endif xi+=1 GameArray[xi, yi] = Int(Level.Mid(0, x)) Next

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Level = LoadString("asset::level1.txt") GameArray = New Int[8,12] Local xi:Int Local yi:Int For Local x:Int = 0 Until Level.Length If xi >= 7 xi = -1 yi+=1 If yi >=12 Then Exit Endif xi+=1 GameArray[xi, yi] = Int(Level.Mid(0, x)) Next

When I run it there is no crash but the GameArray is empty. Where am I going wrong with this?

Thank you.

[abakoboParticipant]

When I run the algorithm it gives me a non empty array… Don’t know what you’re trying to do with it but it’s not empty.
Have you checked that your loadstring gets any file (you don’t get message if no file were found I think)

The code I ran (you can copy-paste it directly into ted)

Monkey

[crayon-5cb9df5f72195157887368 inline="true" ]Namespace myapp #Import "<std>" Using std.. Function Main() 'Level = LoadString("asset::level1.txt") Local Level:="111111111004000112000001110000011300000110000001100000011000002110000011100000311004000111111111" Local GameArray := New Int[8,12] Local xi:Int Local yi:Int For Local x:Int = 0 Until Level.Length If xi >= 7 xi = -1 yi+=1 If yi >=12 Then Exit Endif xi+=1 GameArray[xi, yi] = Int(Level.Mid(0, x)) Next For Local x:=0 Until 8 For Local y:=0 Until 12 Print GameArray[x,y] Next Next End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

[crayon-5cb9df5f72195157887368 inline="true" ]Namespace myapp   #Import "<std>"   Using std..   Function Main() 'Level = LoadString("asset::level1.txt") Local Level:="111111111004000112000001110000011300000110000001100000011000002110000011100000311004000111111111" Local GameArray := New Int[8,12] Local xi:Int Local yi:Int For Local x:Int = 0 Until Level.Length If xi >= 7 xi = -1 yi+=1 If yi >=12 Then Exit Endif xi+=1 GameArray[xi, yi] = Int(Level.Mid(0, x)) Next   For Local x:=0 Until 8 For Local y:=0 Until 12 Print GameArray[x,y] Next Next   End

[/crayon]

[JesseParticipant]

you need to
#import “level1.txt”

[Author]

Posts