Hola, necesitaria saber si existe alguna funcion a la cual le pase un string y un caracter y me devuelva la cantidad de veces que aparece ese caracter en esa cadena.


lo unico que se me ocurre por ahora es hacerlo con la funcion Mid pero quiza haya alguna otra forma mas facil.





saludos

Bueno, hay varias formas...

* Con Mid$ (como vos decís)
* Con un bucle con InStr.
* Con Split

Código:

Dim V as Variant
V = Split(Cadena, Caracter)
Msgbox "El caracter se encuentra " & Ubound(v) & " veces"

Saludos

ahh, tenes razon, conocia la funcion split, pero no se me ocurrio usarla para esto.





muchas gracias!

Código:

Private Sub Form_Load()
MsgBox Cant_Car("Jose Jose Jose", "os")
End Sub


Public Function Cant_Car(sTexto As String, sCar As String) As Integer
Dim i As Integer
Dim cont As Integer
cont = 0
For i = 1 To Len(sTexto)
 If sCar = Mid(sTexto, i, Len(sCar)) Then cont = cont + 1
Next
Cant_Car = cont
End Function

Checa este funcion a ver que tal te va!