TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Daniel Otto Bolognani

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rinaldo Catroque Bersi

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
DecodeUtf16DecodeUTF16DecodeUtf16
DecodeUTF16

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

Sintaxe

Bloco de código
collapsefalse
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

Bloco de código
language
languagecpp
themeEclipse
cpptitleExemplo 1
linenumberstrue
collapsefalse
#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