QueryCode.vbs 文本文件编码查询工具
更新时间：2010年06月15日 03:00:35 作者：
使用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代码下载
下面是详细代码
复制代码 代码如下:
'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代码下载
相关文章
看了沼泽介绍的wmi脚本相关知识，对新手是个不错的教材，如果想和系统结合的更好，想实现更大功能的代码，那么学习vbs就不得不用wmi脚本2008-06-06
在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除2009-03-03
VBS教程：方法-DriveExists 方法...2006-11-11
vbs定时发送邮件的方法与代码...2007-03-03
你一定很熟悉InputBox函数，就像熟悉MsgBox函数一样。一般来说，刚开始接触VBS的时候，学会的第一个函数是MsgBox，而第二个就是InputBox。2011-04-04
我修正了几个小bug。加了一个在对方机器上直接生成一个down.vbs，用来下载用。2009-07-07
vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,
vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别2007-04-04
这篇文章主要介绍了Springboot Thymeleaf数据迭代实现过程,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下2007-12-12
VBS教程：函数-Array 函数...2006-11-11
VBS教程：方法-AddFolders 方法(Folders)
VBS教程：方法-AddFolders 方法(Folders)...2006-11-11
最新评论