txt files to array - GameCreators Forum

Author

Message

catman

18

Years of Service

User Offline

Joined: 10th Dec 2005

Location:

Posted: 2nd Jan 2006 22:49

Link

thanks grog got the array thing now.But need help an a different approch what i want to do is load a txt file e.g

**********
****//****
**********

and read the info to create a hight map for a matrix i have downloaded some examples but cant realy grasp it could somebody
help

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 3rd Jan 2006 00:34 Edited at: 3rd Jan 2006 00:40

Link

You could use read byte, and it will only read one character, and then you will want to use variable = chr$(variable) to turn it into the character instead of like, 25.
Example (not tested):

+ Code Snippet

Dim Map$(10,10)
open to read 1, "file.txt"
For y = 1 to 10
   For x = 1 to 10 
      read byte 1,variable
         string$ = chr$(variable)
         Map$(x,y) =  string$
   next x
next y
close file 1

I'm not sure if it counts carrage return or not. If it does, find the ascii code for it and add an if statement with the

+ Code Snippet

string$ = chr$(variable)
Map$(x,y) =  string$

lines within it.

Good luck!

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 3rd Jan 2006 07:02

Link

Quote: "**********
****//****
**********"

Is that the height map you want to use? What character = what height? Is it based on the ascii chart?

Back to top

Profile PM Email

crighton

19

Years of Service

User Offline

Joined: 5th Nov 2005

Location: In your soup.

Posted: 3rd Jan 2006 14:03 Edited at: 3rd Jan 2006 14:04

Link

why use ascii.

using numbers or something would be better. Higher values.

heres 1 i use often

save:

+ Code Snippet

open to write 1,filename$
     write word 1,xsize
     write word 1,zsize
 
     for z=0 to zsize
        for x=0 to xsize
            write word 1,hight(x,z)
        next x
     next z

close file 1

load:

+ Code Snippet

open to write 1,filename$
     read word 1,xsize
     read word 1,zsize
 
     for z=0 to zsize
        for x=0 to xsize
            read word 1,number
hight(x,z)=number
        next x
     next z

close file 1

hope that helps

aye!

Back to top

Profile PM Email Website

catman

18

Years of Service

User Offline

Joined: 10th Dec 2005

Location:

Posted: 3rd Jan 2006 20:24

Link

cheers lads that will do nicely

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / txt files to array