Question

我有一个日志文件，我需要从中提取所有内容＆＃34; Ath响应如下：＆＃34;直到＆＃34;结束了反应＆＃34;，我对vbs相当新，可以请某人建议实现此目的。

示例日志： -

background-size: contain;

Answer 1

试试这段代码。它读入名为 myLog.log 的文件，并输出名为 result.log 的文件。

option explicit
dim fso, myLog, oneLine, insideBlock, textBlock, markerFound
set fso = CreateObject("Scripting.FileSystemObject")
set myLog = fso.OpenTextFile("MyLog.Log")
insideBlock = false
markerFound = false
textBlock = ""
do while not myLog.AtEndOfStream
    oneLine = myLog.readLine
    markerFound = instr(lcase(oneLine),"ath response")>0
    if insideBlock then
      if not markerFound then
        textBlock = textBlock & oneLine & vbcrlf
      else
        exit do
      end if
    else
      insideBlock = markerFound
    end if
Loop
myLog.Close
set myLog = fso.CreateTextFile("result.log")
myLog.Write(textBlock)
myLog.Close

从日志文件中提取特定数据

1 个答案: