批量编码转换包括gb2312,utf-8,unicode,支持拖动

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

    '/*=========================================================================  
    ' * Intro       把要转换的文件拖到这个文件上，选择源编码与目标编码进行编码批量转换  
    ' * FileName    CodeChange.vbs  
    ' * Author      yongfa365  
    ' * Version     v1.0  
    ' * WEB         http://www.yongfa365.com  
    ' * Email       yongfa365[at]qq.com  
    ' * FirstWrite  http://www.yongfa365.com/Item/CodeChange.vbs.html  
    ' * LastModify  2007-10-04 14:29:44  
    ' *==========================================================================*/  
      
    Set objArgs = WScript.Arguments  
    If objArgs.Count>0 Then  
        CodeI = InputBox("您所拖动的文件的编码是：","第一步，共两步","gb2312")  
        CodeII = InputBox("您要将第一步的编码转换为：","第二步，共两步","utf-8")  
        If CodeI<>"" And CodeII<>"" Then  
            For I = 0 To objArgs.Count - 1  
                FileUrl = objArgs(I)  
                Call WriteToFile(FileUrl,ReadFile(FileUrl,CodeI),CodeII)  
            Next  
        Else  
            MsgBox "输入不合法，退出"  
        End If  
    Else  
        MsgBox "请将您要转换的“相同编码的文件”拖到这个文件上"&vbCrLf&"程序会根据您的输入转换这些编码",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  

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!