利用ADODB.Stream判断文件编码（国外英文资料）.docVIP

利用ADODB.Stream判断文件编码（国外英文资料） Use the adodb.stream to determine the file encoding 2008-03-1415:49 ANSI unformatted definition 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 The 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 (bintou, 1, 1) = hef And AscB (bintou, 2, 1) Checkcode = utf-8 ElseIf AscB (bintou, 1, 1) = hff And AscB (MidB (bintou, 2, 1) Checkcode = unicode The Else Checkcode = gb2312 End the If Objstream. Close The set objstream = nothing End the function UTF8 file has No BOM and BOM two kinds, the difference is that much more BOM three bytes (EFBBBF), compared the binaries, found to have the difference, if is NoBOM file will not be able to pass the first two bytes to judge whether it is utf-8 files. Use the adod.stream object to handle charset2008-03-13 16:52 Function tran_ado (ByVal strA As String, _ Optional ByVal strInCode As String = gb2312, _ Optional ByVal strOutCode As String = big5) As String this function transcoding. The corresponding strInCode and strOutCode are found in the following locations HKEY_LOCAL_MACHINE \ SOFTWARE \ Classes \ MIME \ Database \ Charset please quote Microsoft ActiveX Data Objects 2.5 Library Or above Dim Stm As New ADODB. Stream by default, simplified Chinese is converted into traditional Chinese Stm. Type = adTypeText Stm. Mode = adModeUnknown Stm. The Open Stm. Charset = strOutCode Stm. WriteText strA Stm. The Position = 0 Stm. Type = adTypeText Stm. Charset = strInCode Tran_ado = stm. ReadText () Stm. Close End the Function The 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 ReadA