Nesse vídeo demonstraremos a utilização da função StrTran, que serve para substituir parte de uma string.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe461
Substitui parte de uma string por outra
@type Function
@author Atilio
@since 02/04/2023
@see https://tdn.totvs.com/display/tec/StrTran
@obs
Função StrTran
Parâmetros
+ cString , Caractere , String que será analisada
+ cSearch , Caractere , Trecho que será pesquisado
+ cReplace , Caractere , Trecho que irá substituir o pesquisado
+ nStart , Numérico , Indica a partir de qual recorrência ocorrerá a substituição
+ nCount , Numérico , Indica o número de substituições a fazer
Retorno
+ cRet , Caractere , A string com as partes substituidas
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe461()
Local aArea := FWGetArea()
Local cTexto := "A aranha arranha a rã. A rã arranha a aranha. Nem a aranha arranha a rã. Nem a rã arranha a aranha."
Local cNovo := ""
//Substitui toda letra "a" minúscula por "-o-"
cNovo := StrTran(cTexto, "a", "-o-")
FWAlertInfo(cNovo, "Teste 1 StrTran")
//Substitui toda letra "a" minúscula por "-o-" somente a partir da 20ª recorrência
cNovo := StrTran(cTexto, "a", "-o-", 20)
FWAlertInfo(cNovo, "Teste 2 StrTran")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
