VBA中根据文本文件的字节匹配位置计算对应行号

问题说明 #

VBA读取文本文件做关键词搜索时，可通过InStr()获取关键词在全文本中的匹配起始位置，现有基于平均行长度估算行号的方案误差极大，已知实测匹配位置对应实际文件第29行，相关统计值如下：

• InStrPos：7775（InStr()返回的匹配位置，原数值中的点为千分位分隔符）
• FileSize：494736（FileLen()获取的文件实际字节长度，磁盘占用495616字节为文件系统簇对齐导致，计算以该值为准）
• RowsInFile：1762（文件总行数，统计逻辑为全文本换行符数量+1）
• 原有错误逻辑：通过总文件大小/总行数得到平均每行280列有效数据，再用匹配位置除以平均列数估算行号，因每行实际长度存在差异、换行符占额外字节，结果完全不可用。

实现思路 #

放弃平均长度估算逻辑，直接统计匹配起始位置之前的文本片段中包含的换行符总数，换行符数量+1即为精确行号，无任何计算误差，性能开销与原有统计总行数的逻辑完全一致。

可直接复用的代码 #

将原有代码中If InStrPos > 0 Then分支替换为如下逻辑即可：

If InStrPos > 0 Then
    ' 获取文件字节长度
    FileSize = FileLen(strFullPath)
    
    With CreateObject("vbscript.regexp")
        .Global = True
        ' Windows格式文本换行符为\r\n，Unix/Linux格式文本请将Pattern改为"\n"
        .Pattern = "\r\n"
        ' 统计全文换行符数量得到总行数
        RowsInFile = .Execute(strFileContent).Count + 1
        ' 截取匹配位置前的子串，统计其中换行符数量，+1得到精确匹配行号
        Dim matchLineNum As Long
        matchLineNum = .Execute(Left(strFileContent, InStrPos)).Count + 1
    End With
    
    Debug.Print "匹配位置:" & InStrPos, vbTab, "文件大小:" & FileSize, vbTab, "总行数:" & RowsInFile, vbTab, "匹配行号:" & matchLineNum
End If

注意事项 #

• 若处理的是Unix/Linux生成的文本文件（换行符仅为\n，无\r），需要将正则匹配规则改为"\n"，否则换行符统计会出现偏差。
• 该方法不受每行长度差异、换行符占比影响，只要换行符匹配规则正确，返回的行号100%与实际文件行号一致。
• 注意VBA中Long类型为整数类型，不会返回带小数的位置、长度值，原数值中的点为部分地区的千分位分隔符写法，不要误判为小数点。

内容的提问来源于stack exchange，提问作者user11311005