[RESOLVED] [2005] How to write richtextbox line by line to file

[Bulldog]

I want to write the contents of a richtextbox one line at a time to a file (I need to end each line with a crlf), how do I loop through the richtextbox lines?

[ComputerJy]

For Each str As String In rtf.Lines

[phenom]

Hi Bulldog,

use tis code:

Dim strWrite As New StreamWriter("c:\File001.txt")
 For Each line As String In RichTextBox1.Lines
        strWrite.WriteLine(line)
 Next
 strWrite.Close()
 Messagebox.Show("DONE")

Hope this helps...

Regards,

[Bulldog]

oh, simple as that!

I was messing around with getlinefromchar etc. etc.

Thanks.

[Bulldog]

Actually, the code doesnt do quite what I expect. It always adds one extra line to the file.

This is my code;

Dim w As New System.IO.StreamWriter(TargetFile, False, FileNameEncoding)
                For Each str As String In SearchText.Lines
                    w.Writeline(str)
                Next
                w.Close()

I get the same problem if I use w.Write(str + vbCrLf)

What am I doing wrong?

[ComputerJy]

You really are a VB6 Programmer!!
You should use:

w.WriteLine(str)

But that won't fix it, I guess it's a Microsoft bug of something

[Bulldog]

This is what I ended up with...

Dim w As New System.IO.StreamWriter(TargetFile, False, FileNameEncoding)
                For i As Integer = 0 To SearchText.Lines.Length - 2
                    w.WriteLine(SearchText.Lines(i))
                Next
                w.Write(SearchText.Lines(SearchText.Lines.Length - 1))
                w.Close()

Which avoids the extra line added by the streamwriter.

[phenom]

This is what I ended up with...

Dim w As New System.IO.StreamWriter(TargetFile, False, FileNameEncoding)
                For i As Integer = 0 To SearchText.Lines.Length - 2
                    w.WriteLine(SearchText.Lines(i))
                Next
                w.Write(SearchText.Lines(SearchText.Lines.Length - 1))
                w.Close()

Which avoids the extra line added by the streamwriter.

well done i was working on it but you done it first

Regards

[dkinjal]

hello my code is as below...in vb 6.0

dim line as string
For Each line In RichTextBox1.Lines
msgbox line
next

but i am getting error like "Method or Datamember not found" in
For Each line In RichTextBox1.Lines

Kinjal