在VB6中将文件写入txt

Question

这是我将文件写入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"

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

Answer 1

短篇故事 - 使用Print而不是Write。

该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"), "@@@@@")