vbs腳本實(shí)現(xiàn)批量轉(zhuǎn)換文件編碼
最近需要使用SourceInsight查看分析在Linux系統(tǒng)下開(kāi)發(fā)的項(xiàng)目代碼，我們知道Linux系統(tǒng)中文本文件默認(rèn)編碼格式是UTF-8，而Windows中文系統(tǒng)中的默認(rèn)編碼格式是Gb2312。系統(tǒng)內(nèi)的編碼格式有所區(qū)別倒無(wú)傷大雅，關(guān)鍵的是SourceInsight竟不支持UTF-8，導(dǎo)致項(xiàng)目代碼內(nèi)的中文注釋全部亂碼！
既然SourceInsight不支持UTF-8編碼的文件，那我們就得想辦法將UTF-8的代碼文件轉(zhuǎn)化為GB2312編碼的。首先想到的是到網(wǎng)上搜一下“批量編碼轉(zhuǎn)換工具”，結(jié)果下載后發(fā)現(xiàn)編碼轉(zhuǎn)換后的文件總是出現(xiàn)亂碼，可能是工具的bug吧。既然不能使用工具轉(zhuǎn)換，那就自己寫(xiě)一個(gè)程序進(jìn)行編碼轉(zhuǎn)換，但是細(xì)想一下覺(jué)得C++/java的編碼轉(zhuǎn)換程序?qū)懫饋?lái)又比較啰嗦，要是在Linux下寫(xiě)一個(gè)shell腳本就能輕松搞定了。還好Windows下有vbs腳本可以幫助我們輕松達(dá)到這個(gè)目的。
'-------------------------------------------------
'函數(shù)名稱:ReadFile
'作用:利用AdoDb.Stream對(duì)象來(lái)讀取各種格式的文本文件
'-------------------------------------------------
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函數(shù)讀取文件，其中FileUrl指定文件的路徑，CharSet指定文件的原始編碼格式，使用adodb.stream對(duì)象讀取文件內(nèi)容到Str。
'-------------------------------------------------
'函數(shù)名稱:WriteToFile
'作用:利用AdoDb.Stream對(duì)象來(lái)寫(xiě)入各種格式的文本文件
'-------------------------------------------------
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寫(xiě)回原文件FileUrl，并設(shè)定新的編碼CharSet。
'-------------------------------------------------
'函數(shù)名稱:ConvertFile
'作用:將一個(gè)文件進(jìn)行編碼轉(zhuǎn)換
'-------------------------------------------------
Function ConvertFile(FileUrl)
Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode)
End Function
這樣ConvertFile對(duì)上述兩個(gè)函數(shù)封裝，實(shí)現(xiàn)文件FileUrl的編碼轉(zhuǎn)換，其中原始編碼SrcCode與目的編碼DestCode為全局變量。
如果僅對(duì)一個(gè)文件進(jìn)行編碼轉(zhuǎn)換，我們不必這么大費(fèi)周章。我們希望能對(duì)任意的文件或文件夾內(nèi)的所有文件進(jìn)行編碼轉(zhuǎn)換，達(dá)到批量轉(zhuǎn)換的目的。
'函數(shù)名稱:ConvertDir
'作用:將任意目錄內(nèi)的文件進(jìn)行編碼轉(zhuǎn)換
'-------------------------------------------------
Function ConvertDir(DirUrl)
If fs.FileExists(DirUrl) Then
Call ConvertFile(DirUrl)
Else
Call SearchDir(DirUrl)
End If
End Function
函數(shù)ConvertDir對(duì)任意路徑的文件/文件夾進(jìn)行編碼轉(zhuǎn)換，使用scripting.filesystemobject對(duì)象的FileExists函數(shù)判斷路徑對(duì)應(yīng)的是文件還是文件夾，如果是文件則直接調(diào)用ConvertFile進(jìn)行編碼轉(zhuǎn)換，否則調(diào)用SearchDir處理文件夾。
'-------------------------------------------------
'函數(shù)名稱:SearchDir
'作用:遞歸查找目錄內(nèi)的文件，進(jìn)行編碼轉(zhuǎn)換
'-------------------------------------------------
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
函數(shù)SearchDir是遞歸的，首先調(diào)用getfolder創(chuàng)建文件夾對(duì)象，然后取出文件夾內(nèi)的子文件夾集合subfolders和子文件集合files。對(duì)于每個(gè)子文件，直接調(diào)用ConvertFile進(jìn)行編碼轉(zhuǎn)換即可，而對(duì)于每個(gè)子文件夾，則遞歸調(diào)用SearchDir重復(fù)處理。
'-------------------------------------------------
'設(shè)置編碼：默認(rèn) utf-8 --> gb2312
'-------------------------------------------------
SrcCode="utf-8"
DestCode="gb2312"
'-------------------------------------------------
'解析參數(shù)
'-------------------------------------------------
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 "沒(méi)有文件/文件夾被拖入！"
wscript.quit
End If
MsgBox "轉(zhuǎn)換成功！"
最后通過(guò)解析腳本文件的參數(shù)，由于每個(gè)參數(shù)對(duì)應(yīng)一個(gè)文件/文件夾的路徑，將之傳遞給ConvertDir即可。這里默認(rèn)的是將UTF-8編碼轉(zhuǎn)化為GB2312編碼，讀者可以根據(jù)自身需要自行修改。
將上述代碼保存為ConvertCode.vbs，只需要將任意多個(gè)文件選中拖動(dòng)到該腳本文件上即可?；蛘呤褂妹钚?。
> ConvertCode.vbs [filepath]
需要注意的是文件編碼是就地轉(zhuǎn)換的，在轉(zhuǎn)換之前最好將原文件/文件夾進(jìn)行備份。
最后附上腳本文件的所有代碼。
'/*===========================================================
' * Intro 把要轉(zhuǎn)換的多個(gè)文件/文件夾拖到該文件上即可
' * FileName ConvertCode.vbs
' * Author Florian
' * Version v1.0
' * LastModify 2014-06-11 00:39:58
' *==========================================================*/
'-------------------------------------------------
'設(shè)置編碼：默認(rèn) utf-8 --> gb2312
'-------------------------------------------------
SrcCode="utf-8"
DestCode="gb2312"
'-------------------------------------------------
'解析參數(shù)
'-------------------------------------------------
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 "沒(méi)有文件/文件夾被拖入！"
wscript.quit
End If
MsgBox "轉(zhuǎn)換成功！"
'-------------------------------------------------
'函數(shù)名稱:ConvertDir
'作用:將任意目錄內(nèi)的文件進(jìn)行編碼轉(zhuǎn)換
'-------------------------------------------------
Function ConvertDir(DirUrl)
If fs.FileExists(DirUrl) Then
Call ConvertFile(DirUrl)
Else
Call SearchDir(DirUrl)
End If
End Function
'-------------------------------------------------
'函數(shù)名稱:SearchDir
'作用:遞歸查找目錄內(nèi)的文件，進(jìn)行編碼轉(zhuǎn)換
'-------------------------------------------------
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
'-------------------------------------------------
'函數(shù)名稱:ConvertFile
'作用:將一個(gè)文件進(jìn)行編碼轉(zhuǎn)換
'-------------------------------------------------
Function ConvertFile(FileUrl)
Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode)
End Function
'-------------------------------------------------
'函數(shù)名稱:ReadFile
'作用:利用AdoDb.Stream對(duì)象來(lái)讀取各種格式的文本文件
'-------------------------------------------------
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
'-------------------------------------------------
'函數(shù)名稱:WriteToFile
'作用:利用AdoDb.Stream對(duì)象來(lái)寫(xiě)入各種格式的文本文件
'-------------------------------------------------
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
相關(guān)文章
非常具有破壞性，所以如果自己有服務(wù)器的，一定要把shell.application組件禁掉2008-06-06
math.vbs 自然數(shù)n的n次方的的和或積的級(jí)數(shù)
通項(xiàng)為自然數(shù)n的n次方的的和或積的級(jí)數(shù)，求和或積的表達(dá)式。2009-09-09
超級(jí)厲害的VBS定時(shí)提醒腳本 Remind.vbs
這個(gè)是我見(jiàn)過(guò)的最有特色的腳本提醒程序了，時(shí)間|提示語(yǔ)，具體使用方法可以參考例子2008-06-06
在 HTA 中暫停腳本的方法...2007-03-03
用VBS模擬二叉樹(shù)，可以得到一個(gè)排序辦法.
用VBS模擬二叉樹(shù)，可以得到一個(gè)排序辦法....2007-03-03
VBS教程：方法-MoveFile 方法...2006-11-11
Vbs是一種變量無(wú)關(guān)、解釋性執(zhí)行的腳本語(yǔ)言,下面這篇文章主要給大家介紹了關(guān)于VBS腳本基礎(chǔ)語(yǔ)法的相關(guān)資料,文中通過(guò)實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下2022-04-04
MSScriptControl.ScriptControl組件屬性、方法、事件介紹
這篇文章主要介紹了MSScriptControl.ScriptControl組件屬性、方法、事件介紹,需要的朋友可以參考下2014-08-08
vbscript Split函數(shù)用法詳解(字符串轉(zhuǎn)數(shù)組函數(shù))
本文詳細(xì)介紹了vbscript中split函數(shù)的用法，有關(guān)split函數(shù)的一些實(shí)例，vbscript中split函數(shù)的語(yǔ)法介紹，有需要的朋友參考下2014-05-05
運(yùn)行vbs腳本報(bào)錯(cuò)無(wú)效字符、中文亂碼的解決方法(編碼問(wèn)題)
今天在寫(xiě)一個(gè)vbs的時(shí)候，發(fā)現(xiàn)中文亂碼，后來(lái)寫(xiě)好代碼正常運(yùn)行的代碼壓縮一下給了同事，發(fā)現(xiàn)報(bào)無(wú)效字符，經(jīng)過(guò)驗(yàn)證后發(fā)現(xiàn)原來(lái)是編碼的問(wèn)題導(dǎo)致，這里就為大家分享一下2019-12-12