Преобразование шестнадцатеричной строки Unicode в VBA

Question

У меня есть некоторые строковые данные, хранящиеся в базе данных, специальные символы которых представлены в виде шестнадцатеричного кода Unicode. Я хотел бы преобразовать данные.

Кто-нибудь знает, как это сделать в VBA без замены каждого специального символа.

например: Конверсия Я ожидаю, что это:

оперы \ 'е7 \' 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 

КОСТИС Пападакис