Import data from text file

[keviny22]

I am reading data from a text file into a text box. When the data comes up it reads a b c d e f g (with a CarriageReturn symbol between each letter) In the text file the letters are on different lines. Any help would be great.

[Kreuzfeld]

If you don't want to ahve CRLF in your string you have to look for

Chr(13) & Chr(10)

and make a Filter

CU
Kreuzfeld

[keviny22]

?

[keviny22]

It's not that I dont want the CRLF. I want the action of CRLF not the CRLF character.

[Kreuzfeld]

for i=1 to StringLength do

if (string(i) <> Chr(13)) OR (string(i) <> Chr(10)) then
NewString = NewString & string(i)
end if

next i


try this
maybe it works :-)

[nswan]

dim s as string

open filename "c:\temp.txt" for input as #1

do until EOF(1)
input #1, s
textbox = textbox & s
loop

close #1


i think this is what you are asking for.
you might need to add microsoft scripting runtime as a refernce as well.

Nick

[keviny22]

I tried this, but it still returning the CrLf symbol and not performing the CrLf action.

Dim s As String
Dim fn As Integer
fn = FreeFile

Open strName For Input As #fn

Do Until EOF(1)

txtContents = Input(LOF(fn), #fn) & s
Loop

Close #fn

[nswan]

have you got the text box set to multiline?

if so, just check all the chars in the string for vbcrlf. If you find one, replace it with a space, and start a new line in the textbox.

Nick

[keviny22]

MultiLine, why didn't I think of that. This has been killing me. Thanks, that was it. The easy answer.