Question

VB中把外部的TXT文本内容显示在 VB程序中的TEXT文本框里面怎么做的

Answer 1

Private Sub Command1_Click()
Text1.Text = ""
Dim st As String
Open "d:\f.txt" For Input As #1
Do While Not (EOF(1))
Line Input #1, st
Text1.Text = Text1.Text & st & Chr(13) & Chr(10)
Loop
Close 1
End Sub
文本框里面是我D盘下面f.txt内容。

Answer 2

dim str as string
dim tem as string
Open "文件路径.txt" For Input As #1
Open t For Output As #2
Do
Line Input #1, tem
str=str & vbcrlf & tem
Loop Until EOF(1)
Close
text1.text=str