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 PStrTran
(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 Protheus 12.1.2210
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
@Post:StrTran
*/
User Function PStrTran()
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):