String Manipulation question...

[Wat]

Hey again... i have a little question.
I have a textbox that has returns at the end of the text, the ammount depending on the number of times the text has been saved.... there is a problem in the save code i'm using because it saves an extra return at the bottom of the text, causing the returns to build up. I need soem kind of string manipulation loop like trim() but instead of spaces, it deletes the returns at the end. I'm still learning VB, so i hope you guys have patience... what would be the most proficient way in doing this? Thanks

[Arc]

WHy not fix the save code instead of trying to patch it? in other words make it stop adding the unwanted returns instead of removing them afterwards.


Let me see your save code

[Wat]

Open App.path + "\current.txt" For Output As #1
Print #1, Form1.txtdemo.text
Close #1
Else
End If


I'm using that as an autosave, and returns are building up... i'm pretty sure its the save code, but its really basic... heres the load code i'm using

Dim filelength$
Dim var1$
If FileExists(App.path + "\current.txt") Then
Open App.path + "\current.txt" For Input As #1
filelength = LOF(1)
var1 = Input(filelength, #1)
Form1.txtdemo.text = var1
Close #1

[Flip]

instead of

SaveFile Text1.Text

put

SaveFile Mid(Text1.Text, 1, Len(Text1.Text)-1)

or i think a return might be two spaces so you might need this:

SaveFile Mid(Text1.Text, 1, Len(Text1.Text)-2)

would that work?

[Wat]

Yep! Thanks a lot flip, i used that and edited the load code and it now works! I'm pretty sure it was your input though, thanks a lot!