Question

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

VB6同一个工程中多个text文本框按一定格式存入txt文件格式中（相邻文本框内容用符号隔开）,同时保存的txt文件名为当前日期和其中一个text文本框的内容，求高手解答
我用以下代码写的，大家看看有什么问题没？
Private Sub save_Click()
'保存文件名为当前日期时间和文本框内容为名称的文件
Dim a, b As String
a = t1.Text
b = t2.Text
Open App.Path & "\" & Year(Now) & "" & Month(Now) & "" & Day(Now) & a & ".txt" For Output As #1
Print #1, "<" & a & ">" & vbCrLf & "<" & b & ">" & vbCrLf
Close #1
End Sub

Answer 1

一般的记录很少有保存到文本文件中的，一般都是使用的数据库，数据库方便多了
你要的代码我刚刚试试写了一下，在窗体上添加4个TEXT控件和一个按钮控件
分别命名为，Text1，Text2，Text3，Text4和Command1 并复制下面的代码
Private Sub Command1_Click()
Dim a, b, c, d As String
Dim Name As String
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
Name = App.Path & "\" & Date & "---" & a & ".txt"
Open Name For Append As #1
Print #1, a & "-----" & b & "-----" & c & "-----" & d & vbCrLf
Close #1
End Sub

这样生成EXE文件后就可以以当前日期和TEXT1里面的内容换行保存4个TEXT控件的内容，每个内容之间用"-----"隔开，谢谢我的回答完毕。

以你上面附加的问题上面来看，如果你是一次性写入是没有什么问题的，如果要多次写入的话
Open App.Path & "\" & Year(Now) & "" & Month(Now) & "" & Day(Now) & a & ".txt" For Output As #1 就要改成Open App.Path & "\" & Year(Now) & "" & Month(Now) & "" & Day(Now) & a & ".txt" For Append As #1 因为 Output 是保存而Append是添加如果你那样写的话，程序只能记录一次，主要还是要看你需要什么样的效果了，谢谢我的补充回答完毕。

Answer 2

错误捕捉你可能发生的任何错误。即使文本中输入不合法一样可以捕捉到。
在窗体上添加4个TEXT控件和一个按钮控件
分别命名为，Text1，Text2，Text3，Text4和Command1 并复制下面的代码
Private Sub Command1_Click()
On Error GoTo FileCreateErr

Dim a, b, c, d As String
Dim Name As String
a = Text1
b = Text2
c = Text3
d = Text4
Name = App.Path & "\" & Date & "---" & a & ".txt"
Open Name For Append As #1
Print #1, a & "-----" & b & "-----" & c & "-----" & d & vbCrLf
Close #1
Exit Sub
FileCreateErr:
MsgBox Err.Description, vbOKOnly, "Err"
End Sub

Answer 3

你的问题描述不够清楚，另外windows的文件名中最大字符数是有限制的，并且有些特定字符是不能被写入的。

Answer 4

这问题很简单，可以做个现成的代码，不过没多大意义
会保存一个就应该会保存多个，不知道楼主知道会保存一个不会？