复制粘贴到记事本,另存为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); }