Question

VB6同一个工程中多个窗体中的text文本框按一定格式存入txt文件格式中

例如：一个VB6工程中,添加有3个窗体
窗体form1中有1个按钮，4个text文本框。
窗体form2中有1个按钮，3个text文本框。
窗体form3中有1个按钮，2个text文本框。

把窗体form1中5个text文本框分别输入1、2、3、4数值，按一下按钮，数据保存到D盘中的123.txt文件中，格式为：
张一：1 张二：2 张三：3
张四：4
把窗体form2中3个text文本框分别输入5、6、7数值，按一下按钮，数据累积保存到D盘中的123.txt文件中，格式为：
张一：1 张二：2 张三：3
张四：4 张五：5 张六：6
张七：7
把窗体form3中2个text文本框分别输入8、9数值，按一下按钮，数据累积保存到D盘中的123.txt文件中，格式为：
张一：1 张二：2 张三：3
张四：4 张五：5 张六：6
张七：7 李四：8 王麻子：9

（每次保存不能抹煞上次的数据，只能依据这种格式一直保存下去，每个数据间空6个字符间距。）
请提供具体代码！
三楼，你好！form2中的数据需要紧随form1中数据,例如张四占居第二行的头一排后，张五就要空6个字符紧随张四的后面。而不能直接存到下一行！

Answer 1

form1中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "张一：", Text1.Text
Write #1, "张二：", Text2.Text
Write #1, "张三：", Text3.Text
Write #1, "张四：", Text4.Text
Close
End Sub

form2中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "张五：", Text1.Text
Write #1, "张六：", Text2.Text
Write #1, "张七：", Text3.Text
Close
End Sub

form3中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "李四：", Text1.Text
Write #1, "王麻子：", Text2.Text
Close
End Sub

上面都是分行保存，如果在一行保存：
Write #1, "张一：", Text1.Text & " ", "张二：", Text2.Text & " ", "张三：", Text3.Text & " ", "张四：", Text4.Text
写在一行即可。" "是各记录中的空格（每个数据间空6个字符间距）

Answer 2

使用open fname for apend as #1这种方式可以向文件中追加数据