javi
13 de Mayo del 2003

Necesito una funcion que me devuelva el numero de ocurrencias de un caracter en una palabra.


Gracias

angelescj
13 de Mayo del 2003

Depúralo un poco y ya está:
Private Sub Command1_Click()
Dim cont As Integer
Dim cad As String
Dim car As String
Dim pos As Integer
'Tomo el valor de una caja de texto, que puede contener más de un caracter
car = Text2.Text
cad = Text1.Text
While Len(cad) > 0
pos = InStr(cad, car)
If pos <> 0 Then
cont = cont + 1
cad = Mid(cad, pos + 1)
Else
cad = ""
End If
Wend
MsgBox cont

End Sub

Suerte