vba - 在 VBA 中转换 Unicode 十六进制字符串

Question

我有一些字符串数据存储在数据库中，其中特殊字符表示为 Unicode 十六进制。我想转换数据。

有谁知道如何在不替换每个特殊字符的情况下在 VBA 中做到这一点。

例如：我期待的转换是：

Opera\'e7\'e3o -> Operação

谢谢！

Answer 1

试试这个示例代码：

Dim myStr
Dim nStart,nLen, sTmp
myStr = "Opera\'e7\'e3o"
nStart = 0
nLen = Len(myStr)

While nStart < nLen
    nStart = Instr(nStart+1,myStr,"\'")
    If nStart = 0 Then
        nStart = nLen
    Else
        sTmp = Mid(myStr,nStart,4)
        myStr = Replace(myStr,sTmp,Chr(CLng(Replace(sTmp,"\'","&h"))))
    End If
Wend
MsgBox myStr

科斯蒂斯·帕帕达基斯