您的位置：首页 > 产品设计 > UI/UE

QueryCode.vbs 文本文件编码查询工具

2018-10-12 14:11 676 查看

只要下载此文件后便可以查询了.
下面是详细代码


'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代码下载

您可能感兴趣的文章:

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航