How to implement the query tool of text File Encoding by vbs

This article mainly shows you the "vbs how to achieve text file coding query tool", the content is easy to understand, clear, hope to help you solve your doubts, the following let the editor lead you to study and learn "vbs how to achieve text file coding query tool" this article.

The code is as follows:

'QueryCode.vbs BY: fastslz

'batch queries are supported and can be placed in SendTo extended applications

Set files=WScript.Arguments

If files.Count=0 Then

MsgBox "Please drag the file to be queried into this file!", vbInformation, "File Encoding query tool BY: fastslz"

End if

For iTunes 0 To files.Count-1

File=files (I)

Call CheckCode ("coded as:")

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

These are all the contents of the article "how to implement the query tool for text File Encoding in vbs". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!