sed -n -r "s/KB[0-9]{6,7}/\n&\n/igp" WindowsUpdate.log | sed "/KB[0-9]\{6,7\}/!d" | sort | sed "$!N; /^\(.*\)\n\1$/!P; D" >KB.txt
复制代码

sed -n "s|http://.*/.*kb.*\.exe|\n&\n|ip" WindowsUpdate.log | sed "/^http:\/\/.*\/.*kb.*\.exe$/!d" >urls.txt
复制代码

Set FSO = CreateObject("Scripting.FileSystemObject")
Text = FSO.OpenTextFile("WindowsUpdate.log",1).ReadAll
CreateMyFile "kb[0-9]{6,7}","a.txt"
CreateMyFile "http://.*?\.exe","b.txt"
MsgBox "OK"

Sub CreateMyFile(Pattern,File)
   Set Re = New RegExp
   Re.Pattern = Pattern
   Re.Global = True
   Re.IgnoreCase = True
   For Each Match in Re.Execute(Text)
      If InStr(LCase(Str), LCase(Match)) = 0 Then
         Str = Str & Match & vbCrLf
      End If
   Next
   FSO.CreateTextFile(File,True).Write Str
   Str = ""
End Sub
复制代码

@echo off & setlocal enabledelayedexpansion
cd.>tmp.txt
for /f "tokens=2 delims=()" %%a in ('findstr /i  "KB" WindowsUpdate.log') do echo;%%a>>tmp.txt
set num=0
for /f "tokens=*" %%a in ('findstr /v /l /c:" " tmp.txt^|sort') do (
if not defined %%a set %%a=A&set /a num+=1&echo [!num!].%%a
)
echo 共 !num! 个升级补丁。
pause
set num=0
for /f "tokens=9" %%a in ('findstr /i "from to" WindowsUpdate.log^|findstr /i "exe psf"') do set /a num+=1&echo [!num!].%%a
echo 共 !num! 个升级地址。
pause
复制代码