使用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