利用ADODB.Stream判断文件编码.doc

利用ADODB.Stream判断文件编码 利用ADODB.Stream判断文件编码2008-03-14 15:49ANSI无格式定义 EFBB BF UTF-8 FFFE UTF-16/UCS-2, little endian FEFF UTF-16/UCS-2, big endian FFFE 0000 UTF-32/UCS-4, little endian 0000 FEFF UTF-32/UCS-4, big endian function checkcode(path) set objstream=server.createobject(adodb.stream) objstream.Type=1 objstream.mode=3 objstream.open objstream.Position=0 objstream.loadfromfile path bintou=objstream.read(2) If AscB(MidB(bintou,1,1))=HEF And AscB(MidB(bintou,2,1))=HBB Then checkcode=utf-8 ElseIf AscB(MidB(bintou,1,1))=HFF And AscB(MidB(bintou,2,1))=HFE Then checkcode=unicode Else checkcode=gb2312 End If objstream.close set objstream=nothing end function UTF8文件有BOM和No BOM两种，其区别在于BOM多了三个字节（EFBBBF），对比了二进制文件，发现有这个区别，如果是NoBOM的文件就无法通过前两个字节判断是否为UTF-8文件。 利用Adodb.Stream对象处理Charset2008-03-13 16:52Function tran_ado(ByVal strA As String, _ Optional ByVal strInCode As String = gb2312, _ Optional ByVal strOutCode As String = big5) As String 本函数进行编码转换。 对应的 strInCode 和 strOutCode 在注册表以下位置中能找到 HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Charset 请先引用 Microsoft ActiveX Data Objects 2.5 Library 或者以上版本 Dim Stm As New ADODB.Stream 默认情况下是将简体中文转换为繁体中文 Stm.Type = adTypeText Stm.Mode = adModeUnknown Stm.Open Stm.Charset = strOutCode Stm.WriteText strA Stm.Position = 0 Stm.Type = adTypeText Stm.Charset = strInCode tran_ado = Stm.ReadText() Stm.Close End Function Function runTest() Dim objFile, stmFile Dim strText As String Set objFile = CreateObject(Scripting.FileSystemObject) Set stmFile = objFile.OpenTextFile(c:\abc.txt, 1, False) strText = stmFile.ReadAll strText = tran_ado(strText, gb2312, utf-8) 出来的就是 UTF-8 了 stmFile.Close Set stmFile = objFile.CreateTextFile(c:\abc_tr.txt, True) stmFile.Write strText stmFile.Close End Function 生成utf-8编码的静态页，要用ADODB.Stream代替FSO