判断 txt 文件编码 (ANSI,UTF-16,NO BOM UTF-8, UTF-8)

perfect131

        TXT文件 标准编码有 ANSI，UTF-16LE，UTF-16BE，NO BOM UTF-8，UTF-8
        vba 代码

1. ''FilePath 是TXT文件绝对路径，D:\excelhome\1.txt
   
2. Function 编码(FilePath As String)
   
3.     Dim Data
   
4.     With CreateObject("ADODB.Stream")
   
5.         .Open
   
6.         .Type = 1
   
7.         .LoadFromFile FilePath
   
8.         Data = .Read
   
9.         .Close
   
10.     End With
    
11.     If IsNull(Data) Then 编码 = "NO BOM UTF-8": Exit Function
    
12.     If UBound(Data) < 1 Then 编码 = "NO BOM UTF-8": Exit Function
    
13.     If UBound(Data) >= 1 Then
    
14.         If UBound(Data) > 1 Then
    
15.             If Hex(Data(0)) = "EF" And Hex(Data(1)) = "BB" And Hex(Data(2)) = "BF" Then
    
16.                 编码 = "UTF-8": Exit Function
    
17.             End If
    
18.         End If
    
19.         Select Case Hex(Data(0)) & Hex(Data(1))
    
20.             Case "FEFF"
    
21.                 编码 = "UTF-16 big endian": Exit Function
    
22.             Case "FFFE"
    
23.                 编码 = "UTF-16 little endian": Exit Function
    
24.             Case Else
    
25.                 CanBeUTF8 = True
    
26.                 For i = 1 To LenB(Data)
    
27.                     FirstByte = AscB(MidB(Data, i, 1))
    
28.                     If &H0 <= FirstByte And FirstByte <= &H7F Then
    
29.                         FollowingBytesCount = 0
    
30.                     ElseIf &HC2 <= FirstByte And FirstByte <= &HDF Then
    
31.                         FollowingBytesCount = 1
    
32.                     ElseIf &HE0 <= FirstByte And FirstByte <= &HEF Then
    
33.                         FollowingBytesCount = 2
    
34.                     ElseIf &HF0 <= FirstByte And FirstByte <= &HF4 Then
    
35.                         FollowingBytesCount = 3
    
36.                     Else
    
37.                         CanBeUTF8 = False: Exit For
    
38.                     End If
    
39.                     For j = 1 To FollowingBytesCount
    
40.                         i = i + 1
    
41.                         If i > LenB(Data) Then
    
42.                             CanBeUTF8 = False: Exit For
    
43.                         End If
    
44.                         FollowingByte = AscB(MidB(Data, i, 1))
    
45.                         If (&H80 <= FollowingByte And FollowingByte <= &HBF) = False Then
    
46.                             CanBeUTF8 = False: Exit For: i = LenB(Data) + 1
    
47.                         End If
    
48.                     Next
    
49.                 Next
    
50.                 编码 = IIf(CanBeUTF8, "NO BOM UTF-8", "ANSI"): Exit Function
    
51.             End Select
    
52.         End If
    
53. End Function

复制代码

实际案例 6楼：https://club.excelhome.net/threa ... tml?_dsign=29dceccc

芐雨

感谢分享代码，不过代码有问题，比如这个附件


ansi.zip (195 Bytes, 下载次数: 24)

2022-11-21 10:29 上传

点击文件名下载附件

gwjkkkkk

谢谢楼主分享。。。

perfect131

芐雨 发表于 2022-11-21 10:29
感谢分享代码，不过代码有问题，比如这个附件

原来是 .Read(3)搞的鬼
去掉 (3)即可