在VB6中将文件写入txt

下面是我如何将文件写入txt的方法

Dim FileName As String
FileName = "C:\Users\Coda\Desktop\Calendar\file\" & clickDate & ".txt"
Dim Str1 As String, Val1 As Long
Open FileName For Output As #1
   Str1 = Text1.Text
   MsgBox ("Save")
   Write #1, Str1
Close #1

但它会自动在开头和结尾添加引号。 像这样

"Test1 
Test2 
Test3"

---

有什么办法可以去掉这些引语吗？

短篇小说-用打印而不是写

Write#语句用于将带有逗号分隔字段的记录写入顺序文件。Write#语句将自动将字符串字段括在引号中，并将日期字段括在磅符号中

Print#语句用于将格式化的数据字符串写入顺序文件

要以固定宽度格式创建记录，可以使用以下代码示例，例如：

Print #intFooBar, strEmpName; Tab(21); Format$(intDeptNbr, "@@@@"); _
Tab(30); strJobTitle; _
Tab(51); Format$(dtmHireDate, "m/d/yyyy"); _ 
Tab(61); Format$(Format$(sngHrlyRate, "#0.00"), "@@@@@")

---

短篇小说-使用打印而不是写

Write#语句用于将带有逗号分隔字段的记录写入顺序文件。Write#语句将自动将字符串字段括在引号中，并将日期字段括在磅符号中

Print#语句用于将格式化的数据字符串写入顺序文件

要以固定宽度格式创建记录，可以使用以下代码示例，例如：

Print #intFooBar, strEmpName; Tab(21); Format$(intDeptNbr, "@@@@"); _
Tab(30); strJobTitle; _
Tab(51); Format$(dtmHireDate, "m/d/yyyy"); _ 
Tab(61); Format$(Format$(sngHrlyRate, "#0.00"), "@@@@@")

---

谢谢，你帮了大忙。谢谢，你帮了大忙。