Vbscript Split或regex命令从文本文件中提取任务名称和lastresult TaskName=YY_EF LastRunTime=“3/14/2016 10:30:00 PM”LastResult=1 TaskCommand=“C:\Windows\scripts\Tasks\FC\u CREATE”TaskState=已启用 StartTime=“10:30:00 PM”RunTime=“00:15:00”Days=“每1天”

“读日志

TaskName=YY_EF LastRunTime="3/14/2016 10:30:00 PM" LastResult=1 TaskCommand="C:\Windows\scripts\Tasks\FC_CREATE" TaskState=Enabled StartTime="10:30:00 PM" RunTime="00:15:00" Days="Every 1 day(s)"

Const ForReading=1
设置objFSO=CreateObject（“Scripting.FileSystemObject”）。
设置objTextFile=objFSO.OpenTextFile（“C:\scripts\”和u“sample.txt”，用于读取）。
当objTextFile.AtEndOfStream为True时，WScript.Echo vbCrLf和“作业记录”为True。
strLine=objtextFile.ReadLine
如果仪表（斯特林，“”），则。
arrRecord=split（strLine，“”）。WScript.Echo vbCrLf和arrRecord（0）以及“”和arrRecord（4）。
'WScript.Echo记录（4）。
i=i+1。
结束如果。
环
Echo vbCrLf&“读取的记录数：”&i。

这可能会满足您的需求：

Const ForReading = 1
Set objFSO=CreateObject("Scripting.FileSystemObject"). 
Set objTextFile = objFSO.OpenTextFile("C:\scripts\" & _ "sample.txt", ForReading). 
WScript.Echo vbCrLf & "Job Records" Do While objTextFile.AtEndOfStream <> True.
  strLine = objtextFile.ReadLine
  If inStr(strLine, " ") Then.
    arrRecord = split(strLine, " ").  WScript.Echo vbCrLf & arrRecord(0) & " " & arrRecord(4).
    'WScript.Echo arrRecord(4).
    i = i + 1.
  End If.
Loop.
Wscript.Echo vbCrLf & "Number of records read: " & i.

Const ForReading=1
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objTextFile=objFSO.OpenTextFile（“C:\scripts\”和u“sample.txt”，用于读取）
WScript.Echo vbCrLf和“作业记录”
当objTextFile.AtEndOfStream为True时执行此操作
strLine=objtextFile.ReadLine
如果仪表（斯特林，“”），则
arrRecord=split（strLine，“”）
如果（UBound（arrRecord，1）>3），则
如果（左（arrRecord（0），8）=“TaskName”），则
WScript.Echo“TaskName=”和Mid（arrRecord（0），10）
WScript.Echo“LastResult=”和Mid（arrRecord（4），12）
如果结束
如果结束
i=i+1
如果结束
环
Echo vbCrLf&“读取的记录数：”&i

Const ForReading = 1

Set objFSO=CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile("C:\scripts\" & _ "sample.txt", ForReading)

WScript.Echo vbCrLf & "Job Records"

Do While objTextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If inStr(strLine, " ") Then
    arrRecord = split(strLine, " ")
    If (UBound(arrRecord, 1) > 3) Then
        If (Left(arrRecord(0), 8) = "TaskName") Then
            WScript.Echo "TaskName = " & Mid(arrRecord(0), 10)
            WScript.Echo "LastResult = " & Mid(arrRecord(4), 12)
        End If
    End If
    i = i + 1
  End If
Loop
Wscript.Echo vbCrLf & "Number of records read: " & i