vba encode decode 转码

perfect131

       python 转码就一行代码（虽说函数已经封装了），vba 实现 encode  decode，结果基本跟python的一样
      

1. '''编码转换("我是学员","UTF-8","gbk")
   
2. '''decode(encode("我是学员"),"gbk")
   
3. '''decode(encode("我是学员","gbk"),"gbk")
   
4. Function 编码转换(str, CharSet1, CharSet2)
   
5.     编码转换 = ""
   
6.     On Error GoTo err1
   
7.     Dim ADODB_Stream
   
8.     Set ADODB_Stream = CreateObject("ADODB.Stream")
   
9.     Dim Bytes()                                   As Byte
   
10.     Dim gbk_txt                                   As String
    
11.     With ADODB_Stream
    
12.         .Charset = CharSet1
    
13.         .Open
    
14.         .WriteText str, 0
    
15.         .Position = 0
    
16.         .Type = 1
    
17.         If CharSet1 = CharSet2 Then
    
18.             .Position = 0
    
19.         Else
    
20.             .Position = 3 ''无 bom
    
21.         End If
    
22.         Bytes = .Read()
    
23.         .Close
    
24.         .Open
    
25.         .Type = 1
    
26.         .Write Bytes
    
27.         .Position = 0
    
28.         .Type = 2
    
29.         .Charset = CharSet2
    
30.         编码转换 = .ReadText()
    
31.         .Close
    
32.      End With
    
33. err1:
    
34.     Set ADODB_Stream = Nothing
    
35. End Function
    
36. Function encode(ss, Optional ByVal CharSet1 As String = "UTF-8") As Byte()
    
37.     On Error GoTo err1
    
38.     Dim ADODB_Stream
    
39.     Set ADODB_Stream = CreateObject("ADODB.Stream")
    
40.     With ADODB_Stream
    
41.         .Charset = CharSet1
    
42.         .Open
    
43.         .WriteText ss, 0
    
44.         .Position = 0
    
45.         .Type = 1
    
46.         If CharSet1 <> "UTF-8" Then
    
47.             .Position = 0
    
48.         Else
    
49.             .Position = 3 ''无 bom
    
50.         End If
    
51.         encode = .Read()
    
52.         .Close
    
53.      End With
    
54. err1:
    
55.     Set ADODB_Stream = Nothing
    
56. End Function
    
57. Function decode(Bytes, Optional ByVal CharSet2 As String = "UTF-8") As String
    
58.     decode = ""
    
59.     On Error GoTo err1
    
60.     Dim ADODB_Stream
    
61.     Set ADODB_Stream = CreateObject("ADODB.Stream")
    
62.     With ADODB_Stream
    
63.         .Open
    
64.         .Type = 1
    
65.         .Write Bytes
    
66.         .Position = 0
    
67.         .Type = 2
    
68.         .Charset = CharSet2
    
69.         decode = .ReadText()
    
70.         .Close
    
71.      End With
    
72. err1:
    
73.     Set ADODB_Stream = Nothing
    
74. End Function

复制代码

aman1516

谢谢分享
还是基础重要，弄懂编码规则及原理后，或许就一通百通了