VB中读取与保存*.TXT的问题。。急~~

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:35:46
一个保存按钮,一个读取按钮,29个TextBox,程序目录下有1.txt文件和1000.txt文件，1.txt文件中有29个数据，1000.txt文件留空。
我想把在1.txt文件中把29个数据分别读入到29个TextBox中，然后再存到1000.txt文件里面，而且1000.txt文件的格式和1.txt文件的格式相同，方便下次从1000.txt文件中读入数据。。。。

研究了一晚上没研究明白。。哪位大侠帮帮我，十分感谢！！
刚才忘记说了，我读入的按钮和那29个TextBox不在一个form里。。。。。。

文件的读取一般分为行模式、随机模式和二进制模式，根据你的题意，最好使用行模式。
在一个窗体模块中引用另一个窗体的控件，只需要在控件名前加上窗体名和一个“.”即可。
简易代码如下：
Dim B(1 To 29)
Private Sub Command1_Click()
Open "D:\1.txt" For Input As 1#
For i = 1 To 29
Line Input #1, B(i)
Next i
Close #1
Form2.Text1.Text = B(1)
Form2.Text2.Text = B(2)
'……
Form2.Show
End Sub

Private Sub Command2_Click()
Open "D:\1000.txt" For Output As 1#
For i = 1 To 29
Print #1, B(i)
Next i
Close #1
End Sub

先说说你是在那个方面还没有研究明白,才好帮你

Private Sub Command1_Click()
Dim arry(28)
Dim i As Integer
i = 0
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
MsgBox a
arry(i) = a
i = i + 1
Loop
Close #1
Text1.Text = arry(0)
Form2.Text1.Text = arry(1)
End Sub

Private