TOTVSTEC

Árvore de páginas

Converte uma string UTF-16 (16-bit Unicode Transformation Format) para a codificação CP1252.

Sintaxe

DecodeUtf16( < cText >, [ nEndian ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cText

caractere

Indica a string UTF-16 que será convertida para o formato CP1252.

X


nEndian

numérico

Indica o endianess do texto de entrada, podendo ser: 0 - Auto-Select (padrão), 1 - Big-Endian e 2 - Little-Endian. Caso nao seja especificado se é big-endian ou little-endian, a funcao verifica os primeiros bytes da sequencia, procurando o Byte Order Mark (BOM). Caso nao seja encontrado o BOM, a string é tratada como utf-16be ( big-endian )



Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna uma nova string no formato CP1252.

Exemplos

Exemplo 1
#define CRLF Chr(13) + Chr(10)
//+----------------------------------------------------------------------------+
//|Exemplo de uso da função EncodeUTF16 e DecodeUTF16                          |
//+----------------------------------------------------------------------------+
User Function Exemplo4()
  Local cTexto := ""
  Local cEncodeUTF16 := ""
  Local cDecodeUTF16 := ""
  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." 
  cEncodeUTF16 := EncodeUTF16(cTexto) 
  cDecodeUTF16 := DecodeUTF16(cEncodeUTF16) 
  cMensagem := "Pangrama origem: [" + cTexto + "]" 
  cMensagem1 := "Texto -> UTF16: [" + cEncodeUTF16 + "]" 
  cMensagem2 := "UTF16 -> Texto: [" + cDecodeUTF16 + "]"
  MsgInfo(cMensagem, "Exemplo")
  MsgInfo(cMensagem1, "Exemplo")
  MsgInfo(cMensagem2, "Exemplo")
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10, Protheus 11

Veja também