文件名：编码转换.vbs
on error resume next
Set WshShell=WScript.CreateObject("Shell.Application")
dirPath=WshShell.BrowseForFolder(0, "请选择路径", 0, "").items().item().path
if right(dirPath,1)<>"\" then dirPath=dirpath&"\"
ma=inputbox("请输入要转换为的编码","","Unicode")
if ma="" or dirPath="\" or msgbox("在使用前请确认已备份文件夹"&dirPath,1)=2 then WScript.Quit

'遍历文件夹下的文件
Set FSO = CreateObject("scripting.filesystemobject")
Set f = FSO.GetFolder(dirPath)
Set fs = f.files
For Each fileN in fs
FN=dirPath&fileN.name&""
if ".txt"=lcase(right(FN,4)) then Call WriteToFile(FN, ReadFile(FN, CheckCode(FN)), ma)
Next
Set FSO = Nothing
wscript.echo "全部成功"

'检测文件的编码
Function CheckCode (FileUrl)
Dim slz
set slz = CreateObject("Adodb.Stream")
slz.Type = 1
slz.Mode = 3
slz.Open
slz.Position = 0
slz.Loadfromfile FileUrl
Bin=slz.read(2)
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
Codes="UTF-8"
elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
Codes="Unicode"
else
Codes="GB2312"
end if
slz.Close
set slz = Nothing
CheckCode=Codes
End Function

'以指定的编码读取文件
Function ReadFile(FileUrl, CharSet)
On Error Resume Next
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
wscript.echo Str
ReadFile = Str
End Function

'以指定的编码写文件
Function WriteToFile (FileUrl, Str, CharSet)
On Error Resume Next
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function

TextForever (文本转换合并) V1.64 绿色版

打开这个纯绿色软件后，点“编码转换”，其它的设置问题，我想你一看就会明白的。关键是该软件还支持文件夹，及备份被转换的文件。



以下是软件说明：



这是一个专为整理电子版小说而开发的工具，提供以下功能：HTML->TXT转换、文件合并、TXT文件段落合并、TXT文件分行、编码（GB/GBK/Big5/Shift-JIS/Unicode）转换（只能用于Win 2k/XP）、文本替换、HTML代码整理、文件切分、文本提取、正则表达式、TCR批量压缩/解压，用于整理从Internet上下载的小说。软件原名FineReader，后更名为TextForever。

提供以下功能： 提供以下功能：HTML->TXT转换、文件合并、TXT文件段落合并、TXT文件分行、编码（GB/GBK/Big5/Shift-JIS/Unicode）转换（只能用于Win 2k/XP）、文本替换、HTML代码整理、文件切分、文本提取、正则表达式、TCR批量压缩/解压，用于整理从Internet上下载的小说。软件原名FineReader，后更名为TextForever。


下载最新版本：
http://down.orsoon.com/ϵͳ����/ϵͳ����/0612/TextForever.rar

一个中文GB及Big5内码转换工具。能够让你随pic/acd.gif心所欲地将简体文件转换成繁体文件。转换速度相当快和具有「简转繁列表」提高辨识率来更正GB转Big5后繁简异字的问题、支持同时转换多个文件文件、提供文件及剪贴簿内码转换，且无文件大小限制等。另外，也提供了转换前预览功能，可在转换前事先预览转换前后之文字。



ConvertZ v8.02 多国语言版

http://www.crsky.com/soft/720.html





批量字符编码转换工具

http://www.onlinedown.net/soft/59021.htm

支持几十种字符编码转换。比如utf8转gbk，gb2312转utf8,ansi转utf8,utf8 unicode 转换,utf8转换gb2312,utf16、utf32、utf8编码转换，gbk转换utf8，utf8 ascii转换。

2 强大正则表达式支持字符编码转换软件