文本文件编码查询工具 QueryCode.vbs - 中国DOS联盟论坛


'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

编码转换工具
http://www.cn-dos.net/forum/viewthread.php?tid=35986&fpage=3

[ Last edited by fastslz on 2007-12-6 at 01:11 PM ]

第1楼　fastslz	发表于 2007-12-06 12:28
铂金会员　发帖 2,315　积分 5,493　来自上海
文本文件编码查询工具 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 编码转换工具 http://www.cn-dos.net/forum/viewthread.php?tid=35986&fpage=3 [ Last edited by fastslz on 2007-12-6 at 01:11 PM ]

第2楼　vkill	发表于 2007-12-07 17:14
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
记号

第3楼　zh753200	发表于 2007-12-07 21:07
新手上路　发帖 6　积分 11
谢谢楼主分享.

第4楼　jxf123521	发表于 2007-12-07 23:10
新手上路　发帖 3　积分 6
非常感谢！

第5楼　micao	发表于 2008-03-15 13:58
新手上路　发帖 2　积分 4
好东西，不过要dll文件的支持。

第6楼　sandyzone	发表于 2008-04-20 12:20
新手上路　发帖 2　积分 4
非常感谢！

第7楼　nipo	发表于 2008-05-11 00:56
中级用户　发帖 106　积分 228
看来DOS在处理unicode编码上是真的阴虚了。

第8楼　5988143	发表于 2009-12-18 12:27
新手上路　发帖 2　积分 2
謝謝分享~

第9楼　mountvol	发表于 2009-12-18 13:15
初级用户　发帖 117　积分 186
Originally posted by nipo at 2008-5-11 00:56: 看来DOS在处理unicode编码上是真的阴虚了。只要有debug,没有什么不行的。