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.