Procurando Caracter Em Uma String

[@line]

Olá!

Alguém sabe se existe alguma função para contar quantas vezes um determinado caracter aparece em uma string?

[Luiz Humberto]

Public Function QtdeString(MyString As String, Ocorrencia As String) As Long

Dim Contador As Long

Dim AuxLocal As Long

Dim AuxString As Long

Dim Aux As Long

AuxLocal = 1

Contador = 0

AuxString = 1

Aux = 1

While AuxLocal <> 0

AuxLocal = InStr(Aux, MyString, Ocorrencia)

Aux = AuxLocal + Len(Ocorrencia)

If AuxLocal <> 0 Then

Contador = Contador + 1

End If

Wend

QtdeString = Contador

'Return Contador

End Function

Para chamar faça assim:

QtdeString("TESTE","T")

Irá retornar 2.

Precisando estamos aí

[Luiz Humberto]

QtdeString("TESTE","T")

Faltou uma variavel receber este resultado. Então ficará assim:

Qtde=QtdeString("TESTE","T")

[rodfraga]

Na verdade eu acho que não. A função resultaria nesse valor, atuando como uma variável. Estou errado?

[Graymalkin]

Na verdade eu acho que não. A função resultaria nesse valor, atuando como uma variável. Estou errado?

Você quer dizer usando algo assim...

if QtdeString("TESTE","T")=2 then

... ? Se for, tanto faz fazer dessa maneira quanto fazer:

Qtde=QtdeString("TESTE","T")
if Qtde=2 then

Dá no mesmo. Apenas no segundo caso você deu um "nome" para identificar o valor retornado e no primeiro caso não.

Abraços,

Graymalkin

[rodfraga]

Isso que eu quis dizer. Porém, esse nome, seria mais uma variável a ser criada, o que acarretaria em mais uma (insignificante) ocupação da memória do computador, certo?

[Promotor Advanced]

'Esse código que faz a mesma coisa, só que eu acho menor...

Function QuantasVezes(Letra As String, Carac As String) As Integer

Dim NuVezes As Integer

Dim X As Integer

For X = 1 To Len(Carac)

If Mid(Carac, X, 1) = Letra Then

NuVezes = NuVezes + 1

End If

Next X

QuantasVezes = NuVezes

End Function

'para chamar

MsgBox QuantasVezes("a", "papagaio")

[Graymalkin]

Isso que eu quis dizer. Porém, esse nome, seria mais uma variável a ser criada, o que acarretaria em mais uma (insignificante) ocupação da memória do computador, certo?

Ambos fazem isso (ou sejam, ocupam um determinado espaço após a expressão ter sido desenvolvida). Porém, nesse caso, talvez o fato de ter uma variável ocupe um pouco mais de espaço, já que a mesma será uma Variant. Já se ela fosse declarada, acho que não haveria diferença.

Abraços,

Graymalkin

[rodfraga]

Agora entendi.