1岁泰迪牙齿掉了:VB中如何保存和读写多个text文件

'保存文本框确定的参数于文本文件
Private Sub Form_Unload(Cancel As Integer)
TxtgbwdS_sj = TxtgbwdS
Txtgbwdx_sj = Txtgbwdx
TxtZpwds_sj = TxtZpwds
TxtZpwdx_sj = TxtZpwdx
TxtPsqwds_sj = TxtPsqwds
Txtpsqwdx_sj = Txtpsqwdx
TxtGxzkd_sj = TxtGxzkd
TxtPsqzk_sj = TxtPsqzk
TxtBszkSet_sj = TxtBszkSet
TxtGxzkSet_sj = TxtGxzkSet
TxtBswdSet_sj = TxtBswdSet
Open "c:\ldgz\data.txt" For Output As #1
Write #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj, _
TxtPsqwds_sj, Txtpsqwdx_sj, TxtGxzkd_sj, TxtPsqzk_sj, TxtBszkSet_sj, TxtGxzkSet_sj, TxtBswdSet_sj
Close
Unload Me
End Sub

'打开在文本文件的参数赋值于文本框
Private Sub Form_Load()
On Error GoTo uerror'避免初次装载时无文本文件出错
Open "c:\ldgz\data.txt" For Input As #1
Input #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj, _
TxtPsqwds_sj, Txtpsqwdx_sj, TxtGxzkd_sj, TxtPsqzk_sj, TxtBszkSet_sj, TxtGxzkSet_sj, TxtBswdSet_sj
Close
TxtgbwdS = TxtgbwdS_sj
Txtgbwdx = Txtgbwdx_sj
TxtZpwds = TxtZpwds_sj
TxtZpwdx = TxtZpwdx_sj
TxtPsqwds = TxtPsqwds_sj
Txtpsqwdx = Txtpsqwdx_sj
TxtGxzkd = TxtGxzkd_sj
TxtPsqzk = TxtPsqzk_sj
TxtBszkSet = TxtBszkSet_sj
TxtGxzkSet = TxtGxzkSet_sj
TxtBswdSet = TxtBswdSet_sj
uerror:
End Sub

简单
你将所有的文本 内容写到一个随机文件中
然后在去读就可以
不过你要自己定义数据结构