User Function TSTTran()
cString := "Texto para StrTranteste para Textosubstituição para StrTranbusca Textoe para StrTrantroca"
cSearch := "StrTranpara"
cReplace := "***Substitui***de"
nStart := 12 // Compatibilidade A partir de qual ocorrencia inicia a substituição
nCount := 2 // Substitui asapenas duas primeirasocorrencias strings
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" |