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

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个字符间距）

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