Contador De String

[Steven Tyler]

então galera, eu to com a seguinte dúvida, ai vai o código

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:

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

Irá retornar 2.

eu to com a duvida na seguinte linha de codigo:

AuxLocal = InStr(Aux, MyString, Ocorrencia)

o que significa InStr ? o que sinifica essa linha inteira?

[William Rodrigues]

A função InStr() devolve a posição da primeira ocorrência de uma string dentro de outra. Vou passar um exemplo:

Dim Texto, LetraQueProcuro, Resultado
Texto = "WilliaM Rodrigues" 'observe a letra "m" em Maiúsculo
LetraQueProcuro = "M"
Resultado = InStr(1, Texto, LetraQueProcuro)
Msgbox Resultado

Vai aparecer uma caixa de mensagem dizendo que o resultado é 7. Se você contar a quantidade de letras que tem no meu nome, verá que a letra "M" é a 7ª

W I L L I A M

1 2 3 4 5 6 7

o que sinifica essa linha inteira?

Acho que já dá prá ter uma base né...

Se ainda tiver dúvida é só falar

Abraços,

William Rodrigues