国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

QueryCode.vbs 文本文件編碼查詢工具

2020-07-26 11:52:18
字體:
來源:轉載
供稿:網友
只要下載此文件后便可以查詢了.
下面是詳細代碼
復制代碼 代碼如下:

'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代碼下載
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 河西区| 柯坪县| 淮南市| 常熟市| 沽源县| 安塞县| 井陉县| 丹巴县| 女性| 平湖市| 信宜市| 林芝县| 紫阳县| 松阳县| 延吉市| 防城港市| 深水埗区| 简阳市| 烟台市| 集贤县| 潼关县| 大连市| 永胜县| 藁城市| 昌都县| 日土县| 长子县| 宁德市| 云浮市| 隆林| 亳州市| 遵义市| 山东省| 南召县| 康乐县| 宿州市| 荣昌县| 鹿泉市| 香港 | 皮山县| 平定县|