QueryCode.vbs 텍스트 파일 인코딩 검색 도구

1081 단어
이 파일만 다운로드하면 조회할 수 있습니다.
다음은 상세 코드입니다.
 
  
'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 코드 다운로드

좋은 웹페이지 즐겨찾기