Excel VBA脚本优化需求：从TXT日志提取关联内容至工作表

核心处理逻辑 #

• 逐行读取日志文件，同步记录行号与最近3行内容（用于快速回溯）
• 识别含|CREATED|/|UPDATED|的标识行后，立即锁定该行信息，继续向下查找以->结尾的关联行
• 根据标识行行号，通过缓存的行内容直接提取回溯2行的信息
• 将所有关联数据批量写入Excel指定工作表

完整VBA代码 #

Sub ExtractLogData()
    Dim logPath As String
    Dim logFile As Integer
    Dim currentLine As String
    Dim lineNum As Long
    Dim ws As Worksheet
    Dim outputRow As Long
    Dim flagLineContent As String
    Dim flagLineNum As Long
    Dim backtrackContent As String
    Dim lineBuffer(1 To 3) As String ' 缓存最近3行，快速取回溯内容
    
    ' 指定输出工作表，可自行修改表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    outputRow = 2 ' 第1行留作表头
    ' 写入表头
    ws.Cells(1, 1).Value = "标识行行号"
    ws.Cells(1, 2).Value = "标识行内容"
    ws.Cells(1, 3).Value = "回溯2行内容"
    ws.Cells(1, 4).Value = "关联->行内容"
    
    ' 让用户选择目标日志文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "文本日志文件", "*.txt"
        .AllowMultiSelect = False
        If .Show = -1 Then
            logPath = .SelectedItems(1)
        Else
            Exit Sub ' 用户取消选择则退出
        End If
    End With
    
    logFile = FreeFile
    Open logPath For Input As #logFile
    lineNum = 0
    
    Do Until EOF(logFile)
        lineNum = lineNum + 1
        Line Input #logFile, currentLine
        
        ' 更新行缓存：移除最早的一行，加入当前行
        lineBuffer(1) = lineBuffer(2)
        lineBuffer(2) = lineBuffer(3)
        lineBuffer(3) = currentLine
        
        ' 判断是否是目标标识行
        If InStr(currentLine, "|CREATED|") > 0 Or InStr(currentLine, "|UPDATED|") > 0 Then
            flagLineContent = currentLine
            flagLineNum = lineNum
            
            ' 获取回溯2行的内容（行号不足时提示）
            backtrackContent = IIf(lineNum >= 3, lineBuffer(1), "无有效回溯内容")
            
            ' 向下遍历，找到以->结尾的关联行
            Do Until EOF(logFile) Or Right(Trim(currentLine), 2) = "->"
                lineNum = lineNum + 1
                Line Input #logFile, currentLine
            Loop
            
            ' 将数据写入工作表
            ws.Cells(outputRow, 1).Value = flagLineNum
            ws.Cells(outputRow, 2).Value = flagLineContent
            ws.Cells(outputRow, 3).Value = backtrackContent
            ws.Cells(outputRow, 4).Value = currentLine
            
            outputRow = outputRow + 1
            ' 重置缓存，避免干扰下一轮匹配
            lineBuffer(1) = ""
            lineBuffer(2) = ""
            lineBuffer(3) = ""
        End If
    Loop
    
    Close #logFile
    MsgBox "数据提取完成！", vbInformation
End Sub

关键细节说明 #

• 行缓存设计：用长度为3的数组存储最近读取的3行，遇到标识行时直接取数组第一个元素，无需重新回读文件，提升效率
• 关联行匹配：标识行触发后，持续向下读取直到找到->结尾的行，确保标识行与关联行严格对应
• 灵活配置：工作表名可直接修改，表头可根据需求调整
• 容错处理：当标识行行号小于3时，自动提示无有效回溯内容，避免报错

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