Tempo de leitura: 2 minutos
A função StrTran é utilizada para pesquisar e substituir um conjunto de caracteres em uma string. Ela é case sensitive, ou seja, diferencia letras maiúsculas e minúsculas. Também é uma das funções de manipulação de string em ADVPL.
Sintaxe:
StrTran(cString,cPesq,cSubst,nInicio,nQtdSub)
Parâmetro(s):
Retorno:
Exemplo de StrTran em ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function fStrTran
(Essa função tem por finalidade mostrar a função de Manipulação de String StrTran em ADVPL)
@type Function
@author Adilio Costa
@since 18/11/2023
@version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function fStrTran()
Local cString := "Projeto Programação no Protheus"
Local cStringNova := ""
Local cPesq := "Pro"
Local cSubst := "@"
Local nInicio := 2
Local nQtdSub := 1
cStringNova := StrTran(cString,cPesq,cSubst,nInicio,nQtdSub)
MsgInfo("Nova String:"+cStringNova,"Função StrTran")
nQtdSub := 2
cStringNova := StrTran(cString,cPesq,cSubst,nInicio,nQtdSub)
MsgInfo("Nova String:"+cStringNova,"Função StrTran")
Return
No código ADVPL acima utilizamos a função StrTran para pesquisar na string “Projeto Programação no Protheus”(cString= “Projeto Programação no Protheus”) o conteúdo “Pro”(cPesq= “Pro”) e substituir por “@”(cSubst= “@”) a partir da 2 ocorrência(nInicio = 2) e essa substituição deve ser 1 vez(nQtdSub=1) onde ao final StrTran retornou a nova string como:“Projeto @gramação Protheus”:
Na segunda mensagem do código ADVPL acima utilizamos a função StrTran para pesquisar na string “Projeto Programação no Protheus”(cString= “Projeto Programação no Protheus”) o conteúdo “Pro”(cPesq= “Pro”) e substituir por “@”(cSubst= “@”) a partir da 2 ocorrência(nInicio = 2) e essa substituição deve ser 2 vezes(nQtdSub=2) onde ao final StrTran retornou a nova string como:“Projeto @gramação @theus”:
É isso aí, finalizamos aqui o post sobre a função StrTran em ADVPL. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.
Link(s) de referência(s):
