Excel VBA实现按Tag分组的Before/After日志文件有序处理问询

核心思路 #

放弃Dir函数逐个读取的方式，先把所有目标文件收集到数组中，再按测试编号→Tag数字索引→Before/After顺序的规则自定义排序，最后按排序后的顺序处理（可配对处理同Tag同Test的Before和After文件）。

具体实现代码（VBA） #

Sub ProcessFilesInOrder()
    Dim targetPath As String
    Dim allFiles As Collection
    Dim file As Variant
    Dim sortedFiles() As String
    Dim i As Integer, j As Integer
    Dim temp As String
    
    ' 替换成你的实际文件存储路径
    targetPath = "C:\Your\Target\Folder\"
    
    ' 收集所有包含Before/After的.log文件
    Set allFiles = New Collection
    file = Dir(targetPath & "*.log")
    Do While file <> ""
        If InStr(LCase(file), "before") > 0 Or InStr(LCase(file), "after") > 0 Then
            allFiles.Add file
        End If
        file = Dir
    Loop
    
    ' 集合转数组，方便排序
    ReDim sortedFiles(1 To allFiles.Count)
    For i = 1 To allFiles.Count
        sortedFiles(i) = allFiles(i)
    Next i
    
    ' 自定义冒泡排序（文件少的话足够用，文件多可以换快速排序）
    For i = 1 To UBound(sortedFiles) - 1
        For j = i + 1 To UBound(sortedFiles)
            If CompareFiles(sortedFiles(i), sortedFiles(j)) > 0 Then
                temp = sortedFiles(i)
                sortedFiles(i) = sortedFiles(j)
                sortedFiles(j) = temp
            End If
        Next j
    Next i
    
    ' 按排序后的顺序处理文件，支持配对处理Before/After
    For i = 1 To UBound(sortedFiles)
        ' 这里替换成你的文件处理逻辑，比如打开、读取、分析文件
        Debug.Print "正在处理: " & targetPath & sortedFiles(i)
        
        ' 检查下一个文件是否是当前文件的配对（同Tag同Test的Before/After）
        If i < UBound(sortedFiles) And IsPair(sortedFiles(i), sortedFiles(i + 1)) Then
            Debug.Print "配对处理: " & targetPath & sortedFiles(i + 1)
            ' 这里添加配对处理的代码
            i = i + 1 ' 跳过已处理的配对文件
        End If
    Next i
End Sub

' 自定义文件比较规则：Test编号优先，然后Tag数字，最后Before在前
Private Function CompareFiles(file1 As String, file2 As String) As Integer
    Dim testNum1 As Integer, testNum2 As Integer
    Dim tagNum1 As Integer, tagNum2 As Integer
    Dim isBefore1 As Boolean, isBefore2 As Boolean
    
    testNum1 = ExtractNumber(file1, "Test")
    testNum2 = ExtractNumber(file2, "Test")
    tagNum1 = ExtractNumber(file1, "Tag")
    tagNum2 = ExtractNumber(file2, "Tag")
    isBefore1 = (InStr(LCase(file1), "before") > 0)
    isBefore2 = (InStr(LCase(file2), "before") > 0)
    
    ' 先比Test编号
    If testNum1 <> testNum2 Then
        CompareFiles = testNum1 - testNum2
        Exit Function
    End If
    ' 再比Tag数字（解决Tag10排在Tag2前面的问题）
    If tagNum1 <> tagNum2 Then
        CompareFiles = tagNum1 - tagNum2
        Exit Function
    End If
    ' 最后比Before/After，Before排前面
    CompareFiles = IIf(isBefore1 Xor isBefore2, IIf(isBefore1, -1, 1), 0)
End Function

' 提取指定前缀后的数字（比如从Tag10、Test2中提取10、2）
Private Function ExtractNumber(fileName As String, prefix As String) As Integer
    Dim startPos As Integer, endPos As Integer
    startPos = InStr(fileName, prefix) + Len(prefix)
    endPos = startPos
    Do While endPos <= Len(fileName) And IsNumeric(Mid(fileName, endPos, 1))
        endPos = endPos + 1
    Loop
    ExtractNumber = CInt(Mid(fileName, startPos, endPos - startPos))
End Function

' 判断两个文件是否是同Tag同Test的Before/After配对
Private Function IsPair(file1 As String, file2 As String) As Boolean
    Dim testNum1 As Integer, testNum2 As Integer
    Dim tagNum1 As Integer, tagNum2 As Integer
    Dim isBefore1 As Boolean, isBefore2 As Boolean
    
    testNum1 = ExtractNumber(file1, "Test")
    testNum2 = ExtractNumber(file2, "Test")
    tagNum1 = ExtractNumber(file1, "Tag")
    tagNum2 = ExtractNumber(file2, "Tag")
    isBefore1 = (InStr(LCase(file1), "before") > 0)
    isBefore2 = (InStr(LCase(file2), "before") > 0)
    
    IsPair = (testNum1 = testNum2) And (tagNum1 = tagNum2) And (isBefore1 Xor isBefore2)
End Function

关键说明 #

1. 排序逻辑：彻底解决Dir的字母排序问题，比如Tag10会排在Tag9后面，Test2的文件会和Test2的其他Tag文件放在一起。
2. 配对处理：自动识别同Tag同Test的Before和After文件，可一次性处理配对文件，减少重复代码。
3. 灵活性：如果文件数量极大，把冒泡排序换成快速排序即可，核心的比较规则不需要改动。

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