• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    vbs脚本实现批量转换文件编码

    最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码,我们知道Linux系统中文本文件默认编码格式是UTF-8,而Windows中文系统中的默认编码格式是Gb2312。系统内的编码格式有所区别倒无伤大雅,关键的是SourceInsight竟不支持UTF-8,导致项目代码内的中文注释全部乱码!

    既然SourceInsight不支持UTF-8编码的文件,那我们就得想办法将UTF-8的代码文件转化为GB2312编码的。首先想到的是到网上搜一下“批量编码转换工具”,结果下载后发现编码转换后的文件总是出现乱码,可能是工具的bug吧。既然不能使用工具转换,那就自己写一个程序进行编码转换,但是细想一下觉得C++/java的编码转换程序写起来又比较啰嗦,要是在Linux下写一个shell脚本就能轻松搞定了。还好Windows下有vbs脚本可以帮助我们轻松达到这个目的。

    复制代码 代码如下:

    '-------------------------------------------------

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

    我们使用ReadFile函数读取文件,其中FileUrl指定文件的路径,CharSet指定文件的原始编码格式,使用adodb.stream对象读取文件内容到Str。

    复制代码 代码如下:

    '-------------------------------------------------

    '函数名称:WriteToFile

    '作用:利用AdoDb.Stream对象来写入各种格式的文本文件

    '-------------------------------------------------

     

    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

    然后使用WriteToFile将Str写回原文件FileUrl,并设定新的编码CharSet。

    复制代码 代码如下:

    '-------------------------------------------------

    '函数名称:ConvertFile

    '作用:将一个文件进行编码转换

    '-------------------------------------------------

     

    Function ConvertFile(FileUrl)

        Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode)

    End Function

    这样ConvertFile对上述两个函数封装,实现文件FileUrl的编码转换,其中原始编码SrcCode与目的编码DestCode为全局变量。

    如果仅对一个文件进行编码转换,我们不必这么大费周章。我们希望能对任意的文件或文件夹内的所有文件进行编码转换,达到批量转换的目的。

    复制代码 代码如下:
    '-------------------------------------------------

    '函数名称:ConvertDir

    '作用:将任意目录内的文件进行编码转换

    '-------------------------------------------------

     

    Function ConvertDir(DirUrl)

        If fs.FileExists(DirUrl) Then

           Call ConvertFile(DirUrl)

        Else

           Call SearchDir(DirUrl)

        End If

    End Function

    函数ConvertDir对任意路径的文件/文件夹进行编码转换,使用scripting.filesystemobject对象的FileExists函数判断路径对应的是文件还是文件夹,如果是文件则直接调用ConvertFile进行编码转换,否则调用SearchDir处理文件夹。

    复制代码 代码如下:

    '-------------------------------------------------

    '函数名称:SearchDir

    '作用:递归查找目录内的文件,进行编码转换

    '-------------------------------------------------

     

    Function SearchDir(path)  

        Set folder = fs.getfolder(path)

        Set subfolders = folder.subfolders

        Set Files = folder.Files  

        For Each i In Files

           Call ConvertFile(i.path)

        Next  

        For Each j In subfolders      

           Call SearchDir(j.path)

        Next

    End Function

    函数SearchDir是递归的,首先调用getfolder创建文件夹对象,然后取出文件夹内的子文件夹集合subfolders和子文件集合files。对于每个子文件,直接调用ConvertFile进行编码转换即可,而对于每个子文件夹,则递归调用SearchDir重复处理。

    复制代码 代码如下:

    '-------------------------------------------------

    '设置编码:默认 utf-8  --> gb2312

    '-------------------------------------------------

     

    SrcCode="utf-8"

    DestCode="gb2312"

     

    '-------------------------------------------------

    '解析参数

    '-------------------------------------------------

     

    Set fs = CreateObject("scripting.filesystemobject")

    Set objArgs = WScript.Arguments

    If objArgs.Count>0 Then

        For I = 0 To objArgs.Count - 1

           FileUrl = objArgs(I)

           Call ConvertDir(FileUrl)

        Next

    Else

        MsgBox "没有文件/文件夹被拖入!"

        wscript.quit

    End If

    MsgBox "转换成功!"

    最后通过解析脚本文件的参数,由于每个参数对应一个文件/文件夹的路径,将之传递给ConvertDir即可。这里默认的是将UTF-8编码转化为GB2312编码,读者可以根据自身需要自行修改。

    将上述代码保存为ConvertCode.vbs,只需要将任意多个文件选中拖动到该脚本文件上即可。或者使用命令行。

    复制代码 代码如下:

    > ConvertCode.vbs [filepath]

    需要注意的是文件编码是就地转换的,在转换之前最好将原文件/文件夹进行备份。

    最后附上脚本文件的所有代码。

    复制代码 代码如下:

    '/*===========================================================
    ' * Intro        把要转换的多个文件/文件夹拖到该文件上即可
    ' * FileName     ConvertCode.vbs
    ' * Author       Florian
    ' * Version      v1.0
    ' * LastModify  2014-06-11 00:39:58
    ' *==========================================================*/

    '-------------------------------------------------
    '设置编码:默认    utf-8    -->    gb2312
    '-------------------------------------------------

    SrcCode="utf-8"
    DestCode="gb2312"

    '-------------------------------------------------
    '解析参数
    '-------------------------------------------------

    Set fs = CreateObject("scripting.filesystemobject")
    Set objArgs = WScript.Arguments
    If objArgs.Count>0 Then
        For I = 0 To objArgs.Count - 1
            FileUrl = objArgs(I)
            Call ConvertDir(FileUrl)
        Next
    Else
        MsgBox "没有文件/文件夹被拖入!"
        wscript.quit
    End If
    MsgBox    "转换成功!"

    '-------------------------------------------------
    '函数名称:ConvertDir
    '作用:将任意目录内的文件进行编码转换
    '-------------------------------------------------

    Function ConvertDir(DirUrl)
        If fs.FileExists(DirUrl) Then 
            Call ConvertFile(DirUrl)
        Else
            Call SearchDir(DirUrl)
        End If
    End Function


    '-------------------------------------------------
    '函数名称:SearchDir
    '作用:递归查找目录内的文件,进行编码转换
    '-------------------------------------------------

    Function SearchDir(path)   
        Set folder = fs.getfolder(path)
        Set subfolders = folder.subfolders
        Set Files = folder.Files   
        For Each i In Files
            Call ConvertFile(i.path)
        Next   
        For Each j In subfolders       
            Call SearchDir(j.path)
        Next
    End Function

    '-------------------------------------------------
    '函数名称:ConvertFile
    '作用:将一个文件进行编码转换
    '-------------------------------------------------

    Function ConvertFile(FileUrl)
        Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode)
    End Function

    '-------------------------------------------------
    '函数名称: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对象来写入各种格式的文本文件
    '-------------------------------------------------

    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 FunctionView Code

    您可能感兴趣的文章:
    • QueryCode.vbs 文本文件编码查询工具
    • php实现文件编码批量转换
    • python实现批量转换文件编码(批转换编码示例)
    • 批量转换目录下文件编码的shell脚本代码
    • Linux下批量修改文件编码
    上一篇:VBScript版的PHP extract()函数
    下一篇:vbs 解析json jsonp的方法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    vbs脚本实现批量转换文件编码 vbs,脚本,实现,批量,转换,