中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 文本文件编码查询工具 QueryCode.vbs

fastslz
铂金会员

DOS一根葱

积分 5493
发帖 2315
注册 2006-5-1
来自上海
状态离线

『楼主』: 文本文件编码查询工具 QueryCode.vbs

'QueryCode.vbs  BY: fastslz             http://bbs.cn-dos.net    2007-12-06

'支持批量查询，可以放在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