help with VB 2010 txt file save

[sylvester3]

Hello,

Im newbie at VB and i need help solving my issue please

The code i used:

Dim SaveFile As New SaveFileDialog
            SaveFile.FileName = ""
            SaveFile.Filter = "Text Files (*.txt)|*.txt"
            SaveFile.Title = "Save"
            SaveFile.ShowDialog()
            Try
                Dim Write As New System.IO.StreamWriter(SaveFile.FileName)
                Write.Write(RichTextBox1.Text)
                Write.Close()
            Catch ex As Exception
            End Try

The problem is that when i save the text file

It be from

A
B
C
D
E
F

TO ONE LINE

ABCDEF

Hope someone could help me, thanks in advance

[Reverend Jim]

I set up a test exactly as you specified and my text file contains

A
B
C
D
E
F

Can you possibly post a screenshot of your app running?

[sylvester3]

here is screen on the program: http://img12.imageshack.us/img12/5356/5435435.png

here is screen on .txt file after saving: http://img37.imageshack.us/img37/7627/6546456.png

I also used Richtextbox and the settings is readonly

[Reverend Jim]

I usually use TextPad instead of Notepad and I have seen multiple lines display as one in notepad when the lines end with a line feed only rather than carriage return+line feed. TextPad doesn't have this problem. What happens if you list the contents of the file from the command line (using the TYPE command)?

[sylvester3]

looks like the issue from the richtextbox, i will give a try for textbox and then reply

[sylvester3]

I tested the textbox and still same issue :(

[Reverend Jim]

Can you zip your entire project folder and post it here? I'll download it and see how it behaves on my computer.

[codeorder]

'// TextBox.
        IO.File.WriteAllText("full.path of file here", TextBox1.Text)
        '// RichTextBox.
        RichTextBox1.SaveFile("full.path of file here", RichTextBoxStreamType.RichText) '// change ".RichText" to ".PlainText" If needed.

Also, check if btnOk has been clicked before saving.

If SaveFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            '// save :)
        End If

[Reverend Jim]

I don't think that's the problem because I did exactly what he posted and got the result he wanted.

[sylvester3]

here it is http://www.mediafire.com/?39kmsoy8hqv4au7

[Reverend Jim]

Sorry to say but it works just fine on my computer. I really have no further ideas.

[sylvester3]

'// TextBox.
        IO.File.WriteAllText("full.path of file here", TextBox1.Text)
        '// RichTextBox.
        RichTextBox1.SaveFile("full.path of file here", RichTextBoxStreamType.RichText) '// change ".RichText" to ".PlainText" If needed.

Also, check if btnOk has been clicked before saving.

If SaveFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            '// save :)
        End If

Sorry but where should i put those codes?

[codeorder]

With New SaveFileDialog
            .Filter = "Text Files (*.txt)|*.txt"
            .Title = "Save"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                IO.File.WriteAllText(.FileName, TextBox1.Text)
                '// RichTextBox.
                'RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.RichText) '// change ".RichText" to ".PlainText" If needed.
            End If
        End With

If you still have this issue(should Not), reboot your system(could be an internal bug that needs to be squashed).

[sylvester3]

still same, will reboot then reply

[sylvester3]

on wordpad the issue doesn't exist even notepad exist, strange

[codeorder]

Thanks for input.
If thread solved, mark as Solved; best of luck and welcome to the forum.:)

[Reverend Jim]

Just for my own curiosity, is there any way you could post a hex dump of the saved output text file?

[sylvester3]

Well i solved it with the textbox but with the richtextbox not yet...

The new code is

Dim SaveFile As New SaveFileDialog
            SaveFile.FileName = ""
            SaveFile.Filter = "Text Files (*.txt)|*.txt"
            SaveFile.Title = "Save"
            SaveFile.ShowDialog()
            Try
                Dim Write As New IO.StreamWriter(SaveFile.FileName)
                Write.Write(TextBox1.Text)
                Write.Close()
            Catch ex As Exception
            End Try