TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Próxima »

Função: StrTran

Pesquisa e substitui caracteres de uma string ou campo memo.

Sintaxe

StrTran ( < cString>, < cSearch>, [ cReplace], [ nStart], [ nCount] ) --> cRet

Parâmetros/Elementos

 

NomeTipoDescriçãoObrigatórioReferência
cStringCaracterIndica a sequência de caracteres ou campo memo que será pesquisada.X 
cSearchCaracterIndica a sequência de caracteres que será procurada na string (cString).X 
cReplaceCaracterIndica a sequência de caracteres que deve substituir a string cSearch. Caso não seja especificado, as ocorrências de cSearch em cString serão substituídas por uma string vazia ("").  
nStartNumérico(**) Indica a partir de qual ocorrência da expressão cSearch encontrada dentro de cString que será substituída por cReplace. Caso não seja especificado, o valor default será 1 (um). Caso seja especificado erroneamente um número menor que 1 (um), a função retornará uma string vazia ("").  
nCountNuméricoIndica o número de trocas que deve ser realizada pela função. Caso não seja especificado, o padrão é substituir todas as ocorrências encontradas.  

 

Retorno
cRet
    (caracter)
  • Retorna uma nova string, onde as ocorrências especificadas de cSearch encontradas em cString foram substituídas por cReplace.
Observações
  • Essa função é case sensitive; ou seja, faz diferença entre letras maiúsculas é minúsculas.
  • (**) O 4º Parâmetro, até a Build 7.00.121227 era ignorado quando especificado, sendo sempre considerado o valor default (1), sinalizando para a função que a troca das strings era feita sempre a partir da primeira ocorrência encontrada. A partir da build 7.00.131227A, o valor informado no 4º parâmetro passou a ser considerado corretamente.

 

Exemplo
User Function TSTTran()
cString  := "Texto para teste para substituição para busca e troca" 
cSearch  := "para"
cReplace := "de"
nStart   := 2 // A partir de qual ocorrencia inicia a substituição 
nCount   := 2 // Substitui apenas duas ocorrencias 
cString2 := StrTran(cString, cSearch, cReplace, nStart, nCount)
 
MsgAlert(cString + chr(13) + cString2) // "Texto para teste de substituição de busca e troca"
 
// Nas builds anteriores a 7.00.131227A, a função não respeitava o 4o parametro, 
// e a função substituía a partir da primeira ocorrência, ficando o texto final como 
// "Texto de teste de substituição para busca e troca"

Abrangência

  • Advanced Protheus 6.09
  • Advanced Protheus 7.10
  • Microsiga Protheus 8.11
  • Protheus 10

 

 

 

  • Sem rótulos