[VBS]文件批量转编码

Jan 11, 2016#vb #vbscript58

AI-generated summary

This is a VBS script that can be used to convert a large number of files encoded in GB2312 to UTF-8 encoding. The script uses the Adodb.Stream method to read and write the files. It is important to note that the UTF-8 files generated using this method will have a 3-byte BOM (Byte Order Mark), which may cause issues when handling files that do not require a BOM, such as PHP files. The script provides a simple function, ConvertFile, which can be called to convert a file. The script also includes functions for reading and writing files. The script provides references to two websites for further information.

工作中需要将大量 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