Data Text Files

Blitz3D Forums/Blitz3D Programming/Data Text Files

Kyler

(Posted 2009) [#1]

Hi, it's been a while since I posted here...hope it's still active.

Does anyone know if there's a way to get Blitz to write to a text file in a 2D format.

Like this...

00110100
00101101
00400201
20301104
38848832
00300500

Whenever i try, it starts a new line every time, like this....

0
0
1
1
0
1
0
0

etc...

Can anyone help me with this?

Thank you ^_^

Matty

(Posted 2009) [#2]

dim myarray(10,10)
;populate array
for x=0 to 10
	for y=0 to 10
		myarray(x,y)=rand(0,9)
	next
next

;create file and write to it
outfile=writefile("test.txt")
if outfile<>0 then 
	for y=0 to 10
		lineoftext$=""
		for x=0 to 10
			lineoftext$=lineoftext$+str(myarray(x,y))
		next
		writeline outfile,lineoftext
	next
	closefile outfile
else
;error occured opening file to write
endif

something along those lines should work...

Kyler

(Posted 2009) [#3]

Thank you so much...VERY helpful...But I don't want random values. I want to take information from a TYPE to do this.

type A
field X,Y,frame
end type

Is there a way to make A\Frame determine what number is saved to the file?

Thank you.

_PJ_	(Posted 2009) [#4]

Unless your Type list is int he right order for X and Y's you're making things more complicated for yourself.

Is it necessary to have the text file in the format presented? It may be easier to just save the entire Type list, including all fields...

;create file and write to it
outfile=WriteFile("test.txt")
For IterA.A=Each A
	WriteLine outfile,(Str(IterA\X)+" , "+Str(IterA\Y)+" , "+Str(IterA\Frame))
Next
CloseFile outfile

;create file and write to it
infile=ReadFile("test.txt")
sline$=ReadLine(infile)
While Not(Eof(infile))
	
	XLine$=Trim$(Left$(sline$),Instr(","))
	YLine$=Trim$(Left$(sline$),Instr(","))
	FrameLine$=Trim$(Right$(sLine$),Len(sLine$-Len(YLine$)))
	
	newA.A = New A
	
	NewA\X=XLine$
	NewA\Y=YLine$
	NewA\Frame=FrameLine$
	sline$=ReadLine(infile)
Wend
CloseFile outfile