Saving and Opening Text Area Text

BlitzPlus Forums/BlitzPlus Programming/Saving and Opening Text Area Text

Arem	(Posted 2004) [#1]

I wanna be able to load and save text area text to a file but I'm having trouble with the lines. I know I need chr$(10) and chr$(13) at the end of every line but it isnt quite working how it should. Here is my code:

Global Config
Global TextField1
Global EnterAHomepage
Global TEXTAREA1
Global EnterYourApps
Global Submit
CreateConfig()
While WaitEvent()

If EventID()=$401 And EventSource()=submit
DeleteFile("config.txt")
file=WriteFile("config.txt")
WriteLine(file,TextFieldText(textfield1))
WriteLine(file,TextAreaText(textarea1))
FreeGadget(config)
End If

If EventID()=$803 And EventSource()=config
FreeGadget(config)
End If
Wend

Function CreateConfig()
Config = CreateWindow("Butane Configuration",220,151,300,295,Desktop(),17)
TextField1 = CreateTextField(5,20,280,20,Config,0)
label1 = CreateLabel("Enter Your Homepage",5,5,280,15,Config,0)
TEXTAREA1 = CreateTextArea(5,65,280,180,Config,0)
label2 = CreateLabel("Enter Application Locations and Nicknames",5,50,280,15,Config,0)
Submit = CreateButton("Enter",100,250,100,20,Config,0)
file=ReadFile("config.txt")
SetGadgetText(textfield1,ReadLine(file))
While Not Eof(file)
AddTextAreaText(textarea1,ReadLine(file))
AddTextAreaText(textarea1,Chr$(10))
AddTextAreaText(textarea1,Chr$(13))
Wend
CloseFile(file)
End Function

soja	(Posted 2004) [#2]

What's not working? It loads and saves the text fine for me.

WolRon

(Posted 2004) [#3]

@soja Isn't it obvious what's wrong?

it isnt quite working how it should

I don't see how you missed that. It's so black/white.

skidracer

(Posted 2004) [#4]

From a quick glance there is no matching CloseFile to go with:

file=WriteFile("config.txt")

which will cause unpredictable results.

Arem	(Posted 2004) [#5]

OK. Sorry guys. If you open the config file in notepad, many of the lines that were shown in the text area are on one line seperated only by a undisplayable character. There also seem to be some problems when opening and saving a file repeatedly.

skidracer

(Posted 2004) [#6]

The XP version of notepad has some pretty wierd handling of chr(13), I advise just using chr(10).

Arem	(Posted 2004) [#7]

thanks. that seems to have worked!

Sonari Eclipsi Onimari

(Posted 2004) [#8]

So are you working on a word processor? I'm in the middle of one right now. I have a problem though. I want to change a certain font on a textarea, but It will change everything. Is there a way around this?