_ADVPL_isUTF8Encoded

Identificar se um conteúdo texto repassado está no formato UTF-8 ou não.

Sintaxe

_ADVPL_isUTF8Encoded( < cText > )

Parâmetros

Nome	Tipo	Obrigatório?	Descrição
cText	`CHAR`	Sim	Texto de origem a ser avaliado se o encode atual é UTF-8.

Retorno

Tipo

Descrição

LOGICAL

.T. ou TRUE - Conteúdo está em encode UTF-8. Conteúdo NULO ou vazio a função irá considerar formato como UTF-8.

.F. ou FALSE - Conteúdo não está em encode UTF-8.

Exemplo

#---------------------------------------#
 FUNCTION LOG_isUTF8Encoded_test()
#---------------------------------------#
  DEFINE l_text    CHAR(100)

  LET l_text = "Texto com acentuação para teste de mudança de conteúdo de UTF-8 para novo conteúdo."
  IF _ADVPL_isUTF8Encoded(l_text) THEN
	 CALL conout("Conteúdo 1 está em UTF-8")
  ELSE
 	 CALL conout("Conteúdo 1 NÃO está em UTF-8") 
  END IF
  
  LET l_text = _ADVPL_LOG_encodeUTF8(l_text)
  IF _ADVPL_isUTF8Encoded(l_text) THEN
	 CALL conout("Conteúdo 2 está em UTF-8")
  ELSE
 	 CALL conout("Conteúdo 2 NÃO está em UTF-8") 
  END IF
 END FUNCTION

Informações

Fontes: funcoes_genericas.prw

Veja também

_ADVPL_LOG_encodeUTF8

Páginas filhas