QueryCode.vbs 文本文件編碼查詢工具
更新時間：2010年06月15日 03:00:35 作者：
使用vbs實現(xiàn)文本文件編碼的查詢的代碼，需要的朋友可以參考下。
只要下載此文件后便可以查詢了.
下面是詳細(xì)代碼
'QueryCode.vbs BY: fastslz
'支持批量查詢，可以放在SendTo擴(kuò)展應(yīng)用
set files=WScript.Arguments
if files.Count=0 Then
MsgBox "請將要查詢的文件拖動到這個文件里！ ", vbInformation, "文件編碼查詢工具 BY: fastslz"
end if
for i=0 To files.Count-1
file=files(i)
Call CheckCode (" 編碼為:")
next
Function CheckCode (Usage)
Dim slz
set slz = CreateObject("Adodb.Stream")
slz.Type = 1
slz.Mode = 3
slz.Open
slz.Position = 0
slz.Loadfromfile file
Bin=slz.read(2)
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
Codes="UTF-8"
elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
Codes="Unicode"
else
Codes="GB2312"
end if
WScript.echo file,Usage,Codes
slz.Close
set slz = Nothing
End Function
vbs代碼下載
下面是詳細(xì)代碼
復(fù)制代碼 代碼如下:
'QueryCode.vbs BY: fastslz
'支持批量查詢，可以放在SendTo擴(kuò)展應(yīng)用
set files=WScript.Arguments
if files.Count=0 Then
MsgBox "請將要查詢的文件拖動到這個文件里！ ", vbInformation, "文件編碼查詢工具 BY: fastslz"
end if
for i=0 To files.Count-1
file=files(i)
Call CheckCode (" 編碼為:")
next
Function CheckCode (Usage)
Dim slz
set slz = CreateObject("Adodb.Stream")
slz.Type = 1
slz.Mode = 3
slz.Open
slz.Position = 0
slz.Loadfromfile file
Bin=slz.read(2)
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
Codes="UTF-8"
elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
Codes="Unicode"
else
Codes="GB2312"
end if
WScript.echo file,Usage,Codes
slz.Close
set slz = Nothing
End Function
vbs代碼下載
相關(guān)文章
Msxml2.XMLHTTP Msxml2.ServerXMLHTTP與緩存
用 VBS 發(fā)送 HTTP 請求時，首先想到的一般是 Msxml2.XMLHTTP（Microsoft.XMLHTTP 已經(jīng)不提倡使用了）。2011-10-10
遠(yuǎn)程開啟/關(guān)閉目標(biāo)telnet服務(wù)的windows腳本RTCS.vbs
遠(yuǎn)程開啟/關(guān)閉目標(biāo)telnet服務(wù)的windows腳本RTCS.vbs...2007-02-02
VBScript教程 第八課 使用循環(huán)語句...2006-11-11
allfiles.vbs 顯示子目錄下的所有文件的修改時間、大小、文件名、擴(kuò)展名等
這篇文章主要介紹了allfiles.vbs之顯示子目錄下的所有文件的修改時間、大小、全限定名定名等信息,需要的朋友可以參考下2020-08-08
vbs查詢局域網(wǎng)內(nèi)電腦的軟件和硬件列表清單
這個是可以幫助大家輕松獲取局域網(wǎng)內(nèi)電腦的相關(guān)軟硬件新的的一個小工具，希望能幫助到大家,需要的朋友可以參考下2020-12-12
有時候由于網(wǎng)站過多想知道有哪些網(wǎng)站，一個一個看也挺累的，那么就可以通過iisweb.vbs 列出網(wǎng)站，而且還能看到每個網(wǎng)站的狀態(tài)，是停止還是開啟的2014-07-07
VBS編程教程 (第3篇)...2007-07-07
用vbs將輸出內(nèi)容寫到屏幕以覆蓋當(dāng)前屏幕上的內(nèi)容的方法
用vbs將輸出內(nèi)容寫到屏幕以覆蓋當(dāng)前屏幕上的內(nèi)容的方法...2007-03-03
VBS教程：屬性-AvailableSpace 屬性...2006-11-11
這期專欄依舊是vbs，估計大家會有點煩，那我們來點有意思的吧。vbs有一個對像是“SAPI.SpVoice”，可以用它來講英語的2008-02-02