fPath = "d:\log"
'待压缩的log文件所在目录
Rar = "C:\Program Files\WinRAR\winrar.exe"
'winrar安装路径
Set Ws = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File in FSO.GetFolder(fPath).Files '遍历文件
   Set Re = New RegExp '建立正则表达式
   Re.IgnoreCase = True '忽略大小写
   Re.Pattern = "^test\.(\d{8}_\d{2})\d{4}_\d{3}\.log$"
   '正则表达式模式
   For Each a in Re.Execute(File.Name) '遍历匹配集合
      Zip = fPath & "\" & a.SubMatches(0) & ".zip"
      '压缩后的文件路径及文件名
      Ws.Run """" & Rar & """ a -afzip -ep """ & Zip &_
""" """ & File & """",0,True
      '调用winrar压缩
   Next
   Set Re = Nothing
Next
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b *.log ^| findstr /v ".snapshot.log$"') do (
    set filename=%%a
    7z.exe a "!filename:~-23,-12!.zip" "%%a"
)
复制代码

@echo off
setlocal enabledelayedexpansion
set "rar=!ProgramFiles!\WinRAR\rar.exe"
for %%a in (*.log) do (
   set "var=%%a"
   set ar[!var:~-24,12!]=1
)
for /f "tokens=2 delims=[]" %%a in ('set ar[') do (
   %rar% a "%%a.rar" "*%%a????_???.log"
)
pause
复制代码