Can't read file - help? - GameCreators Forum

Author

Message

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 18th Aug 2018 03:21 Edited at: 18th Aug 2018 19:08

Link

EDIT:
I have solved this. Read the last post for the answer. This is not readily apparent to newbs. Spent way too much time on this. Perhaps, update in the help files that ReadLine will continue to read the next line if the file is open. That would have solved hours of frustration.

No idea why I can't get any command to read the lines in this file.

I have tried readline and readstring. I have seterror(mode) =2.

File content

+ Code Snippet

Floor:1:0.000000:0.040000:-4.000000:-0.000000:0.000000:0.000000:
Fire Pit:0:0.000000:0.040000:-4.000000:-0.000000:0.000000:0.000000:
Floor:1:1.000000:0.040000:-4.000000:-0.000000:0.000000:0.000000:
Wall:1:1.000000:0.040000:-3.500000:-0.000000:0.000000:0.000000:
Wall:1:1.000000:0.040000:-4.500000:-0.000000:0.000000:0.000000:
Garden:0:2.000000:0.040000:-7.000000:-0.000000:0.000000:0.000000:

Read file

+ Code Snippet

		OpenToRead( 1, "home_area_save.txt" )
		objdata$ = ReadLine( 1 )
		CloseFile( 1 )
		token_count = CountStringTokens( objdata$, ":" )
		file_lines = token_count/8
		h as Home_Objects
		for i = 0 to file_lines-1
			h.desc = GetStringToken( objdata$, ":",(i*8)+1)
			level = Val(GetStringToken( objdata$, ":",(i*8)+2))
			x# = ValFloat(GetStringToken( objdata$, ":",(i*8)+3))
			y# = ValFloat(GetStringToken( objdata$, ":",(i*8)+4))
			z# = ValFloat(GetStringToken( objdata$, ":",(i*8)+5))
			rotx# = ValFloat(GetStringToken( objdata$, ":",(i*8)+6))
			roty# = ValFloat(GetStringToken( objdata$, ":",(i*8)+7))
			rotz# = ValFloat(GetStringToken( objdata$, ":",(i*8)+8)
....... etc

Only the first line is returned so token_count = 8

Code to write to file

+ Code Snippet

			if house_construction.length > 0 
				for i = 0 to house_construction.length
					WriteLine( home_area_save, house_construction[i].desc +":" +str(house_construction[i].level) +":" +str(GetObjectX( house_construction[i].ID ) ) +":" +str(GetObjectY( house_construction[i].ID ) )+":" +str(GetObjectZ( house_construction[i].ID ) ) +":" +str( GetObjectAngleX( house_construction[i].ID ) ) +":" +str( GetObjectAngleY( house_construction[i].ID ) ) +":" +str( GetObjectAngleZ( house_construction[i].ID ) ) )
				next i
			endif

Not sure what I am doing wrong here. I have tried both line and string commands. Only getting the first line read.

Back to top

Profile PM

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 18th Aug 2018 04:28

Link

You dont appear to be opening file id 1 at all..

OpenToRead( "home_area_save.txt" )

this should be:

OpenToRead( 1, "home_area_save.txt" )

Back to top

Profile PM

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 18th Aug 2018 14:08 Edited at: 18th Aug 2018 19:11

Link

...

Back to top

Profile PM

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 18th Aug 2018 16:26 Edited at: 18th Aug 2018 19:10

Link

Not needed

Attachments

Login to view attachments

Back to top

Profile PM

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 18th Aug 2018 17:34 Edited at: 18th Aug 2018 19:12

Link

How to read every line:
I suppose you could also add a counter to read a certain amount of lines.

+ Code Snippet

		while FileEOF( 1 ) = 0
			objdata$ = ReadLine( 1 )
			token_count = CountStringTokens( objdata$, ":" )
			temp_obj_house_c.desc = GetStringToken( objdata$, ":", 1 )
			temp_obj_house_c.level = Val(GetStringToken( objdata$, ":", 2 ))
			x# = ValFloat(GetStringToken( objdata$, ":", 3 ))
			y# = ValFloat(GetStringToken( objdata$, ":", 4 ))
			z# = ValFloat(GetStringToken( objdata$, ":", 5 ))
			rotx# = ValFloat(GetStringToken( objdata$, ":", 6 ))
			roty# = ValFloat(GetStringToken( objdata$, ":", 7 ))
			rotz# = ValFloat(GetStringToken( objdata$, ":", 8 ))
etc...
		endwhile
	CloseFile( 1 )

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 29th Aug 2018 13:48

Link

Well, readline does exactly what the word says, it reads A line. You have 6 lines, therefore, you have to read the line 6 different times. If it read all of them at the same time, I suppose the command would be readLines instead, but that would be horrible inefficient and eat a lot memory on large files.

Quote: "This is not readily apparent to newbs. "

Well it does say in the help file "Reads a new line terminated string from the given file". But I'd agree with you, if you're not familiar with how sequential file reading works you might not understand there's an internal index pointer that moves along the opened file with each read command called on it.

Alternatively, you can think of a memblock as a sort of random-access file, in which you must specifically state the byte position you start reading from and how many bytes to read.

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 29th Aug 2018 17:56 Edited at: 30th Aug 2018 01:44

Link

The missing part is the help files does not let the user know there is an "internal index pointer". Its not readily apparent that you can just use a loop - simple if you know it, but frustrating if you do not. I had no idea it would increment.

I knew it would read one line. The problem was I had no idea I could use a loop, to get to the next lines.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Can't read file - help?

Attachments