Read info from a text file

I would like to read a paragraph from a text file and insert it into CAD as mtext. I understand the concepts of reading from the file, I have that working fine. What I can't figure out is how to combine all the lines into one string. At the moment i've got this code working, but it isn't quite doing what I want it to. It is putting the text where I want it, but only putting the last line read as the contents. Where am I going wrong?

Open FileName For Input Access Read As #File
Do While Not EOF(File)
Line Input #File, TextFromFile
Loop
Close #File
ThisDrawing.ModelSpace.AddMText InsPnt,500,TextFromFile

I'm sure I have to put code in the loop that combines all the text lines into one. Hope someone can shed some light.
Thanks for all the help, This NG has been a huge help.

Kind Regards,
Matthew Corbin

 

Add a String holder

Dim FileContents As String

Open FileName For Input Access Read As #File
Do While Not EOF(File)
Line Input #File, TextFromFile

'**** add the line to the rest of the string
FileContents = FileContents & TextFromFile

'****or you may have to add a return too
FileContents = FileContents & vbCr & TextFromFile
'***

Loop
Close #File

'**** now use the file contents string for your mtext
ThisDrawing.ModelSpace.AddMText InsPnt,500,FileContents


good luck

 

Hello Matthew.

You need to setup a variable to hold the 'final' string result, and keep appending to that string as you loop through the file.

Something like:
Dim strFinalText as String
Open FileName For Input Access Read As #File
Do While Not EOF(File)
Line Input #File, TextFromFile
strFinalText = strFinalText & TextFromFile
Loop
Close #File
ThisDrawing.ModelSpace.AddMText InsPnt,500,strFinalText

Hope this helps
Warren Medernach

 

Yep!