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