批处理之家 - Powered by Discuz! Board

rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b
Option Explicit
Dim oFSO, oTextStream, oWshShell, oDOMDocument, s
Const f1 = "d:\1\" '原始文件的路径
Const f2 = "d:\2\" '解压后的路径，日志文件路径，临时文件路径
Const [7z] = "C:\Program Files\7-Zip\7z.exe" '7z的路径
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDOMDocument = CreateObject("Msxml2.DOMDocument")
oWshShell.Run "cmd.exe /c md """ & f2 & """", 0, True
s = oFSO.BuildPath(f2, "日志.txt")
Set oTextStream = oFSO.OpenTextFile(s, 8, True)
For Each s In oFSO.GetFolder(f1).Files
Call t(s.Path)
Next
oTextStream.Close()
wsh.Echo "ok"
Sub t(ByVal f)
Dim oXMLDOMElement, oTextStream1, s, t1, t2, p
s = Now() & " 开始处理文件 " & f
wsh.Echo s
oTextStream.WriteLine s
oDOMDocument.Load f
If oDOMDocument.parseError.errorCode <> 0 Then
s = Now() & " 无法识别的文件: " & f & vbCrLf
wsh.Echo s
oTextStream.WriteLine s
Exit Sub
End If
Set oXMLDOMElement = oDOMDocument.documentElement
s = Now() & " 开始读取解压密码"
wsh.Echo s
oTextStream.WriteLine s
If IsNull(oXMLDOMElement.getAttribute("UniqueCode")) Then
p = ""
s = Now() & " 无解压密码"
wsh.Echo s
oTextStream.WriteLine s
Else
p = oXMLDOMElement.getAttributeNode("UniqueCode").value
p = base64(p)
s = Now() & " 解压密码 " & p
wsh.Echo s
oTextStream.WriteLine s
End If
t1 = oFSO.BuildPath(f2, "临时文件.base64")
Set oTextStream1 = oFSO.OpenTextFile(t1, 2, True)
t1 = """" & t1 & """"
t2 = """" & oFSO.BuildPath(f2, "临时文件.zip") & """"
s = Now() & " 开始合并密文"
wsh.Echo s
oTextStream.WriteLine s
For Each s In oXMLDOMElement.SelectNodes("//@Value")
oTextStream1.Write s.text
Next
oTextStream1.Close()
s = Now() & " 合并密文结束，开始转换为zip文件"
wsh.Echo s
oTextStream.WriteLine s
oWshShell.Run "cmd.exe /c Certutil.exe -f -decode " & t1 & " " & t2, 0, True
s = Now() & " 转换为zip文件完成，开始解压缩"
wsh.Echo s
oTextStream.WriteLine s
s = """" & oFSO.BuildPath(f2, oFSO.GetBaseName(f)) & """"
s = """" & [7z] & """ x -y " & t2 & " -o" & s & " -p" & p
oWshShell.Run s, 0, True
s = Now() & " 解压缩完成" & vbCrLf
wsh.Echo s
oTextStream.WriteLine s
End Sub
Function base64(ByVal s)
Dim oNode, oStream
Set oNode = CreateObject("Msxml2.DOMDocument").CreateElement("base64")
oNode.DataType = "bin.base64"
oNode.Text = s
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 1 'adTypeBinary
oStream.Mode = 3 'adModeReadWrite
oStream.Open()
oStream.Write oNode.nodeTypedValue
oStream.Position = 0
oStream.Type = 2 'adTypeText
oStream.Charset = "GB2312" '必须与base64编码时的字符集相同
base64 = oStream.ReadText()
oStream.Close()
End Function

复制代码

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
pause
exit /b
#>
$srcDir = "." # 原始文件路径 - 文件夹
$dstDir = ".\解压后" # 解压后路径 - 文件夹
$7z = "7z.exe" # 解压工具 - 7z
$log = "xml解压日志.log" # 日志文件
$di0 = [IO.Directory]::CreateDirectory($dstDir)
$log = [IO.Path]::GetFullPath($log)
$xml_reader_settings = New-Object System.Xml.XmlReaderSettings
$xml_reader_settings.IgnoreWhitespace = $true
$buff = New-Object 'byte[]' -ArgumentList 64kb
Get-ChildItem -Path ("$srcDir\*" -replace '[\[\]]', '`$&') | Where-Object { $_ -is [IO.FileInfo] -and $_.FullName -ne $env:batchfile -and $_.FullName -ne $log } | ForEach-Object {
$msg = "`r`n$(Get-Date -Format 'HH:mm') 开始处理,文件名为:$($_.Name)"
$msg
$msg | Out-Host
$xml_reader = [System.Xml.XmlReader]::Create($_.FullName, $xml_reader_settings)
if (-not $?) { return }
$null = $xml_reader.MoveToContent()
if ($xml_reader.NodeType -eq 'Element') {
#第一种情况
#$xml_reader.Name|Out-Host
if ($xml_reader.Name -eq 'ZBFile' -and $xml_reader.ReadToDescendant('FileCont') -and $xml_reader.MoveToAttribute('Value')) {
try {
$msg = "$(Get-Date -Format 'HH:mm') 合并密文开始"
$msg
$msg | Out-Host
$zipName = [Guid]::NewGuid().ToString() + '.zip'
$zipPath = [IO.Path]::Combine($di0.FullName, $zipName)
$zipStream = New-Object System.IO.FileStream -ArgumentList ($zipPath, [IO.FileMode]::Create, [IO.FileAccess]::Write, [IO.FileShare]::None)
while (($readCount = $xml_reader.ReadContentAsBase64($buff, 0, $buff.Length)) -gt 0) {
$zipStream.Write($buff, 0, $readCount)
}
$zipStream.Close()
$zipStream = $null
$msg = "$(Get-Date -Format 'HH:mm') 合并密文结束"
$msg
$msg | Out-Host
$unzipDir = [IO.Path]::Combine($di0.FullName, $_.Name)
$msg = "$(Get-Date -Format 'HH:mm') 解压文件开始"
$msg
$msg | Out-Host
& $7z x -aoa -tzip -y "-o${unzipDir}" $zipPath | Out-Host
$msg = "$(Get-Date -Format 'HH:mm') 解压文件结束"
$msg
$msg | Out-Host
cmd /c ren $unzipDir ($_.BaseName) | Out-Host
if ($?) {
$msg = "$(Get-Date -Format 'HH:mm') 文件夹名字修改成功,修改为$($_.BaseName)"
} else {
$msg = "$(Get-Date -Format 'HH:mm') 文件夹名字修改失败: ${unzipDir} -> $($_.BaseName)"
}
$msg
$msg | Out-Host
Remove-Item -LiteralPath $zipPath
} finally {
if ($zipStream) { $zipStream.Close(); $zipStream = $null; }
}
trap {}
} elseif ($xml_reader.Name -eq 'ConstructProject' -and $xml_reader.MoveToAttribute('UniqueCode')) {
#第二种情况
try {
$pw = [System.Text.Encoding]::UTF8.GetString([Convert]::FromBase64String($xml_reader.ReadContentAsString()))
$msg = "$(Get-Date -Format 'HH:mm') 经过base64解密后的密码为${pw}"
$msg
$msg | Out-Host
#$null=$xml_reader.MoveToElement()
if ($xml_reader.ReadToFollowing('BidFileTable')) {
$msg = "$(Get-Date -Format 'HH:mm') 合并密文开始"
$msg
$msg | Out-Host
$zipName = [Guid]::NewGuid().ToString() + '.zip'
$zipPath = [IO.Path]::Combine($di0.FullName, $zipName)
$zipStream = New-Object System.IO.FileStream -ArgumentList ($zipPath, [IO.FileMode]::Create, [IO.FileAccess]::Write, [IO.FileShare]::None)
while ($xml_reader.Read()) {
if ($xml_reader.IsStartElement() -and $xml_reader.Name -match '^BidFile\d*$' -and $xml_reader.MoveToAttribute('Value')) {
while (($readCount = $xml_reader.ReadContentAsBase64($buff, 0, $buff.Length)) -gt 0) {
$zipStream.Write($buff, 0, $readCount)
}
}
}
$zipStream.Close()
$zipStream = $null
$msg = "$(Get-Date -Format 'HH:mm') 合并密文结束"
$msg
$msg | Out-Host
$unzipDir = [IO.Path]::Combine($di0.FullName, $_.Name)
$msg = "$(Get-Date -Format 'HH:mm') 解压文件开始"
$msg
$msg | Out-Host
& $7z x "-p${pw}" -aoa -tzip -y "-o${unzipDir}" $zipPath | Out-Host
$msg = "$(Get-Date -Format 'HH:mm') 解压文件结束"
$msg
$msg | Out-Host
cmd /c ren $unzipDir ($_.BaseName)
if ($?) {
$msg = "$(Get-Date -Format 'HH:mm') 文件夹名字修改成功,修改为$($_.BaseName)"
} else {
$msg = "$(Get-Date -Format 'HH:mm') 文件夹名字修改失败: ${unzipDir} -> $($_.BaseName)"
}
$msg
$msg | Out-Host
Remove-Item -LiteralPath $zipPath
}
} finally {
if ($zipStream) { $zipStream.Close(); $zipStream = $null; }
}
}
}
$xml_reader.Close()
} | Set-Content -LiteralPath $log -Encoding UTF8

复制代码