help with reading data from txt file

Author

Message

dandrews

3

Years of Service

User Offline

Joined: 26th Jun 2020

Location:

Posted: 18th Jul 2020 23:55 Edited at: 19th Jul 2020 01:27

Link

im trying to learn how to read data from a txt file so eventually i can save data for my game as well. i can read the data in a string but im unsure how to separate that data ive tried the left and right commands but i can seem to get any results with printing anything but the entire string

+ Code Snippet

	OpenToRead ( 1, "myfile.txt" )
c$ = ReadString ( 1 )
CloseFile ( 1 )



do
	
	print right$(c$,2))
	sync()
	loop

the text file has this
50,1,0,1,1,1,0.40,0,0,8,0.20,0,0,0.3,0.8
i seen another example of using tokens as well that i tried with no luck

i also copied the example exactly and its not printing what it should

+ Code Snippet


OpenToRead ( 1, "myfileone.txt" )
a = ReadInteger ( 1 )
b# = ReadFloat ( 1 )
c$ = ReadString ( 1 )
CloseFile ( 1 )

do
	
	print(a)
	print(b#)
	print(c$)
	
	
	sync()
loop

10
1.23
hello
it prints this

168636465
0.000001
0
hello

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 19th Jul 2020 03:00 Edited at: 19th Jul 2020 03:11

Link

from the ReadString() Help:

Quote: "Note that this can only read strings in binary form such as those written using WriteString, if you are trying to read strings separated by new lines then use ReadLine instead."

your data (50,1,0,1,1,1,0.40,0,0,8,0.20,0,0,0.3,0.8) is written in/saved as plain text (not binary), so ReadLine():

+ Code Snippet

ThisFile = OpenToRead("thisdata.txt")
If FileIsOpen(ThisFile)
	ThisString$ = ReadLine(ThisFile)
	CloseFile(ThisFile)
Else
	ThisString$ = "File,Not,Open"
Endif

NumTokens = CountStringTokens( ThisString$, "," ) 

do
	Print(ThisString$)
	
    For x = 1 to NumTokens
		Print (GetStringToken( ThisString$, ",", x ) )
	Next x
	
    Sync()
loop

otherwise,

Quote: "i also copied the example exactly"

which example?

[My Itch.io Home]
[CODE lang=AGK] Your Code Here [/CODE]
[VIDEO=youtube] VideoID [/VIDEO]

Back to top

Profile PM Website

dandrews

3

Years of Service

User Offline

Joined: 26th Jun 2020

Location:

Posted: 19th Jul 2020 03:12 Edited at: 19th Jul 2020 03:27

Link

ok so if i were to add

+ Code Snippet

If FileIsOpen(ThisFile)
    ThisString$ = ReadLine(ThisFile)
nextstring$ = ReadLine(ThisFile)
    CloseFile(ThisFile)
Else

it would read the next line in the txt file?
this is the example i was looking at https://www.appgamekit.com/documentation/examples/files/1_reading.htm
also with the code snippet you posted it prints out
1
1

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 19th Jul 2020 03:26 Edited at: 19th Jul 2020 03:44

Link

This post has been marked by the post author as the answer.

Quote: "it would read the next line in the txt file?"

yes, assuming there was one. if you know how many lines there are to read, that should be fine.

otherwise, if the lines were unknown (no idea what your project is), something like:

+ Code Snippet

TheseLines as String []

ThisFile = OpenToRead("thisdata.txt")
	Repeat
		TheseLines.Insert( ReadLine(ThisFile) )
	Until FileEOF( ThisFile ) 
CloseFile(ThisFile)


do
	for x = 0 to TheseLines.Length
		Print(TheseLines[x])
	next x

	Sync()
loop

then manipulate/do what you want with those strings.

meanwhile, for the 2nd part of the first post:

+ Code Snippet

If GetFileExists("this.data") = 0 
	ThisFile = OpenToWrite("this.data")
		WriteInteger(ThisFile,10)
		WriteFloat(ThisFile,1.23)
		WriteString(ThisFile,"hello")
	CloseFile(ThisFile)
Endif

ThisFile = OpenToRead("this.data")
	a = ReadInteger ( ThisFile )
	b# = ReadFloat ( ThisFile )
	c$ = ReadString ( ThisFile )
CloseFile ( ThisFile )

do
	Print(a)
	Print(b#)
	print(c$)
	
    Sync()
loop

bonus material: building and parsing strings can be handy. in my 2d billiards, the top ten scores, times and dates are all held in 1 string (as is the version number):
Build the String from a Typed array (Scores)

+ Code Snippet

Function UpdateHighScoreVariable()
	HSString$ = Version$ + "|"
	For x = 0 to 9 //Build HSString$
		ThisScore$ = STR(Scores[x].Shots,0) 
		ThisTime$  = STR(Scores[x].Seconds,0) 
		ThisDate$  = Scores[x].Date
		HSString$  = HSString$ + ThisScore$ + ":" + ThisTime$ + ":" + ThisDate$
		If x < 9 then HSString$ = HSString$+"|"
	next x
	SaveHighScore()
EndFunction

Save the String (HSString$, as cookie or otherwise):

+ Code Snippet

Function SaveHighScore()
	If IsHTML = 1 
		If CookiesEnabled = 1
			SaveSharedVariable(HSSharedVariableName$,HSString$)
		Endif
	Else `is NOT HTML
		ThisFile = OpenToWrite(HSFile$)
		WriteString(ThisFile,HSString$)
		CloseFile(ThisFile)
	Endif
EndFunction

Parsing the String (fill in the top 10 scores, after loading it):

+ Code Snippet

Function ParseHSString()
	
	ThisVersion$ = GetStringToken(HSString$,"|",1)
		For x = 0 to 9
			ThisEntry$ = GetStringToken(HSString$,"|",x+2)
			Scores[x].Shots 	= VAL(GetStringToken(ThisEntry$,":",1))
			Scores[x].Seconds 	= VAL(GetStringToken(ThisEntry$,":",2))
			Scores[x].Date		= GetStringToken(ThisEntry$,":",3)
		Next x

EndFunction

[My Itch.io Home]
[CODE lang=AGK] Your Code Here [/CODE]
[VIDEO=youtube] VideoID [/VIDEO]

Back to top

Profile PM Website

dandrews

3

Years of Service

User Offline

Joined: 26th Jun 2020

Location:

Posted: 19th Jul 2020 03:37

Link

thank you i have some studying to do now
but if im understanding this correctly this should print the first five lines of the file?

+ Code Snippet

ThisFile = OpenToRead("myfile.txt")
If FileIsOpen(ThisFile)
    ThisString$ = Readline(ThisFile)
    ThisString2$ = Readline(ThisFile)
    ThisString3$ = Readline(ThisFile)
    ThisString4$ = Readline(ThisFile)
    ThisString5$ = Readline(ThisFile)
    CloseFile(ThisFile)
Else
    ThisString$ = "File,Not,Open"
Endif 
do
    Print(ThisString$)
    Print(ThisString2$)
    Print(ThisString3$)
    Print(ThisString4$)
    Print(ThisString5$)
     
    Sync()
loop

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 19th Jul 2020 03:51 Edited at: 19th Jul 2020 04:14

Link

Quote: "this should print the first five lines "

yes (if there are 5 lines. i don't like the elseif you've added where you'll later have issues if you went to print the 4 additional strings that might not exist) but, "yes"

Quote: " i have some studying to do now"

when you've done that, note the bonus material i added to my last post for extra credit. there are tokens within tokens, there

add: here's a high score string if you want to play with the parsing (there's no prize so i don't care if people "hack" it

):

+ Code Snippet

V.05.06.20|16:251:2020-05-06|18:300:2020-05-05|18:304:2020-05-05|18:306:2020-04-13|19:285:2020-05-06|20:254:2020-05-05|20:255:2020-05-05|20:256:2020-04-24|20:258:2020-05-05|20:272:2020-05-05

[My Itch.io Home]
[CODE lang=AGK] Your Code Here [/CODE]
[VIDEO=youtube] VideoID [/VIDEO]

Back to top

Profile PM Website

dandrews

3

Years of Service

User Offline

Joined: 26th Jun 2020

Location:

Posted: 19th Jul 2020 03:56

Link

ok i will thank you for the help as always

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 19th Jul 2020 04:20 Edited at: 19th Jul 2020 04:22

Link

Quote: "also with the code snippet you posted it prints out
1
1"

? i saved a plain text file named "thisdata.txt" in the media folder with 1 line:

+ Code Snippet

50,1,0,1,1,1,0.40,0,0,8,0.20,0,0,0.3,0.8

and get:

with that code:

+ Code Snippet

ThisFile = OpenToRead("thisdata.txt")
If FileIsOpen(ThisFile)
	ThisString$ = ReadLine(ThisFile)
	CloseFile(ThisFile)
Else
	ThisString$ = "File,Not,Open"
Endif

NumTokens = CountStringTokens( ThisString$, "," ) 

do
	Print(ThisString$)
	
    For x = 1 to NumTokens
		Print (GetStringToken( ThisString$, ",", x ) )
	Next x
	
    Sync()
loop

[My Itch.io Home]
[CODE lang=AGK] Your Code Here [/CODE]
[VIDEO=youtube] VideoID [/VIDEO]

Attachments

Login to view attachments

Back to top

Profile PM Website

dandrews

3

Years of Service

User Offline

Joined: 26th Jun 2020

Location:

Posted: 19th Jul 2020 05:15

Link

i just deleted the file and made another one with a different name and its working now im not sure what happened with the first txt file

Back to top

Profile PM

Loktofeit

AGK Developer

15

Years of Service

User Offline

Joined: 21st Jan 2009

Location: Sarasota, FL

Posted: 29th Jul 2020 23:36

Link

"this is the example i was looking at https://www.appgamekit.com/documentation/examples/files/1_reading.htm "

That example really should be edited to name the file "file.dat" as the ".txt" extension tends to be confusing for new users.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers AppGameKit Corner / [SOLVED] help with reading data from txt file

Attachments