reading external text files - GameCreators Forum

Author

Message

ruckertheron

7

Years of Service

User Offline

Joined: 12th Nov 2016

Location:

Posted: 6th Jun 2018 16:52

Link

How do I read from external text files? I mean if I don't write to a file...

Back to top

Profile PM Email

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 6th Jun 2018 20:21

Link

Look at the "Read" section of commands. https://www.appgamekit.com/documentation/Reference/File.htm

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Jun 2018 02:55

Link

I find the easiest is to read the data with the readline command
Something like this

+ Code Snippet


myArray as integer[]
If GetFileExists("text.txt")
	read = OpenToRead("text.txt")
	while FileEOF(read) = 0
		String$ = ReadLine(read)
		myArray.insertString$)
	endfile
	Closefile(read)
else
	e$="Error... File does not exist!"
	print(e$)
endif

by defining MyArray as a type and some changes to the above code you could use it to store allsorts of other data
at the same time and have data retrieved for several players
example

+ Code Snippet

 
type playerType
    ID as integer
    imgID as integer
    x as float
    y as float
endtype

JSON files are another way of achieving this

fubar

Back to top

Profile PM Email Website

ruckertheron

7

Years of Service

User Offline

Joined: 12th Nov 2016

Location:

Posted: 7th Jun 2018 17:28

Link

Thanks for the help.. a few minor issues here. Is this what you meant?

+ Code Snippet


myArray as string[]

if GetFileExists( "exam data.txt" )
	read = OpenToRead( "exam data.txt" )
	while FileEOF( read ) = 0
		string$ = ReadLine( read )
		myArray.insert( string$ )
	endwhile
	closefile( read )
else
	e$ = "Error... File does not exist!"
endif


do
	print( e$ )
	sync() 
loop

Assuming that this is what you meant, I still have issues.. The e$ is empty. Also note that this text file was not created in AppGameKit with WriteLine commands also...

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Jun 2018 08:04 Edited at: 8th Jun 2018 08:23

Link

if you get the error
Error... File does not exist!
then the filename "exam data.txt" may not be a matching name, perhaps try renaming it
Or you havent placed the text file in your projects media folder and your program cant find it

And the above will work with text files or files that have been made in or saved in text format like you would use in Notepad
Binary files or other formats extensioned .txt wont neccesarily work

+ Code Snippet

myArray as string[]
 
if GetFileExists( "exam data.txt" )
    read = OpenToRead( "exam data.txt" )
    while FileEOF( read ) = 0
        string$ = ReadLine( read )
        myArray.insert( string$ )
    endwhile
    closefile( read )
else
    e$ = "Error... File does not exist!"
    print (e$)
endif
 
 myArray.length = newSize
i=0
while i<newSize and newSize>0
    print(myArray[i])
    inc i
   sync() 
endwhile

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Jun 2018 08:16 Edited at: 8th Jun 2018 08:18

Link

in the above code I just posted will print the string at index I for example 100 lines of text will have 100 elements in the array
therefor size would be equal to 100. arrays start at index 0 so the first line would start at index 0 and then continue up until
line 100 being index 99 if that was the case in the example above

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 8th Jun 2018 08:41 Edited at: 8th Jun 2018 08:43

Link

or you could load it as one string

+ Code Snippet


string$="" 
if GetFileExists( "exam data.txt" )
    read = OpenToRead( "exam data.txt" )
    while FileEOF( read ) = 0
        string$ = string$ + ReadLine( read )
    endwhile
    closefile( read )
else
    e$ = "Error... File does not exist!"
    print (e$)
endif
 
print string$
sync()
sleep(10)
end

both methods would consume allot of memory if you just wanted to print it once you could do it line by line as you read them from the file

+ Code Snippet

string$="" 
if GetFileExists( "exam data.txt" )
    read = OpenToRead( "exam data.txt" )
    while FileEOF( read ) = 0
        string$ = ReadLine( read )
        print (string$)
        sync()
    endwhile
    closefile( read )
else
    e$ = "Error... File does not exist!"
    print (e$)
endif
 sleep(10)
end

fubar

Back to top

Profile PM Email Website

ruckertheron

7

Years of Service

User Offline

Joined: 12th Nov 2016

Location:

Posted: 12th Aug 2019 20:14

Link

Thanks fubar!! I was looking back and I believe it was a notepad ++ issue or lack of using it which made that happen.. I remember renaming it or changing the extension... I also had a habit of not thanking those who helped me.. I figured you deserved some gratitude!!

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / reading external text files