Excel的VBA - 文本文件（二进制文件的导入）

Question

第一次发布的进口节 - 请温柔:)

我有一个大的文本文件（50MB左右），我们的工作服务器上坐着。该文件按升序排序。我想知道是否可以使用二进制搜索来搜索和导入与密钥匹配的文件部分。

例如，代码将占用512kb的文件，并查看我需要的数据是否在文件的该部分，如果不是，则移动到下一个512kb，直到找到我们需要的数据。另外，密钥会有几行（2K）数据，所以代码需要查找密钥的开始和结束点。

我希望在加载文件时只需加载具有用户需要的数据的文件部分即可节省时间。由于服务器速度较慢（特别是在远程连接时（即在家中工作）），每个小时都会生成一个新文件，因此将整个文件加载到报告中需要很长时间。有谁知道这是否可能？

非常感谢

Answer 1

不，这是不可能的加载您感兴趣的文件的唯一部分。这主要是由于这样的事实，你不能告诉哪里开始查看文件，你想写什么？开始查看12MB位置附近的50MB文件？

但是，你可以逐行读取文件中的行，而不必将整个文件第一次加载到内存中：

Public Sub ImportToExcel() 

Dim intCounter As Long 
Dim intPointer As Integer 
Dim strFileToImport As String 

'The location of the file you wish to load 
strFileToImport = "C:\tmp\test.csv" 

intPointer = FreeFile() 
Open strFileToImport For Input Access Read Lock Read As #intPointer 

intCounter = 1 
Do Until EOF(intPointer) 
    'Loading row by row from the text file into strLine 
    Line Input #intPointer, strLine 
    'Check if the "KeyYouAreLookingFor" can be found in that line 
    '... if it can be found then copy it to the first sheet 
    If InStr(1, strLine, "KeyYouAreLookingFor") Then 
     Worksheets(1).Cells(intCounter + 1, 1).Value2 = strLine 
     intCounter = intCounter + 1 
    Else 
     'If the key cannot be found but has been found in the past 
     '... then (following your logic that the file is sorted) 
     '... all other rows in the file can be ignored and 
     '... the import is complete: so the program should stop 
     If intCounter > 1 Then Exit Sub 
    End If 
Loop 

Close intPointer 

End Sub 

看一看在更多的解释代码中的注释，让我知道，如果这适合您的需要。

假设你50MB文本文件是,分隔CSV文件，你可以进一步细化上面的代码如下所示：

If InStr(1, Split(strLine, ",")(0), "KeyYouAreLookingFor") Then 

当然，这里假设你的“钥匙”是第一列中每一行。如果没有，只需根据自己的喜好进行适当调整即可。