如何在VB6中将Unicode转义字符串解码为可读字符？

你的问题本质是：原本是 UTF-8 编码的字节序列，被错误地以单字节编码（比如 Windows-1252/ISO-8859-1）解析成了字符串，导致出现乱码"سلام دنیا"。要还原成目标字符串"سلام دنیا"，需要把乱码字符串转回原始的 UTF-8 字节，再用 UTF-8 规则解码为 Unicode 字符串。

VB6 原生对 UTF-8 支持有限，但可以通过ADODB.Stream对象实现编码转换，以下是两种实现方案：

方案一：使用早期绑定（需引用库） #

1. 打开 VB6 工程，依次点击工程 → 引用，勾选Microsoft ActiveX Data Objects 2.x Library（版本选2.8或更高）。
2. 复制以下函数：

Function UTF8DecodeFromWin1252(ByVal strEncoded As String) As String
    Dim objStream As ADODB.Stream
    Dim byteArray() As Byte
    
    ' 将乱码字符串转换为Windows-1252编码的字节数组（即原始UTF-8字节）
    byteArray = StrConv(strEncoded, vbFromUnicode)
    
    Set objStream = New ADODB.Stream
    With objStream
        .Type = adTypeBinary
        .Open
        .Write byteArray
        .Position = 0
        .Type = adTypeText
        .Charset = "UTF-8"
        UTF8DecodeFromWin1252 = .ReadText
        .Close
    End With
    
    Set objStream = Nothing
End Function

3. 使用示例：

Dim StrResult As String
StrResult = "سلام دنیا"
Dim decodedStr As String
decodedStr = UTF8DecodeFromWin1252(StrResult)
' 此时 decodedStr 的值为 "سلام دنیا"

方案二：使用后期绑定（无需引用库） #

如果不想手动引用库，可以用后期绑定创建ADODB.Stream对象，代码如下：

Function UTF8DecodeFromWin1252(ByVal strEncoded As String) As String
    Dim objStream As Object
    Dim byteArray() As Byte
    
    byteArray = StrConv(strEncoded, vbFromUnicode)
    
    Set objStream = CreateObject("ADODB.Stream")
    With objStream
        .Type = 1 ' 对应 adTypeBinary
        .Open
        .Write byteArray
        .Position = 0
        .Type = 2 ' 对应 adTypeText
        .Charset = "UTF-8"
        UTF8DecodeFromWin1252 = .ReadText
        .Close
    End With
    
    Set objStream = Nothing
End Function

使用方式和方案一完全一致。

原理说明 #

• StrConv(strEncoded, vbFromUnicode)：把乱码的 Unicode 字符串转换为 Windows-1252 编码的字节数组——这组字节正是原本的 UTF-8 编码字节序列。
• ADODB.Stream：先以二进制模式写入字节数组，再切换为文本模式并指定编码为 UTF-8，读取时就会自动把 UTF-8 字节解码为正确的 Unicode 字符串。

内容的提问来源于stack exchange，提问作者Unforgiven