bat批处理将txt文本编码utf-8转换成ANST格式

复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行

这类软件很多，但是一旦文件数量太大，基本这些小软件都会崩掉，找到一个大神写的bat，实测60万txt文档，半小时全部转完。

<# :
cls
@echo off
rem 将多个txt由UTF-8编码转化为ANSI编码
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]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$path=$args[0];
$oldenc=[Text.Encoding]::UTF8;
$newenc=[Text.Encoding]::Default;
$newfolder=$path+'#result';
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};
$files=@(dir -liter $path|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
write-host $files[$i].Name;
$text=[IO.File]::ReadAllText($files[$i].FullName, $oldenc);
$newfile=$newfolder+'\'+$files[$i].Name;
[IO.File]::WriteAllText($newfile, $text, $newenc);
}

未经允许不得转载：郑州seo|不知则问,不能则学!-郑州seo笔记 » bat批处理将txt文本编码utf-8转换成ANST格式