QueryCode.vbs 文本文件編碼查詢工具
更新時(shí)間：2010年06月15日 03:00:35 作者：
使用vbs實(shí)現(xiàn)文本文件編碼的查詢的代碼，需要的朋友可以參考下。
只要下載此文件后便可以查詢了.
下面是詳細(xì)代碼
'QueryCode.vbs BY: fastslz
'支持批量查詢，可以放在SendTo擴(kuò)展應(yīng)用
set files=WScript.Arguments
if files.Count=0 Then
MsgBox "請(qǐng)將要查詢的文件拖動(dòng)到這個(gè)文件里！ ", 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 "請(qǐng)將要查詢的文件拖動(dòng)到這個(gè)文件里！ ", 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)文章
初窺WMI_Vbs腳本編程簡(jiǎn)明教程補(bǔ)充讀物
看了沼澤介紹的wmi腳本相關(guān)知識(shí)，對(duì)新手是個(gè)不錯(cuò)的教材，如果想和系統(tǒng)結(jié)合的更好，想實(shí)現(xiàn)更大功能的代碼，那么學(xué)習(xí)vbs就不得不用wmi腳本2008-06-06
在Windows中，學(xué)習(xí)計(jì)算機(jī)操作也許很簡(jiǎn)單，但是很多計(jì)算機(jī)工作是重復(fù)性勞動(dòng)，例如你每周也許需要對(duì)一些計(jì)算機(jī)文件進(jìn)行復(fù)制、粘貼、改名、刪除2009-03-03
VBS教程：方法-DriveExists 方法...2006-11-11
vbs定時(shí)發(fā)送郵件的方法與代碼...2007-03-03
你一定很熟悉InputBox函數(shù)，就像熟悉MsgBox函數(shù)一樣。一般來說，剛開始接觸VBS的時(shí)候，學(xué)會(huì)的第一個(gè)函數(shù)是MsgBox，而第二個(gè)就是InputBox。2011-04-04
我修正了幾個(gè)小bug。加了一個(gè)在對(duì)方機(jī)器上直接生成一個(gè)down.vbs，用來下載用。2009-07-07
vbscript和javascript版的15位, 18位的身份證號(hào)碼的驗(yàn)證函數(shù).以及根據(jù)身份證取省份,生日,
vbscript和javascript版的15位, 18位的身份證號(hào)碼的驗(yàn)證函數(shù).以及根據(jù)身份證取省份,生日,性別2007-04-04
Springboot Thymeleaf數(shù)據(jù)迭代實(shí)現(xiàn)過程
這篇文章主要介紹了Springboot Thymeleaf數(shù)據(jù)迭代實(shí)現(xiàn)過程,文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下2007-12-12
VBS教程：函數(shù)-Array 函數(shù)...2006-11-11
VBS教程：方法-AddFolders 方法(Folders)
VBS教程：方法-AddFolders 方法(Folders)...2006-11-11