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.

Tags: AdvPLMaratonaProtheusTL++