Nesse vídeo demonstraremos a utilização da função FormatStr, que serve para formatar um texto, exibindo variáveis.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe191
Formata uma string com variáveis e máscaras (parecido com a Transform, mas podendo utilizar direto a formatação numa string como um printf em C)
@type Function
@author Atilio
@since 11/02/2023
@obs 
    Função FormatStr
    Parâmetros
        + Frase original com os lugares a serem formatados como %c ; %n ; %d e %l
        + Define qual será o caractere separador
    Retorno
        + Frase já formatada

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

User Function zExe191()
    Local aArea      := FWGetArea()
    Local cFraseSimp := ""
    Local cFraseComp := ""
    Local dDataHoje  := Date()
    Local aDados     := {}

    //Monta uma frase simples e exibe
    cFraseSimp := FormatStr("Hoje é %d", dDataHoje)
    FWAlertInfo(cFraseSimp, "Teste 1 - FormatStr")

    //Monta uma frase complexa
    aDados := {}
    aAdd(aDados, dDataHoje)
    aAdd(aDados, "Daniel Atilio")
    aAdd(aDados, 2012)
    aAdd(aDados, .T.)
    cFraseComp := FormatStr("Hoje é %d , o nome é %c , o Terminal de Informação nasceu em %n , o autor gosta de ler %l", aDados)
    FWAlertInfo(cFraseComp, "Teste 1 - FormatStr")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima

Tags: AdvPLMaratonaProtheusTL++