假设我复制a.txt并命名了多个文件,比如1.txt;2.txt……现在每个文件内容里有一处名字跟文件名对应,因为复制的是a文件,所以所有txt现在文件内容里的名字都显示为a。我想把每个文件内容里的a批处理替换成他们各自文件名,求批处理命令代码。
不清楚你的实际文件/情况,仅以问题中的样例/说明为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起双击运行
<# :
cls&echo off&mode con lines=3000
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])});
if($files.length -ge 1){
$files[0].Name;
$enc=[Text.Encoding]::GetEncoding('GB2312');
$text=[IO.File]::ReadAllText($files[0].FullName, $enc);
$text=$text.replace('指定内容', $files[0].BaseName);
[IO.File]::WriteAllText($files[0].FullName, $text, $enc);
}
<# :
cls&echo off&mode con lines=3000
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])});
if($files.length -ge 1){
$files[0].Name;
$enc=[Text.Encoding]::GetEncoding('GB2312');
$text=[IO.File]::ReadAllText($files[0].FullName, $enc);
$text=$text.replace('指定内容', $files[0].BaseName);
[IO.File]::WriteAllText($files[0].FullName, $text, $enc);
}
温馨提示:答案为网友推荐,仅供参考