Nesse vídeo demonstraremos a utilização de funções para retirar espaços de uma variável ou uma expressão caractere.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe033
Exemplo de função para tirar espaços de uma variável caractere com AllTrim, RTrim e LTrim
@type Function
@author Atilio
@since 28/11/2022
@see https://tdn.totvs.com/display/tec/AllTrim , https://tdn.totvs.com/display/tec/RTrim e https://tdn.totvs.com/display/tec/LTrim
@obs
Função AllTrim
Parâmetros
+ cText , Caractere, Texto que terá os espaços a esquerda e direita removidos
Retorno
+ cRet , Caractere, Texto com os espaços removidos
Função RTrim
Parâmetros
+ cText , Caractere, Texto que terá os espaços a direita removidos
Retorno
+ cRet , Caractere, Texto com os espaços removidos
Função LTrim
Parâmetros
+ cText , Caractere, Texto que terá os espaços a esquerda removidos
Retorno
+ cRet , Caractere, Texto com os espaços removidos
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe033()
Local aArea := FWGetArea()
Local cNome := Space(10) + "Daniel Atilio" + Space(10)
Local cResult := ""
//Demonstrando o conteúdo original
cResult += "Original: '" + cNome + "'" + CRLF
//Retirando espaços da direita e esquerda
cResult += "AllTrim: '" + AllTrim(cNome) + "'" + CRLF
//Retirando apenas os espaços da direita
cResult += "RTrim: '" + RTrim(cNome) + "'" + CRLF
//Retirando apenas os espaços da esquerda
cResult += "LTrim: '" + LTrim(cNome) + "'" + CRLF
//Mostra o resultado das conversões
ShowLog(cResult)
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
