【已解决】批处理能否截取一短时间内的Log另存为新的Log？

w31575801 · 发表于 2020-11-26 09:33:22

回复 26# flashercs

附件已上传您再给看看编辑一下

flashercs · 发表于 2020-11-26 17:28:05

回复 31# w31575801

log中还有些行开头不是时间格式,里面还有叹号!

<#*,:&cls
@echo off
pushd "%~dp0"
powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath "%~0" -ReadCount 0 | Out-String ))) "
popd
pause
exit /b
#>
# 起始时间
$dtmBegin = "02:31:37.501"
# 终止时间
$dtmEnd = "03:42:00.140"
$logglob = "*.log"
$dtmLength = $dtmBegin.Length
$dtmFormat = "[0-9][0-9]:[0-9][0-9]:[0-9][0-9].[0-9][0-9][0-9]"
$buffer = 65536
# utf8-nobom
$encoding = New-Object System.Text.UTF8Encoding -ArgumentList @($false)
foreach ($logfile in (Convert-Path -Path $logglob | Where-Object { Test-Path -LiteralPath $_ -PathType Leaf })) {
Write-Host $logfile -ForegroundColor Green
try {
$stream1 = New-Object System.IO.FileStream -ArgumentList @($logfile, [System.IO.FileMode]::Open, [System.IO.FileAccess]::Read, [System.IO.FileShare]::ReadWrite, $buffer)
$stream2 = New-Object System.IO.FileStream -ArgumentList @($logfile, [System.IO.FileMode]::Open, [System.IO.FileAccess]::Write, [System.IO.FileShare]::Read, $buffer)
$sr = New-Object System.IO.StreamReader -ArgumentList @($stream1, $encoding, $true, $buffer)
$sw = New-Object System.IO.StreamWriter -ArgumentList @($stream2, $encoding, $buffer)
$flag = $false
while (!$sr.EndOfStream) {
$strLine = $sr.ReadLine()
$dtmStr = $strLine.Substring(0, [Math]::Min($dtmLength, $strLine.Length))
if ($dtmStr -notlike $dtmFormat) {
$sw.WriteLine($strLine)
continue
}
if (!$flag) {
if ($dtmStr -ge $dtmBegin) {
if ($dtmStr -lt $dtmEnd) {
$sw.WriteLine($strLine)
$flag = $true
} else {
break
}
}
} else {
if ($dtmStr -lt $dtmEnd) {
$sw.WriteLine($strLine)
} else {
$flag = $false
break
}
}
}
$sw.Flush()
$stream2.SetLength($stream2.Position)
} catch {
$_ | Write-Host -ForegroundColor Red
} finally {
if ($sr) {
$sr.Dispose()
}
if ($sw) {
$sw.Dispose()
}
if ($stream1) {
$stream1.Dispose()
}
if ($stream2) {
$stream2.Dispose()
}
}
}

复制代码

w31575801 · 发表于 2020-11-27 01:29:40

回复 32# flashercs

已采纳，万分感谢

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 【已解决】批处理能否截取一短时间内的Log另存为新的Log？