文本文件编码查询工具 QueryCode.vbs
2010-01-15 11:03
459 查看
文本文件编码查询工具 下载QueryCode.vbs (756.00 bytes)
只要下载此文件后便可以查询了.
下面是详细代码
'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 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 文本文件编码查询工具
- mysql 慢查询分析工具:pt-query-digest 在mac 上的安装使用
- Subsonic 3.0之简洁查询工具Simple Query tool
- mysql慢查日志分析神器:pt-query-digest查询日志分析工具
- pt-query-digest查询日志分析工具
- pt-query-digest查询日志分析工具 - percona-toolkit使用教程之系统类工具
- javascript在线编码查询工具
- pt-query-digest查询日志分析工具
- 通过IIS自带工具Iisapp.vbs查询哪个站点占用资源
- VBA写txt文件--vba写RF文件--vbs写文本文件不同编码--vba写UTF8
- pt-query-digest慢查询分析工具
- pt-query-digest查询日志分析工具
- pt-query-digest查询日志分析工具
- 繁体编码文本文件转换为简体编码的工具
- mysql慢查询分析工具 pt-query-digest
- mysql 慢查询日志 配置【pt-query-digest工具】
- 【VBS】vbs指定编码保存文本文件(含xml、ini什么的)
- ObjectQuery:ActiveRecord 强类型对象查询工具
- pt-query-digest查询日志分析工具
- pt-query-digest查询日志分析工具