rtfText loading files

[Guest_imported]

Hi
Does anyone know how to load the contents of a variable into an rtfText control? i.e. if you have loaded an rtf file into a variable:

open rtffile for input as #1
do until eof(1)
line input #1 templine
alltext = alltext & templine
loop

and then did any modifications to alltext you wanted, can you send alltext to the rtfText box without saving alltext in a file?

 

[sunaj]

hi,

what about
RichTextBox1.TextRTF = MyString

-by the way
--------------------------------------------------
infile=freefile
open rtffile for binary as #infile
MyString=string(lof(infile)," &quot
Get #infile, 1, MyString
Close #infile
------------------------------------------------
is faster

Sunaj

 

[Crundy]

OK, The load bit works.
The binary method of opening the file doesn't work though, did I mistype something?

 

[sunaj]

Hi,

I've tested this and it works (for me). It should also work fine for you:
---------------------------------------------------------
Dim InFile As Byte, MyString As String
InFile = FreeFile
Open "c:\tmp\test.txt" For Binary As #InFile
MyString = String(LOF(InFile), " &quot
Get #InFile, 1, MyString
Close #InFile
----------------------------------------------------------


Sunaj