Writing a .txt file...

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

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

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.

Also if you go:

WriteFile("filename.bb")

it will make a blitzbasic file

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?

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

kev

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)

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

Thanks, it looks like its working