[VBS]文件批量转编码

CG李大仁

于 2016-08-16 10:44:42 发布

阅读量622

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/yctccg/article/details/52218057

版权

这篇博客分享了如何使用VBS脚本来批量将GB2312编码的文件转换成UTF-8编码。通过Adodb.Stream对象读取和写入文件，但要注意UTF-8编码文件会有BOM头，可能不适用于某些无BOM要求的场景，如PHP文件。

摘要由CSDN通过智能技术生成

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