求大神帮忙写个批处理

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
<# :
cls&echo off
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
#>
$newfolder="结果";
if(-not (test-path -liter $newfolder)){[void][IO.Directory]::CreateDirectory($newfolder)};
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$enc=[Text.Encoding]::GetEncoding('GB2312');
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
if($files.length -ge 1){
write-host $files[0].Name;
$text=[IO.File]::ReadAllText($files[0].FullName,$enc);
$text=$text -replace ' Date: \d{4}/\d{2}/\d{2} \d{2}:\d{2}:\d{2}','';
$newfile=$newfolder.trimend('\')+'\'+$files[0].Name;
[IO.File]::WriteAllText($newfile,$text,$enc);
}

谢谢，