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


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

复制代码 代码如下:

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



相关阅读:
javascript 命名空间以提高代码重用性
CSS 半透明度设置归纳总结[Firefox,IE,Chrome,Safari]
ECSHOP 2.7 版本去除底部版权的方法
正则表达式匹配中文与双字节的代码
document.getElementsByName和document.getElementById 在IE与FF中不同实现
Linux DHCP协议实现过程
JavaServer Web Dev Kit(JSWDK) for win2000 目录遍
重载toString实现JS HashMap分析
扩展JavaScript的时候,千万要保留其原来的所有功能
Oracle 10g下修改VIP地址的方法
javascript window 属性和方法
Linux在国内整机市场全面狙击微软
Linux下通过Samba添加Windows共享打印机
当文本框的值发生改变时,触发事件,在IE中有效
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4