Nesse vídeo demonstraremos a utilização da função StrIConv, que serve para converter uma string que utiliza uma codificação para outra codificação.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe458
Converte uma string de uma codificação para outra
@type Function
@author Atilio
@since 31/03/2023
@see https://tdn.totvs.com/display/tec/STRICONV
@obs
Função StrIConv
Parâmetros
+ cText , Caractere , Texto a ser analisado
+ fromCodePage , Caractere , Codificação de origem
+ toCodePage , Caractere , Codificação de destino
Retorno
+ cRet , Caractere , Retorna o texto formatado
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe458()
Local aArea := FWGetArea()
Local cTexto := ""
Local cNovo := ""
//Monta as informações e aciona a remoçaõ de caracteres
cTexto := "A aranha arranha a rã. A rã arranha a aranha. Nem a aranha arranha a rã. Nem a rã arranha a aranha."
cNovo := StrIConv(cTexto, "CP1252", "UTF-8")
//Exibe a mensagem
FWAlertInfo(cNovo, "Teste de StrIConv")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
