String

[feberaldo 0]

Pessoal,Alguém sabe qual função devo usar para saber quantas vezes uma caracter aparece em uma string?Obrigada.Fernanda

[Veber 0]

nao conheço, mas poderia ser assim

 

Public Function CharCount(vString As String, vSeek As String) As LongDim nCounter As LongDim strPosition As LongDim seekLen As LongstrPosition = 1nCounter = 0seekLen = Len(vSeek)Do    strPosition = InStr(strPosition, vString, vSeek)    If strPosition > 0 Then nCounter = nCounter + 1: strPosition = strPosition + seekLenLoop Until strPosition = 0CharCount = nCounterEnd Function

 

será que isso funciona?

 

 

hehehe

 

Flows

[Veber 0]

pera ai, isso ai eh pro VB o pro Delphi?