原内容是分行的,看看代码如何改动才能分行显示(想一次性写入,但不用分行写入)。是不是读取时,回车符与换行符不读取。
Dim a As String
Dim b As String
b = ""
a = ""
FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
b = b & a
Loop
TextBox1.Text = b
FileClose(1)