Writing a .txt file...

Blitz3D Forums/Blitz3D Beginners Area/Writing a .txt file...

Yahfree

(Posted 2007) [#1]

Hey, i'm making a code generator for my project, so some of my idiot friends can help me :)...

basicly, the friends read and click buttons ect to make the code, then they press save, and it writes the real code to a .txt file, that they give me, and i put in the code. VIA copy and paste.

using the awsome Winb3d for basic windows GUI, i need to know the process of creating and editing .txt files...

i know it has somthing to do with WriteFile() ect ect, the process is unknown to me though :o

any ideas

Yo! Wazzup?

(Posted 2007) [#2]

Look up WriteFile in the Command Ref, it'll help. I promise.

Yahfree

(Posted 2007) [#3]

interesting, also WriteLine begins a new line and types into it, i think this may be it. i'll look into it and test it.

Fuller

(Posted 2007) [#4]

Also if you go:

WriteFile("filename.bb")

it will make a blitzbasic file

Yahfree

(Posted 2007) [#5]

so far so good. but a problem with adding to it, it won't.. it seems like it pasting over it.. creation process is fine.

Creation function:

[WORKS]

Function WriteCode()
	code=WriteFile(WB3D_GetGadgetText(pickedfilename)+".txt")
	
    WriteLine(code,WB3D_GetGadgetText(handl)+".list = New list")
	WriteLine(code,WB3D_GetGadgetText(handl)+"\name="+Chr(34)+WB3D_GetGadgetText(name)+Chr(34))
	
	WriteLine(code,"")
	WriteLine(code,"")
	
	CloseFile(code)
End Function

and the add process...

[Broken :(]

Function AddToCode()
	
	If FileType(WB3D_GetGadgetText(pickedfile)+".txt")=1
	
	code2=OpenFile(WB3D_GetGadgetText(pickedfile)+".txt")
    WriteLine(code2,WB3D_GetGadgetText(handl)+".list = New list")
	WriteLine(code2,WB3D_GetGadgetText(handl)+"\name="+Chr(34)+WB3D_GetGadgetText(name)+Chr(34))
	
	WriteLine(code2,"")
	WriteLine(code2,"")
	
	CloseFile(code2)
	
	doesnotex=0
	
	Else
	
	doesnotex=1
	
	End If
	
End Function

somthing i'm missing? the Wb3d_GetGadgetText(handle) functions are from WinBlitz3d, it gets what a user typed in, tested that these arent the problem.. any idea?

Kev	(Posted 2007) [#6]

you need to SeekFile() to the end of the file before writing more data.

kev

Yahfree

(Posted 2007) [#7]

Hmm, how does that work? in the docs it shows how to navigate ints... not strings... how do i get to the end of the file (ie start adding more)

Kev	(Posted 2007) [#8]

in = OpenFile("test.txt")
If in > 0 Then
	
	While Not Eof(in)
		pos$ = ReadLine(in)
		file_offset = file_offset + Len(pos$)+2
	Wend
	SeekFile in,file_offset
	WriteLine in,"new line"
	CloseFile in
EndIf

not sure if this would be the correct way but it does work, create a .txt file add some text to it.

kev

Yahfree

(Posted 2007) [#9]

Thanks, it looks like its working