Olá pessoal…

Hoje vou mostrar uma função desenvolvida que conta a repetição de um caracter em uma string (por exemplo, a letra i em Terminal de Informação, repete 2 vezes).

AdvPL

Essa função desenvolvida, recebe 3 parâmetros, o primeiro é a string completa, a segunda é o caracter buscado, e a terceira é se irá transformar tudo em maiúsculo antes de comparar.

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zConta
Função que conta quantos caracteres repetem em uma string
@type function
@author Atilio
@since 13/11/2016
@version 1.0
	@param cPalavra, character, Palavra a ser considerada
	@param cCaracter, character, Caracter a ser procurado
	@param lMaiusculo, logic, Transforma tudo em maiusculo
	@return nTotal, Total de caracteres encontrados
	@example
	u_zConta("Daniel Atilio", "a", .T.) //retorna 2
/*/

User Function zConta(cPalavra, cCaracter, lMaiusculo)
	Local aArea       := GetArea()
	Local nTotal      := 0
	Local nAtual      := 0
	Default cPalavra  := ""
	Default cCaracter := ""
	
	//Se transforma tudo em maiusculo
	If lMaiusculo
		cPalavra  := Upper(cPalavra)
		cCaracter := Upper(cCaracter)
	EndIf
	
	//Percorre todas as letras da palavra
	For nAtual := 1 To Len(cPalavra)
		//Se a posição atual for igual ao caracter procurado, incrementa o valor
		If SubStr(cPalavra, nAtual, 1) == cCaracter
			nTotal++
		EndIf
	Next
	
	RestArea(aArea)
Return nTotal

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPL