如何用批处理 给 TXT文本批量添加首行固定的文字 输出编码是UTF_8?
发布网友
发布时间:2022-05-31 13:33
我来回答
共1个回答
热心网友
时间:2023-10-16 02:18
不清楚你的实际文件/情况,仅以问题中的样例/说明为据;以下代码复制粘贴到记事本,另存为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"
set "newfolder=#result"
if not exist "%newfolder%" (md "%newfolder%")
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$insertword="首行固定的文字`r`n";
$newfolder=get-item -liter $env:newfolder;
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$enc=[Text.Encoding]::GetEncoding('UTF-8');
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
if($files.length -ge 1){
write-host $files[0].Name;
$text=$insertword+[IO.File]::ReadAllText($files[0].FullName,$enc);
$newfile=$newfolder.FullName+'\'+$files[0].Name;
[IO.File]::WriteAllText($newfile,$text,$enc);
}