Excel中的VBA 7.0,Line Input似乎在该行周围添加了额外的引号

时间:2015-03-11 11:05:15

标签: excel vba excel-vba file-handling

我的文件包含以下行:

  

一个
  2个
  3个

当我从一个文件中读取并写入另一个文件时,它们最终被引用。它们也在观察窗口的变量中引用。

当我有一个文件时:

  

“一个”,“两个”,“三个”

最终写成:

  

“”“one”“,”“two”“,”“three”“”

有谁知道造成这种情况的原因是什么?我的文件扩展名为“.txt” 谢谢你的时间。

以下示例代码段:

Public Sub ReadAndWrite()

Dim fhInput As Integer
Dim fhOutput As Integer
Dim strSingleLine As String

fhInput = FreeFile()

Open "<your input file here>" For Input As #fhInput

fhOutput = FreeFile()

Open "<your output file here>" For Output As #fhOutput

Do While Not EOF(fhInput)
    Line Input #fhInput, strSingleLine
    Write #fhOutput, strSingleLine
Loop

Close (fhInput)
Close (fhOutput)

End Sub

1 个答案:

答案 0 :(得分:0)

实际上是Write语句将引号括起来。如果您不想要,请使用Print