[VBS]文件批量转编码

工作中需要将大量GB2312编码的文件转换为UTF-8编码，Baidu找了一段很实用的VBS可以有效解决问题。
使用方法也很简单，添加到工程调用ConvertFile即可。需要注意的是Adodb.Stream方式生成的UTF-8文件的头部会抱憾3个字节的BOM，处理PHP之类的无BOM要求的文件时需要注意一下。

Function ConvertFile(FileUrl)
SrcCode = "gb2312"    ‘源编码
DestCode = "utf-8"       ‘目标编码
Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode)
End Function

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

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

参考 http://www.cnblogs.com/fanzhidongyzby/p/3782143.html http://blog.csdn.net/caikanxp/article/details/5614901

--------------------------------------------------------------------------------------

- 版权声明：

- 如在本页面内无特别说明，本文内容均为[李大仁博客]原创，本文版权归[李大仁博客]所有。

- 欢迎转载，转载请务必在文章页面明显位置提供原文链接并注明出处。欢迎您在转载本文时保留本段声明。

- 文章标题： [VBS]文件批量转编码

- 独立博客：李大仁博客

- 永久链接：http://www.lidaren.com/archives/1632

--------------------------------------------------------------------------------------

以上内容由博客自动发布工具自动发布，最终显示内容和效果会与原文内容有所偏差，敬请谅解。