Nesse vídeo demonstraremos a utilização das funções Asc e Chr, sendo que a primeira retorna o código ASCII de um caractere e a segunda retorna o caractere conforme um código ASCII.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe042
Exemplo de função que busca o código ASCII de um caractere assim como informa o caractere de um código ASCII
@type Function
@author Atilio
@since 29/11/2022
@see https://tdn.totvs.com/display/tec/Asc e https://tdn.totvs.com/display/tec/Chr
@obs 
    Função Asc
    Parâmetros
        + cString   , Caractere , Indica o caractere que será buscado o código ASCII
    Retorno
        + nRet      , Numérico  , Retorna o número do caractere da tabela ASCII (0 à 255)

    Função Chr
    Parâmetros
        + nCodigo   , Numérico  , Indica o número do caractere na tabela ASCII (0 à 255)
    Retorno
        + cRet      , Caractere , Retorna o caractere respectivo

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe042()
    Local aArea      := FWGetArea()
    Local cMensagem  := ""
    Local cEnter     := ""
    Local cLetra     := ""
    Local nCaractere := ""

    //O Enter, será os códigos ASCII 13 + 10, é o mesmo que utilizar a constante CRLF
    cEnter := Chr(13) + Chr(10)

    //Busca o código ASCII da letra D
    cLetra     := "D"
    nCaractere := Asc(cLetra)

    //Monta a mensagem
    cMensagem := "Testes realizados com Chr e Asc" + cEnter
    cMensagem += "A letra '" + cLetra + "' tem o código '" + cValToChar(nCaractere) + "' na tabela ASCII" + CRLF
    cMensagem += "Mais um teste apenas quebrando a linha"

    //Mostra o resultado
    FWAlertInfo(cMensagem, "Resultado")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++