在 VBA 中读取大文本文件中的前几个字符

Question

我正在尝试在 excel 中读取大 (>15MB) 文件中的前几个字符。现在，我使用的是典型的：

Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)
For Each myFile In mySource.Files
    With New Scripting.FileSystemObject
        With .OpenTextFile(myFile, ForReading)
            test_str = .ReadLine
            'Do things
        End With
    End With
Next

问题在于大文件，我（相信）您将整个内容加载到内存中只是为了读取前几个字符。有没有办法只提取前 6 个字符？

Answer 1

An alternative to the FileSystemObject would be ADO

但是，你的声明

我（相信）您正在将整个内容加载到内存中，只是为了阅读 前几个字符。

错了。

我认为误导您的是，您在阅读第一行后并没有退出循环。您可以通过逐行阅读来获得所需的内容，但您不会立即关闭文件。始终关闭您在代码中启动的任何对象是一种很好的程序员习惯。不要只是让它悬而未决，也不要依赖环境来杀死它们。

考虑下面的代码作为你的替代代码，看看是否有任何效率差异

Option Explicit

' add references to Microsoft Scripting Runtime
' Tools >> References >> Microsoft Scripting Runtime
Sub Main()

    Dim fileName As String
    ' make sure to update your path
    fileName = "C:\Users\FoohBooh\Desktop\Project.txt"

    ReadTxtFile fileName


End Sub

Sub ReadTxtFile(fileName)

    Dim oFSO As New FileSystemObject
    Dim oFS As TextStream

    Set oFS = oFSO.OpenTextFile(fileName)

    Dim content As String
    content = oFS.ReadLine

    With Sheets(1).Range("A1")
        .ClearContents
        .NumberFormat = "@"
        .Value = content
    End With

    oFS.Close
    Set oFS = Nothing

End Sub

上面的代码将 .txt 文件的第一行读入第一张表的单元格 A1。请记住将 fileName 变量设置为完整路径。