批量修改文件编码

最近项目需要使用jspacker压缩javascript脚本文件。在网上搜索到Rob Seiler编写的packjs.wsf，很好用。惟一的缺点是，这个工具在压缩UTF-8编码的文件时，会出现乱码，而使用GB2312编码的JS文件就没有问题（不知道是不是和Windows默认的编码有关）。

 

由于项目的所有代码都是UTF-8编码，因此在部署时就得先把UTF-8的js转成GB2312，然后压缩，再把压缩后的文件转成UTF-8。

 

通过网络很快就找到了批处理转码的工具，但是。。。从UTF-8转GB2312是一个文件，GB2312转UTF-8是另一个文件。经过简单修改，一个能处理两种编码互相转换的文件诞生了。

 

以下代码保存为encode.vbs：

' *==============================================================================* ' * CMD 命令行编码转换工具包括GB2312,UTF-8,Unicode,BIG5 * ' * encode.vbs BY: colinlin1982@sohu.com 2010-07-01 * ' *==============================================================================* Usage1 = "语法１：encode.vbs [驱动器][目录][文件名] <charset>（直接替换原文件模式）" Usage2 = "语法２：encode.vbs [驱动器][目录][文件名] [目标驱动器][目录][新名称] <charset> /Ｙ" Usage3 = " 如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写！ " Usage4 = "命令行编码转换工具 BY: colinlin1982@sohu.com" Set objArgs=WScript.Arguments Set fso=CreateObject("Scripting.FileSystemObject") if objArgs.Count < 2 Then WScript.Echo(Usage1) WScript.Echo(Usage2) WScript.Echo(Usage3) WScript.Echo(Usage4) Wscript.Quit end if if not objArgs.Count < 4 Then ' 参数过多 Options="/y" ignoring=StrComp(objArgs(3), Options, vbTextCompare) if ignoring = 0 Then Sourcefile=objArgs(0) Getfile=objArgs(1) Charset=objArgs(2) else MsgBox "文件数量或参数太多 ", vbInformation, "程序意外终止" Wscript.Quit end if else if not objArgs.Count < 3 Then Sourcefile=objArgs(0) Getfile=objArgs(1) Charset=objArgs(2) if fso.FileExists(Getfile) then Choice = MsgBox ("待处理文件 '"+Sourcefile+"' ==> 目标文件 '"+Getfile+"' "&vbCrLf&"目标文件 '"+Getfile+"' 已存在，是否覆盖现有文件？",vbQuestion+vbYesNo,"确认覆盖目标文件") if not Choice = vbYes Then Wscript.Quit end if end if else Sourcefile=objArgs(0) Getfile=objArgs(0) Charset=objArgs(1) end if end if Call WriteToFile(Getfile, ReadFile(Sourcefile), Charset) Wscript.Quit '* 判断文件编码 Function GetCode (Sourcefile) Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 slz.Loadfromfile Sourcefile 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 GetCode = codes End Function '* 读取文件 Function ReadFile(Sourcefile) Dim Str oldChartset = GetCode(Sourcefile) Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = oldChartset stm.Open stm.loadfromfile Sourcefile Str = stm.readtext stm.Close Set stm = Nothing ReadFile = Str End Function '* 写入文件 Function WriteToFile (Getfile, Str, CharSet) Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.WriteText Str stm.SaveToFile Getfile,2 stm.flush stm.Close Set stm = Nothing End Function

 

以下代码保存为encode.bat：

@echo off dir %1 /A-D /B /S > encode.log for /f %%i in (encode.log) do ( CScript /nologo encode.vbs %%i %2 ) del encode.log

 

使用方法：

 

1. 单个文件转码：

 

rem 将指定文件转为目标编码charset rem 直接替换原文件模式 encode.vbs [驱动器][目录][文件名] <charset> rem 写入到目标文件模式, rem 如果目标新文件已存在,使用/Y参数后将直接替换而不提示是否改写! encode.vbs [驱动器][目录][文件名] [目标驱动器][目录][新名称] <charset> /Y rem 批量处理目录下的所有文件,包括子目录 encode.bat [驱动器][目录] <charset>

 

可以修改encode.bat适应不同的要求