Descrição:
Como tratar caracteres UTF-8 no Elipse E3/Power?
Solução:
Para tratar caracteres UTF-8, pode-se utilizar bibliotecas disponíveis na internet. Porém, também é possível criar um dicionário interno para tratar estes caracteres, conforme exemplo do código abaixo criado em um botão de comando:
Sub Retangulo2_Click()
vtext = "Elipse S\u00e3o Paulo"
nStart = InStr(1,vtext,"\u")
utext = Mid(vtext, nStart, 6)
Set dicUTF = dicutf8()
ctext = dicUTF.Item(utext)
Msgbox replace(vtext,utext,ctext)
End Sub
Function dicutf8()
Set dic = CreateObject("Scripting.Dictionary")
dic.Add lcase("\u0020")," "
dic.Add lcase("\u0021"),"!"
dic.Add lcase("\u0022"),Chr(34)
dic.Add lcase("\u0023"),"#"
dic.Add lcase("\u0024"),"$"
dic.Add lcase("\u0025"),"%"
dic.Add lcase("\u0026"),"&"
dic.Add lcase("\u0027"),"'"
dic.Add lcase("\u0028"),"("
dic.Add lcase("\u0029"),")"
dic.Add lcase("\u002A"),"*"
dic.Add lcase("\u002B"),"+"
dic.Add lcase("\u002C"),"),"
dic.Add lcase("\u002D"),"-"
dic.Add lcase("\u002E"),"."
dic.Add lcase("\u002F"),"/"
dic.Add lcase("\u0030"),"0"
dic.Add lcase("\u0031"),"1"
dic.Add lcase("\u0032"),"2"
dic.Add lcase("\u0033"),"3"
dic.Add lcase("\u0034"),"4"
dic.Add lcase("\u0035"),"5"
dic.Add lcase("\u0036"),"6"
dic.Add lcase("\u0037"),"7"
dic.Add lcase("\u0038"),"8"
dic.Add lcase("\u0039"),"9"
dic.Add lcase("\u003A"),":"
dic.Add lcase("\u003B"),";"
dic.Add lcase("\u003C"),"<"
dic.Add lcase("\u003D"),"="
dic.Add lcase("\u003E"),">"
dic.Add lcase("\u003F"),"?"
dic.Add lcase("\u0040"),"@"
dic.Add lcase("\u0041"),"A"
dic.Add lcase("\u0042"),"B"
dic.Add lcase("\u0043"),"C"
dic.Add lcase("\u0044"),"D"
dic.Add lcase("\u0045"),"E"
dic.Add lcase("\u0046"),"F"
dic.Add lcase("\u0047"),"G"
dic.Add lcase("\u0048"),"H"
dic.Add lcase("\u0049"),"I"
dic.Add lcase("\u004A"),"J"
dic.Add lcase("\u004B"),"K"
dic.Add lcase("\u004C"),"L"
dic.Add lcase("\u004D"),"M"
dic.Add lcase("\u004E"),"N"
dic.Add lcase("\u004F"),"O"
dic.Add lcase("\u0050"),"P"
dic.Add lcase("\u0051"),"Q"
dic.Add lcase("\u0052"),"R"
dic.Add lcase("\u0053"),"S"
dic.Add lcase("\u0054"),"T"
dic.Add lcase("\u0055"),"U"
dic.Add lcase("\u0056"),"V"
dic.Add lcase("\u0057"),"W"
dic.Add lcase("\u0058"),"X"
dic.Add lcase("\u0059"),"Y"
dic.Add lcase("\u005A"),"Z"
dic.Add lcase("\u005B"),"["
dic.Add lcase("\u005C"),"\"
dic.Add lcase("\u005D"),"]"
dic.Add lcase("\u005E"),"^"
dic.Add lcase("\u005F"),"_"
dic.Add lcase("\u0060"),"`"
dic.Add lcase("\u0061"),"a"
dic.Add lcase("\u0062"),"b"
dic.Add lcase("\u0063"),"c"
dic.Add lcase("\u0064"),"d"
dic.Add lcase("\u0065"),"e"
dic.Add lcase("\u0066"),"f"
dic.Add lcase("\u0067"),"g"
dic.Add lcase("\u0068"),"h"
dic.Add lcase("\u0069"),"i"
dic.Add lcase("\u006A"),"j"
dic.Add lcase("\u006B"),"k"
dic.Add lcase("\u006C"),"l"
dic.Add lcase("\u006D"),"m"
dic.Add lcase("\u006E"),"n"
dic.Add lcase("\u006F"),"o"
dic.Add lcase("\u0070"),"p"
dic.Add lcase("\u0071"),"q"
dic.Add lcase("\u0072"),"r"
dic.Add lcase("\u0073"),"s"
dic.Add lcase("\u0074"),"t"
dic.Add lcase("\u0075"),"u"
dic.Add lcase("\u0076"),"v"
dic.Add lcase("\u0077"),"w"
dic.Add lcase("\u0078"),"x"
dic.Add lcase("\u0079"),"y"
dic.Add lcase("\u007A"),"z"
dic.Add lcase("\u007B"),"{"
dic.Add lcase("\u007C"),"|"
dic.Add lcase("\u007D"),"}"
dic.Add lcase("\u007E"),"~"
dic.Add lcase("\u00A1"),"¡"
dic.Add lcase("\u00A2"),"¢"
dic.Add lcase("\u00A3"),"£"
dic.Add lcase("\u00A4"),"¤"
dic.Add lcase("\u00A5"),"¥"
dic.Add lcase("\u00A6"),"¦"
dic.Add lcase("\u00A7"),"§"
dic.Add lcase("\u00A8"),"¨"
dic.Add lcase("\u00A9"),"©"
dic.Add lcase("\u00AA"),"ª"
dic.Add lcase("\u00AB"),"«"
dic.Add lcase("\u00AC"),"¬"
dic.Add lcase("\u00AD"),""
dic.Add lcase("\u00AE"),"®"
dic.Add lcase("\u00AF"),"¯"
dic.Add lcase("\u00B0"),"°"
dic.Add lcase("\u00B1"),"±"
dic.Add lcase("\u00B2"),"²"
dic.Add lcase("\u00B3"),"³"
dic.Add lcase("\u00B4"),"´"
dic.Add lcase("\u00B5"),"µ"
dic.Add lcase("\u00B6"),"¶"
dic.Add lcase("\u00B7"),"·"
dic.Add lcase("\u00B8"),"¸"
dic.Add lcase("\u00B9"),"¹"
dic.Add lcase("\u00BA"),"º"
dic.Add lcase("\u00BB"),"»"
dic.Add lcase("\u00BC"),"¼"
dic.Add lcase("\u00BD"),"½"
dic.Add lcase("\u00BE"),"¾"
dic.Add lcase("\u00BF"),"¿"
dic.Add lcase("\u00C0"),"À"
dic.Add lcase("\u00C1"),"Á"
dic.Add lcase("\u00C2"),"Â"
dic.Add lcase("\u00C3"),"Ã"
dic.Add lcase("\u00C4"),"Ä"
dic.Add lcase("\u00C5"),"Å"
dic.Add lcase("\u00C6"),"Æ"
dic.Add lcase("\u00C7"),"Ç"
dic.Add lcase("\u00C8"),"È"
dic.Add lcase("\u00C9"),"É"
dic.Add lcase("\u00CA"),"Ê"
dic.Add lcase("\u00CB"),"Ë"
dic.Add lcase("\u00CC"),"Ì"
dic.Add lcase("\u00CD"),"Í"
dic.Add lcase("\u00CE"),"Î"
dic.Add lcase("\u00CF"),"Ï"
dic.Add lcase("\u00D0"),"Ð"
dic.Add lcase("\u00D1"),"Ñ"
dic.Add lcase("\u00D2"),"Ò"
dic.Add lcase("\u00D3"),"Ó"
dic.Add lcase("\u00D4"),"Ô"
dic.Add lcase("\u00D5"),"Õ"
dic.Add lcase("\u00D6"),"Ö"
dic.Add lcase("\u00D7"),"×"
dic.Add lcase("\u00D8"),"Ø"
dic.Add lcase("\u00D9"),"Ù"
dic.Add lcase("\u00DA"),"Ú"
dic.Add lcase("\u00DB"),"Û"
dic.Add lcase("\u00DC"),"Ü"
dic.Add lcase("\u00DD"),"Ý"
dic.Add lcase("\u00DE"),"Þ"
dic.Add lcase("\u00DF"),"ß"
dic.Add lcase("\u00E0"),"à"
dic.Add lcase("\u00E1"),"á"
dic.Add lcase("\u00E2"),"â"
dic.Add lcase("\u00E3"),"ã"
dic.Add lcase("\u00E4"),"ä"
dic.Add lcase("\u00E5"),"å"
dic.Add lcase("\u00E6"),"æ"
dic.Add lcase("\u00E7"),"ç"
dic.Add lcase("\u00E8"),"è"
dic.Add lcase("\u00E9"),"é"
dic.Add lcase("\u00EA"),"ê"
dic.Add lcase("\u00EB"),"ë"
dic.Add lcase("\u00EC"),"ì"
dic.Add lcase("\u00ED"),"í"
dic.Add lcase("\u00EE"),"î"
dic.Add lcase("\u00EF"),"ï"
dic.Add lcase("\u00F0"),"ð"
dic.Add lcase("\u00F1"),"ñ"
dic.Add lcase("\u00F2"),"ò"
dic.Add lcase("\u00F3"),"ó"
dic.Add lcase("\u00F4"),"ô"
dic.Add lcase("\u00F5"),"õ"
dic.Add lcase("\u00F6"),"ö"
dic.Add lcase("\u00F7"),"÷"
dic.Add lcase("\u00F8"),"ø"
dic.Add lcase("\u00F9"),"ù"
dic.Add lcase("\u00FA"),"ú"
dic.Add lcase("\u00FB"),"û"
dic.Add lcase("\u00FC"),"ü"
dic.Add lcase("\u00FD"),"ý"
dic.Add lcase("\u00FE"),"þ"
dic.Add lcase("\u00FF"),"ÿ"
Set dicutf8 = dic
End Function
Sub dummy()
End Sub
Anexos:
