使用VBS正则表达式查找前一行中的数据

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("data.txt", 1) ' 打开文本文件

Dim regex
Set regex = New RegExp
regex.Pattern = "your_pattern" ' 设置正则表达式模式

Dim previousLine
previousLine = ""

Do Until objFile.AtEndOfStream
    currentLine = objFile.ReadLine ' 读取当前行数据
    
    If regex.Test(previousLine) Then ' 匹配前一行数据
        ' 匹配成功，可以进行相应的处理
        ' 例如提取匹配到的数据
        Set matches = regex.Execute(previousLine)
        For Each match In matches
            ' 处理匹配到的数据
            MsgBox match.Value
        Next
    End If
    
    previousLine = currentLine ' 更新前一行数据
Loop

objFile.Close ' 关闭文件