QueryCode.vbs 文本文件编码查询工具
来源:本站原创|时间:2022-11-25|栏目:vb|
只要下载此文件后便可以查询了.
下面是详细代码
复制代码 代码如下:
'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代码下载
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10VBS教程:属性-Type 属性
- 01-10VBS教程:属性-Size 属性
- 01-10利用vbscript脚本修改文件内容,此适用于自动化的操作中
- 01-10脚本编程3 关于文件的读写
- 01-10利用wscript执行文件[包括可执行exe文件]vbs脚本
- 01-10ntiIframe.vbs用于批量清除被添加到文件中的恶意代码
- 01-10一个可以删除指定天数文件的vbs脚本
- 01-10用vbs实现定时运行web文件的方法
- 01-10vbscript脚本编程教程2利用fso来进行文件操作