批处理提取同一目录下多个文本文件中的指定字符串的参数,并写入一...

发布网友 发布时间：2024-10-24 00:13

我来回答

共1个回答

热心网友 时间：5分钟前

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
<# :
cls&echo off&mode con lines=5000
rem 从多个txt文本文件里提取多个指定特征的字符串内容
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
$arr=@('','','');
$text=[IO.File]::ReadAllLines($files[$i].FullName,[Text.Encoding]::GetEncoding('GB2312'));
for($j=0;$j -lt $text.count;$j++){
$line=$text[$j].trim();
$m=[regex]::match($line,'inet addr.*?(\d+\.\d+\.\d+\.\d+)');
if($m.success){$arr[0]=$m.groups[1].value;}
$m=[regex]::match($line,'CPU.*?(\d+%)');
if($m.success){$arr[1]=$m.groups[1].value;}
$m=[regex]::match($line,'buffers/cache.*?(\d+)$');
if($m.success){$arr[2]=$m.groups[1].value;}
}
$arr;
}