Read multiline text file

[kalle82]

Hi!

Im using excel 2003. I do NOT have acess to the rich textbox ;(, and I can't add it to our system because of security measures.

So I use a textbox to get save data to textfiles, works nice!

The data in the textbox often contains multiple rows.

Example:

Hi! We are informing you of XXXXXXX.

In order to gain that bonus you will need to.

- DO

- DO

As you can see there are many lines that are empty.

So my question is.. How do I make the program add a "vbcrlf", when it sees an empty row..? I use the textbox to save templates, that I later send over to word..

I use this code to read everything into my textbox.

Dim fpath As String

fpath = Workbooks(1).Path & "\handläggningsstöd\mallar\" & sokvag

If FileOrDirExists(fpath) Then

Dim oFSO As New FileSystemObject
Dim oFS


Set oFS = oFSO.OpenTextFile(fpath)

Do Until oFS.AtEndOfStream

*******First i did this*** Works but i dont get any empty lines
Stext = Stext & oFS.ReadLine
Loop

****then i tried this**** This method does not give me any result..?

If oFS.ReadLine = "" Then
Stext = Stext & vbCrLf
Else
Stext = Stext & oFS.ReadLine
End If

 

[combo]

You can read/write whole file/textbox:

Private Sub cmdRead_Click()
Set oFS = oFSO.OpenTextFile(fpath, ForReading, True)
Me.TextBox1.Text = oFS.ReadAll
End Sub

Private Sub cmdWrite_Click()
Set oFS = oFSO.OpenTextFile(fpath, ForWriting, True)
oFS.Write Me.TextBox1.Text
End Sub

combo

 

[PHV]

Either:

Set oFS = oFSO.OpenTextFile(fpath)
Do Until oFS.AtEndOfStream
  Stext = Stext & oFS.ReadLine & vbCrLf
Loop

or:

Set oFS = oFSO.OpenTextFile(fpath)
Stext = oFS.ReadAll

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Andrzejek]

Another way:

Dim strTextLine As String

Open fpath For Input As #1
Do While Not EOF(1)             [green]' Loop until end of file.[/green]
   Line Input #1, strTextLine   [green]' Read line into variable.[/green]
   Stext = Stext & strTextLine [blue]& vbCrLf[/blue]
Loop
Close #1

You may or may not need the [blue]BLUE[/blue] piece of code.

Have fun.

---- Andy

 

[kalle82]

Ahh thanks guys

Cool I ended up doing the: Stext = Stext & strTextLine & vbCrLf
solution...

Really good to get to know the readall thing to!

BIG ups! To PHV, combo, Andrzejek!!