在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

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

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

在VB6中将文件写入txt

Write file into txt in VB6

vb6