足球游戏_中国足彩网¥体育资讯$

QueryCode.vbs 文本文件编码查询工具
来源:易贤网 阅读:1920 次 日期:2016-07-07 16:39:42
温馨提示:易贤网小编为您整理了“QueryCode.vbs 文本文件编码查询工具”,方便广大网友查阅!

使用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

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:QueryCode.vbs 文本文件编码查询工具
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标