Question

VB怎样把文本文档里的不同段落的文字读取到不同的文本框中？

我关闭程序保存时的代码是：
Private Sub Form_Unload(Cancel As Integer)
Open "D:\YY.txt" For Output As #1
Print #1, TextBox1.Text
Print #1, TextBox2.Text
Print #1, TextBox3.Text
Print #1, TextBox4.Text
Print #1, TextBox5.Text
Print #1, TextBox6.Text
Close #1
End Sub
这样就在同一个文本文档（.txt）中保存了6个段落，我现在想在打开程序时分别读取回对应的文本框
简单说就是起到一个保存的作用，在打开时可以看到保存的内容。

Answer 1

Private Sub Form_Load()
Dim I As Integer, S As String
Open "D:\YY.txt" For Input As #1
Do While Not EOF(1)
I = I + 1
Line Input #1, S
Me.Controls("Text" & CStr(I)).Text = S
Loop
Close 1
End Sub

Answer 2

Private Sub Form_Load()
If Dir("D:\YY.txt") = "" Then Exit Sub
Open "D:\YY.txt" For Input As #1
Line Input #1, a
Line Input #1, b
Line Input #1, c
Line Input #1, d
Line Input #1, e
Line Input #1, f
Close #1
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
End Sub

追问

这个a~f是赋值吧？

追答

是啊，先取出，后赋值

Answer 3

Private Sub Form_Load()
Open "D:\YY.txt" For Input As #1
Line Input #1, TextBox1.Text
Line Input #1, TextBox2.Text
Line Input #1, TextBox3.Text
Line Input #1, TextBox4.Text
Line Input #1, TextBox5.Text
Line Input #1, TextBox6.Text
Close #1
End Sub