用VBS实现的批量gb2312转utf-8,支持拖动

145 阅读 0 评论 96 点赞

我是靠谱客的博主隐形毛巾，最近开发中收集的这篇文章主要介绍用VBS实现的批量gb2312转utf-8,支持拖动，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

'/*========================================================================= 
' * Intro       拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件 
' * FileName    GB2312.To.UTF-8.vbs 
' * Author      yongfa365 
' * Version     v1.0 
' * WEB         http://www.yongfa365.com 
' * Email       yongfa365[at]qq.com 
' * LastModify  2007-10-04 10:42:53 
' *==========================================================================*/ 

Set objArgs = WScript.Arguments 
If objArgs.Count>0 Then 
    If MsgBox("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”", vbOKCancel + vbExclamation + vbDefaultButton2, "郑重提醒!!!") = vbOK Then 
        For I = 0 To objArgs.Count - 1 
            FileUrl = objArgs(I) 
            Call WriteToFile(FileUrl, ReadFile(FileUrl, "gb2312"), "utf-8") 
        Next 
    End If 
Else 
    MsgBox "请将您要转换的“gb2312文件”拖到这个文件上"&vbCrLf&"程序会将它们自动转换为utf-8文件", vbInformation, "柳永法温馨提示：" 
End If 

'------------------------------------------------- 
'函数名称: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 

'------------------------------------------------- 
'函数名称:WriteToFile 
'作用:利用AdoDb.Stream对象来写入各种格式的文本文件 
'参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....) 
'---------------------------------------------------- 

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