Nesse vídeo demonstraremos em como contar quantas vezes um texto se repete dentro de outro utilizando a função CountStr.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe096 Exemplo para buscar quantas vezes uma expressão se repete @type Function @author Atilio @since 11/12/2022 @obs Função CountStr Parâmetros + Indica o caractere a ser buscado + Informa o texto completo Retorno + Retorna a quantidade de caracteres encontrados **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe096() Local aArea := FWGetArea() Local cFrase := "O rato roeu a roupa do Rei de roma, a rainha com raiva resolveu remendar. Num ninho de mafagafos, cinco mafagafinhos há! Quem os desmafagafizá-los, um bom desmafagafizador será." Local cBusca := "ra" Local nTotal := 0 //Conta quantas repetições teve nTotal := CountStr(cBusca, cFrase) FWAlertInfo("Número de vezes que a busca se repete: " + cValToChar(nTotal), "Teste CountStr") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.