Nesse vídeo demonstraremos a utilização da função JustificaTXT, que serve para justificar um texto, deixando todas as linhas com o mesmo tamanho e com espaçamentos.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe319
Formata uma string justificando o texto
@type Function
@author Atilio
@since 25/02/2023
@obs
JustificaTXT
Parâmetros
Recebe a frase a ser formatada
Recebe a quantidade de caracteres para formatação
Recebe se deve pular a linha ao encontrar -enter- na frase
Retorno
Retorna um Array com as linhas formatadas
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe319()
Local aArea := FWGetArea()
Local cFrase := "O rato roeu a roupa do Rei de roma, a rainha com raiva resolveu remendar. Num ninho de mafagafos, cinco mafagafinhos há! Quem os desmafagafizá-los, um bom desmafagafizador será."
Local aDados := ""
Local cMensagem := ""
Local nAtual := 0
//Justifica o texto
aDados := JustificaTXT(cFrase, 30)
//Percorre as linhas e monta a mensagem
For nAtual := 1 To Len(aDados)
cMensagem += "[" + cValToChar(nAtual) + "] '" + aDados[nAtual] + "'" + CRLF
Next
//Exibe a mensagem
ShowLog(cMensagem)
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
