使用VBScript检测文本文件的编码


关键词

使用VBScript检测文本文件的编码

摘要

<p>搞清楚文本文件的编码很重要,尤其是网页文件,如果编码设置得不正确,浏览的人将会看到的是乱码。当然,这里的编码主要是指中文。常见的中文编码有UTF-8、Unicode、GB2312等,我们这里有一个VBScript脚本来检测文件的编码格式。<br /><br />'检测文件的编码格式,可检测的类型有:UTF-8、Unicode、GB2312<br /><br />'测试调用<br />Msgbox GetFileEncoding("D:\test.asp")<br /><br /></p>

搞清楚文本文件的编码很重要,尤其是网页文件,如果编码设置得不正确,浏览的人将会看到的是乱码。当然,这里的编码主要是指中文。常见的中文编码有UTF-8、Unicode、GB2312等,我们这里有一个VBScript脚本来检测文件的编码格式。

'检测文件的编码格式,可检测的类型有:UTF-8、Unicode、GB2312

'测试调用
Msgbox GetFileEncoding("D:\test.asp")

'检测函数
Function GetFileEncoding(filePath)
       Dim adoStream, binHeader
       Set adoStream=createobject("ADODB.Stream")
       adoStream.Type=1
       adoStream.mode=3
       adoStream.open
       adoStream.Position=0
       adoStream.LoadFromFile filePath
       binHeader=adoStream.read(2)
       If AscB(MidB(binHeader, 1, 1))=&HEF And AscB(MidB(binHeader, 2, 1))=&HBB Then
               GetFileEncoding="UTF-8"
       ElseIf AscB(MidB(binHeader, 1, 1))=&HFF And AscB(MidB(binHeader, 2, 1))=&HFE Then
               GetFileEncoding="Unicode"
       Else
               GetFileEncoding="GB2312"
       End If
       adoStream.Close : Set adoStream=Nothing
End Function

 

要饭二维码

洪哥写文章很苦逼,如果本文对您略有帮助,可以扫描下方二维码支持洪哥!金额随意,先行谢过!大家的支持是我前进的动力!

文章的版权

本文属于“洪哥笔记”原创文章,转载请注明来源地址:使用VBScript检测文本文件的编码:http://www.splaybow.com/post/vbscript-check-file-encoding.html

如果您在服务器运维、网络管理、网站或系统开发过程有需要提供收费服务,请加QQ:115085382!十年运维经验,帮您省钱、让您放心!
亲,如果有需要,先存起来,方便以后再看啊!加入收藏夹的话,按Ctrl+D

« ASP使用参数化查询数据库 ASP/VBScript入门,Hello World »

相关文章: