In addition to Weibo, there is also WeChat
Please pay attention
WeChat public account
Shulou
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.
Continue with the installation of the previous hadoop.First, install zookooper1. Decompress zookoope
"Every 5-10 years, there's a rare product, a really special, very unusual product that's the most un
© 2024 shulou.com SLNews company. All rights reserved.