text - 为什么读取/写入另一个文件的 VB6 文本文件最后一行仅部分打印？

Question

我正在使用 VB6 以编程方式创建多个文本文件夹，然后将它们全部连接到一个文件中。

我使用

将文本写入文件

Print #lngFileHandle, Text  

所以即使在每个文件的最后一行文本之后也应该有一个 CR/LF。

然后我将所有这些“子文件”一起附加到另一个以这种方式打开的文本文件中:

Open strFileName For Append As #lngFileHandle

奇怪的是，我的最终结果文件看起来不错，除了最后一个附加文件的最后一行仅部分存在。

我正在读取的文件中的最后几行如下所示:

            `<Name>` Referral for Service Home Delivered Meals`</Name>`  
            `<Name>` Referral for Service Adult Day Care/Health`</Name>`  
            `<Name>` Referral for Service Congregate Meals`</Name>`  

但是从该文件读入并输出到最终文件后，它们看起来像这样:

            `<Name>` Referral for Service Home Delivered Meals`</Name>`
            `<Name>` Referral for Service Adult Day Care/Health`</Name>`
            `<Name>` Referral for Service Congr

我用来读取这个特定“子文件”并将其输出到最终文件的代码是:

With mobjNewEntriesLog
  Do While Not .IsEOF
    strOutput = .ReadLine
    mobjMainLog.PrintLine strOutput
  Loop
End With

.IsEOF函数如下:

Public Function IsEOF() As Boolean
  If blnOpened Then
    IsEOF = EOF(lngFileHandle)
  Else
    IsEOF = True
  End If
End Function

如果我根本没有得到最后一行，而只是得到其中的一部分，那对我来说会更有意义？--我不明白。

有人看到任何会使最后一行仅部分打印到最终文件的内容吗？

TIA。

Answer 1

确保您正在关闭文件，因为这可能需要清除所有待写入的数据。