Converte uma string de origem de um encoding (code-page) conhecido para a codificação UTF-8 ( 8-bit Unicode Transformation Format ).
EncodeUtf8( < cText >, < cEncoding > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cText | caractere | Indica a string (buffer) que será convertida para o formato UTF-8. | X | |
cEncoding | caractere | Indica qual o encoding (code-page) do buffer original passado em cText. O valor padrão para o parâmetro é "cp1252". |
Nome | Tipo | Descrição |
---|---|---|
cRet | caractere | Retorna a string no formato UTF-8. |
#define CRLF Chr(13) + Chr(10) User Function Exemplo() Local cTexto := "" Local cEncodeUTF8 := "" Local cDecodeUTF8 := "" Local cMensagem := "" cTexto := "à noite, vovô kowalsky vê o ímã cair no pé do pingüim " cTexto += "queixoso e vovó põe açúcar no chá de tâmaras do jabuti feliz." cEncodeUTF8 := EncodeUTF8(cTexto, "cp1252") cDecodeUTF8 := DecodeUTF8(cEncodeUTF8, "cp1252") cMensagem := "Pangrama origem: [" + cTexto + "]" cMensagem += CRLF + "Texto -> UTF8: [" + cEncodeUTF8 + "]" cMensagem += CRLF + "UTF8 -> Texto: [" + cDecodeUTF8 + "]" MsgInfo(cMensagem, "Exemplo") // Brasil em Russo cTexto := chr(193)+chr(240)+chr(224)+chr(231)+chr(232)+chr(235)+chr(201)+chr(235)+chr(255) cEncodeUTF8 := EncodeUTF8(cTexto, "cp1251") cDecodeUTF8 := DecodeUTF8(cEncodeUTF8, "cp1251") cMensagem := "Pangrama origem: [" + cTexto + "]" cMensagem += CRLF + "Texto -> UTF8: [" + cEncodeUTF8 + "]" cMensagem += CRLF + "UTF8 -> Texto: [" + cDecodeUTF8 + "]" MsgInfo(cMensagem, "Exemplo") Return |
Microsiga Protheus 8.11 , Protheus 10, Protheus 11