各位：
请大家伸手帮我解决一个小问题：
如何将运行结果输出到记事本中，并且有中文题目，在追加输出的过程中，中文题目只出现一次，这个小程序如何编写？请麻烦各位给予帮助。在此先谢谢。

Private Sub Command1_Click()
Dim nFile As Integer
Dim str As String
nFile = FreeFile
Open "f:\myfile.txt" For Append As nFile
str = Text1.Text
Print #nFile, str
Close nFile
End Sub

你好
你辛苦了，先谢谢你。
我的意思是如下：
1、我已试过多次了，但没有成功，不知原因为何？
2、我想要的结果和形式如下（颜色字体）：
输出格式：
第一行是文字 ： 例如， 年 月 日
第二行是数字或其他内容与第一行相对应，07 06 03
第三行是数字或其他内容与第一行相对应，07 06 08
第四行是数字或其他内容与第一行相对应，07 06 10
……
……

这个txt文件中，只有第一行是文字（不一定是年月日的格式，这里只是举例而已），而从第二行以后的内容是数字或其他内容，你看如何解决？给你添麻烦了，再次谢谢你。

乍地这贴固顶了?

肯定是你点错固顶的。

如何取消这固顶

晕啊，这贴咋置顶？我取了吧

你对这论坛不了解吗？这是动网论坛版本，我比较熟悉。

这是我误操作了，那会儿置顶《[分享]注意!注意!,vb pk专区现在试验运行.》时误操作了。

呵呵...我确是不了解这论坛...