Question

VB读取本地文件夹TXT问题，请教。

我做了一个简单的登陆系统form1是登陆界面，然后form2里面有10个TEXT文本筐。我想软件默认安装在目录下后分别在这10个TEXT（1到10）读取安装目录下的10个TXT文本里的10句话或者一个TXT文本里面包含了10句话，分别读取到FORM2里面的10个TEXT上。

Answer 1

如果10句话分别放在10个TXT文件里，10个文件的名称分别为1.txt、2.txt、3.txt……10.txt，则：
Private Sub Form_Load()
Dim i As Integer, s As String
For i = 1 To 10
Open App.Path & "\" & i & ".txt" For Input As #1
Line Input #1, s
Me.Controls("Text" & i).Text = s
Close #1
Next
End Sub

如果10句话放在同一个TXT文件里，文件名为1.txt，则：
Private Sub Form_Load()
Dim i As Integer, s As String
Open App.Path & "\1.txt" For Input As #1
For i = 1 To 10
Line Input #1, s
Me.Controls("Text" & i).Text = s
Next
Close #1
End Sub

要注意：10个Text文本框的名字一定要是Text1、Text2、Text3……Text10，而且数字要和TXT文件名（多个文件）或文件中的行号（单个文件）一一对应。

追问

不行哦，运行时 提示错误 输入超出文件尾的？我要你第一个方法

追答

TXT文件不能是空文件，至少要有1行文字，而且文件要放在当前工程所在文件夹内

Answer 2

这样太复杂了，不如做一个数据库，将10个文本框与这个数据库的相关字段相连就可以了。

Answer 3

如果10句话放在同一个TXT文件里，文件名为1.txt，则：
Private Sub Form_Load()
Dim i As Integer, s As String
Open App.Path & "\1.txt" For Input As #1
For i = 1 To 10
Line Input #1, s
Me.Controls("Text" & i).Text = s
Next
Close #1
End Sub
把For循环改一下：
do while not eof（1）
Line Input #1, s
Me.Controls("Text" & i).Text = s
end do

这样就判断是不是文件到底末尾了，就不会提示这个错误了。
参考。