此代码将日志文件写入LogFilePath,并生成如下输出。 StarRange和EndRange是一个变量,其值将从其他函数填充。
"Start postion",A1
"End position",B100
---Code-----------------
Sub WriteLogFile()
Dim FilePath As String
LogFilePath = WriteTextBox.Text
LogFilePath = LogFilePath & ".log"
Open LogFilePath For Output As #2
Write #2, "Start postion"; StarRange
Write #2, "End position"; EndRange
Close #2
MsgBox FinalFileName
End Sub
我的问题是如何从输出中删除双引号并生成输出,如下所示。感谢
Start position = A1
End position = B100
答案 0 :(得分:66)
Write
是一个特殊声明,旨在生成稍后与Input
一起使用的机器可读文件。
使用Print
避免任何摆弄数据。
Print #2, "Start postion = "; StarRange
Print #2, "End position = "; EndRange