Visual Basic "Line By Line" text file.

[Hexes]

Ok i am making program wicth has from txt file put lines from first to last.

well If i code it like this:
----

nFileNum = FreeFile
 
Open "C:/VB/VB.txt" For Input As nFileNum
 
FreeNum = 1
 
    While Not EOF(nFileNum)
    Line Input #nFileNum, sData
    Text1.Text = sData
    Wend
 
Close #1

----
But then it only shows me the last line and if i do without EOF it only shows me first line. so Please help, whats wrong?

[Rabbit]

Ok i am making program wicth has from txt file put lines from first to last.

well If i code it like this:
----
nFileNum = FreeFile

Open "C:/VB/VB.txt" For Input As nFileNum

FreeNum = 1

While Not EOF(nFileNum)
Line Input #nFileNum, sData
Text1.Text = sData
Wend

Close #1
----
But then it only shows me the last line and if i do without EOF it only shows me first line. so Please help, whats wrong?

When you do Text1.Text = sData, whatever was in Text1.Text is replaced with whatever's in sData during each iteration of the loop.

What you want is Text1.Text = Text1.Text & chr(13) & sData.
This will take whatever is in Text1.Text, add a new line character chr(13), and then concatenate whatever's in sData.

[Killer42]

When you do Text1.Text = sData, whatever was in Text1.Text is replaced with whatever's in sData during each iteration of the loop.

What you want is Text1.Text = Text1.Text & chr(13) & sData.
This will take whatever is in Text1.Text, add a new line character chr(13), and then concatenate whatever's in sData.

You're on the right path, but use vbNewline rather than Chr(13). Also, I think the textbox will need to have the Multiline property set to True.

[Hexes]

Hmm ok what ever let it be, but ok like i have text file... it has 20 lines, and into text1.text i want to put like line number 12, what I have to do?

[iburyak]

Dim Counter as integer

nFileNum = FreeFile

Open "C:/VB/VB.txt" For Input As nFileNum

FreeNum = 1

While Not EOF(nFileNum)
Line Input #nFileNum, sData
Counter = Counter + 1
IF Counter = 12 then Text1.Text = sData
Wend

Close #1