_FileReadToArray($file_name,$aArray2)
$lion=""
$er=0
For $l=$t to $e
$lion4=StringInStr($aArray2[$l], "errors")
$lion1=StringInStr($aArray2[$l], "critical")
$lion2=StringInStr($aArray2[$l], "alerts")
$lion3=StringInStr($aArray2[$l], "cemergencies")
if $lion4 <> 0 or $lion1 <> 0 or $lion2 <> 0 or $lion3 <> 0 Then
$f=1
$errors[$b]=$l-$t+1+37
$b=$b+1
endif
$lion= $lion & $aArray2[$l] & @CRLF
Next
if $f=1 Then
Msgbox(16,'注意', 'Sh logging 有错误信息',5)
$objTable.Cell(12,1).Range.Text = "内容信息: " & @crlf
$objTable.Cell(12, 1).Range.InsertAfter ($lion)
Endif
for $g=1 to $b-1
with $oDoc.paragraphs.item($errors[$g])
.range.font.color=255
EndWith
next |