QueryCode.vbs 文本文件编码查询工具
导读：收集整理的这篇文章主要介绍了QueryCode.vbs 文本文件编码查询工具，觉得挺不错的，现在分享给大家，也给大家做个参考。 只要下载此文件后便可以查询了. 下面是详细代码 复制代码...
收集整理的这篇文章主要介绍了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代码下载 您可能感兴趣的文章:
- ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
- vbs版IP地理位置查询小偷
- vbs版sql查询分析器lcx作品
- 可以查询系统用户名sid的vbs
- 字符ANSI代码查询工具vbs版
- 通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)
- VBS实现查询服务的制造商
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： QueryCode.vbs 文本文件编码查询工具
本文地址： https://pptw.com/jishu/609840.html