一个多行的text 如果把每一行放入一个字符串上呢?lineinput VB code: Private Sub Command1_Click() Dim TextLine
Open "d:\test.txt" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在调试窗口中显示数据。 Loop Close #1 ' 关闭文件。
End Sub
或用filesystem。teststream。readline VB code: Private Sub Command1_Click() Dim TextLine(100) as string i=0 Open "d:\test.txt" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 i=i+1 Line Input #1, TextLine(i) ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine(i) ' 在调试窗口中显示数据。 Loop Close #1 ' 关闭文件。
