vbs脚本实现批量转换文件编码

最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码，我们知道Linux系统中文本文件默认编码格式是UTF-8，而Windows中文系统中的默认编码格式是Gb2312。系统内的编码格式有所区别倒无伤大雅，关键的是SourceInsight竟不支持UTF-8，导致项目代码内的中文注释全部乱码！

既然SourceInsight不支持UTF-8编码的文件，那我们就得想办法将UTF-8的代码文件转化为GB2312编码的。首先想到的是到网上搜一下“批量编码转换工具”，结果下载后发现编码转换后的文件总是出现乱码，可能是工具的bug吧。既然不能使用工具转换，那就自己写一个程序进行编码转换，但是细想一下觉得C++/java的编码转换程序写起来又比较啰嗦，要是在Linux下写一个shell脚本就能轻松搞定了。还好Windows下有vbs脚本可以帮助我们轻松达到这个目的。

'函数名称:ReadFile

'作用:利用AdoDb.Stream对象来读取各种格式的文本文件

'-------------------------------------------------

Function ReadFile(FileUrl, CharSet)

    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

    ReadFile = Str

End Function

我们使用ReadFile函数读取文件，其中FileUrl指定文件的路径，CharSet指定文件的原始编码格式，使用adodb.stream对象读取文件内容到Str。

'函数名称:WriteToFile

'作用:利用AdoDb.Stream对象来写入各种格式的文本文件

'-------------------------------------------------

Function WriteToFile (FileUrl, Str, CharSet)

    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

然后使用WriteToFile将Str写回原文件FileUrl，并设定新的编码CharSet。

'函数名称:ConvertFile

'作用:将一个文件进行编码转换

发表评论 共有条评论 用户名: 密码: 验证码: 匿名发表