只要下载此文件后便可以查询了.

下面是详细代码


复制代码 代码如下:

‘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代码下载
您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。