Network Security Internet Technology Development Database Servers Mobile Phone Android Software Apple Software Computer Software News IT Information

In addition to Weibo, there is also WeChat

Please pay attention

WeChat public account

Shulou

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

2025-02-23 Update From: SLTechnology News&Howtos shulou NAV: SLTechnology News&Howtos > Development >

Share

Shulou(Shulou.com)06/03 Report--

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!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.

Views: 0

*The comments in the above article only represent the author's personal views and do not represent the views and positions of this website. If you have more insights, please feel free to contribute and share.

Share To

Development

Wechat

© 2024 shulou.com SLNews company. All rights reserved.

12
Report