使用vbs腳本進行批量編碼轉換

時間 2019-11-30

原文原文鏈接

使用vbs腳本進行批量編碼轉換java

最近須要使用SourceInsight查看分析在Linux系統下開發的項目代碼，咱們知道Linux系統中文本文件默認編碼格式是UTF-8，而Windows中文系統中的默認編碼格式是Gb2312。系統內的編碼格式有所區別倒無傷大雅，關鍵的是SourceInsight竟不支持UTF-8，致使項目代碼內的中文註釋所有亂碼！shell

既然SourceInsight不支持UTF-8編碼的文件，那咱們就得想辦法將UTF-8的代碼文件轉化爲GB2312編碼的。首先想到的是到網上搜一下「批量編碼轉換工具」，結果下載後發現編碼轉換後的文件老是出現亂碼，多是工具的bug吧。既然不能使用工具轉換，那就本身寫一個程序進行編碼轉換，可是細想一下以爲C++/java的編碼轉換程序寫起來又比較囉嗦，要是在Linux下寫一個shell腳本就能輕鬆搞定了。還好Windows下有vbs腳本能夠幫助咱們輕鬆達到這個目的。ide

'-------------------------------------------------函數

'函數名稱:ReadFile工具

'做用:利用AdoDb.Stream對象來讀取各類格式的文本文件ui

'-------------------------------------------------編碼

Function ReadFile(FileUrl, CharSet)spa

Dim Str命令行

Set stm = CreateObject("Adodb.Stream")code

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)

For Each j In subfolders

Call SearchDir(j.path)

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)

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
' * WEB           http://www.cnblogs.com/fanzhidongyzby
' * Email        fanzhidongyzby@163.com
' * 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 Function

View Code