在VB6中将文件写入txt

在VB6中将文件写入txt,vb6,Vb6,下面是我如何将文件写入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

下面是我如何将文件写入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"), "@@@@@")

谢谢,你帮了大忙。谢谢,你帮了大忙。