ReadString from CSV - GameCreators Forum

Author

Message

zxretrosoft

AGK Developer

10

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 12th Feb 2021 16:39 Edited at: 12th Feb 2021 16:41

Link

Hello friends,

first, greetings to you all!

I have a simple question for you, maybe very amateurish.

Please. I have a CSV file with the individual lines:

kasava;12345;germany;789
jinonice;25645;germany;857
stuhlov;45789;germany;124

etc.

If I use:

+ Code Snippet

OpenToRead (1, "test.csv")
a$ = ReadLine (1)
CloseFile (1)

Then in a$ I have the whole file.
But I need for further work to have in a$ individual lines.

So for example:
a$ [1] = "kasava;12345;germany;789"
a$ [2] = "jinonice;25645;germany;857"
a$ [3] = "stuhlov;45789;germany;124"

And I can't achieve that. Please does anyone know any simple example of how to do this?

Thank you very much in advance!

I am sorry for poor English

Back to top

Profile PM Email Website

hendron

9

Years of Service

User Offline

Joined: 20th Dec 2015

Location:

Posted: 12th Feb 2021 18:19

Link

I believe ReadLine() looks for a line feed character to determine where the line ends, so make sure your file's lines are ending with line feeds and not just carriage returns.

Back to top

Profile PM

zxretrosoft

AGK Developer

10

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 12th Feb 2021 19:07

Link

ReadLine() can only read 1 line. I need to read all the rows, one by one.

I am sorry for poor English

Back to top

Profile PM Email Website

hendron

9

Years of Service

User Offline

Joined: 20th Dec 2015

Location:

Posted: 12th Feb 2021 19:20

Link

Sorry, I must have misunderstood your question. In that case, you'll want to use a string array to store your lines. Like this:

+ Code Snippet

file = OpenToRead("test.csv")
lines as string[]
repeat
	lines.insert(ReadLine(file))
until FileEOF(file)
CloseFile(file)

do
	for i = 0 to lines.length
		print(lines[i])
	next i
	sync()
loop

Back to top

Profile PM

zxretrosoft

AGK Developer

10

Years of Service

User Offline

Joined: 10th Dec 2014

Location: Prague, Czech Republic

Posted: 12th Feb 2021 19:27

Link

Yes, this is exactly it, thank you very much, my friend!

Thank you!

P.S. And I apologize for the bad English!

[Solved]

I am sorry for poor English

Back to top

Profile PM Email Website

n00bstar

21

Years of Service

User Offline

Joined: 9th Feb 2004

Location: Montreal, Canada.

Posted: 13th Feb 2021 12:43 Edited at: 13th Feb 2021 12:44

Link

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

You might want to look into GetStringToken too.

Let's say you have 30 different characters and and their various stats in a csv file with Name,Class,HP,MP on each line that looks like this:

Bob,Warrior,30,30
John,Mage,10,50
Julie,Archer,20,20
[etc...]

+ Code Snippet


	// Setup 
		Type typ_Character
			Name as string
			Class as string
			HP as integer
			MP as integer
		Endtype

                Global Characters as typ_Character[30]
	

        // Read data
		Line as string
		File = OpenToRead("character_data.csv")

		For X = 1 to 30
				Line = ReadLine(File)
				
				Characters[X].Name = GetStringToken(Line, ",", 1)
				Characters[X].Class = GetStringToken(Line, ",", 2)
				Characters[X].HP = Val(GetStringToken(Line, ",", 3))
				Characters[X].MP = Val(GetStringToken(Line, ",", 4))
		Next

		CloseFile(File)


        // Print out the results
		For X = 1 to 30
						
				Print(Characters[X].Name)
				Print{Characters[X].Class)
				Print(Characters[X].HP)
				Print(Characters[X].MP)
		Next

Then this would print:
Bob
Warrior
30
30
John
Mage
10
50
Julie
Archer
20
20

etc etc...

-----------------------------------------------------------------------------
We all got a chicken duck woman thing waiting for us

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Studio Chat / [SOLVED] ReadString from CSV