Loading .txt Files

TheXploder · **Posted:** Fri Feb 06, 2004 8:37 pm

I added some more code now it adds the value loaded to a two dimensional array, yay now I'm done my game... because all you need is numbers it's all about numbers every game is made with arrays full of numbers like CS, anyway, can I shorten that any further..?

code:

var map : array 1 .. 10, 1 .. 10 of int
var number : array 1 .. 10 of string
var stremin, stremout : int %a var that is an int is needed to open a file

open : stremin, "test.txt", get %this will open a connection to get data

loop
exit when eof (stremin)
for i : 1 .. 10
get : stremin, number (i)
end for
end loop

for i : 1 .. 10
for i2 : 1 .. 10
map (i, i2) := strint (number (i) (i2))
end for
end for

for i : 1 .. 10
for i2 : 1 .. 10
put map (i, i2) ..
end for
put ""
end for

Andy · **Posted:** Sat Feb 07, 2004 12:34 pm

the last for loop is useless.. just output it rite after you save it

code:

for i : 1 .. 10
for i2 : 1 .. 10
map (i, i2) := strint (number (i) (i2))
put map (i, i2) ..
end for
put""
end for

???
strint (number (i) (i2))
number is a 1 d aray

santabruzer · **Posted:** Sat Feb 07, 2004 1:33 pm

it's probably string manipulation... or something of the sort... of the array

Andy · **Posted:** Sat Feb 07, 2004 1:41 pm

oooo... y didnt he just get one character at a time from the txt file?

santabruzer · **Posted:** Sat Feb 07, 2004 1:43 pm

i have no idea.. and that would be so much simpler and more efficient *decides that he is not gonna write it*

TheXploder · **Posted:** Sat Feb 07, 2004 1:44 pm

I am going to create a map out of this, so you need the x, y position of every integer..

Andy · **Posted:** Sat Feb 07, 2004 1:45 pm

yea...

code:

var temp:string(1)
for i:1..10
for j:1..10
get:file, temp
map(i,j):=strint(temp)
end for
end for

and he's done

TheXploder · **Posted:** Sun Feb 08, 2004 3:34 pm

Dodge, I don't understand how your code works, could you write a complete source that also loads a file..
Anyway I got another probelem I want to open map.txt files that are in another folder:

code:

var map : array 1 .. 10, 1 .. 10 of int
var number : array 1 .. 10 of string
var stremin, stremout : int := 1 %a var that is an int is needed to open a file

open : stremin, "New Folder\map.txt", get %this will open a connection to get data

loop
exit when eof (stremin)
for i : 1 .. 10
get : stremin, number (i)
end for
end loop

close : stremout

for i : 1 .. 10
for i2 : 1 .. 10
map (i, i2) := strint (number (i) (i2))
end for
end for

for i : 1 .. 10
for i2 : 1 .. 10
put map (i, i2)
end for
end for

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members