21/05/2010, 15:33
|
 | | | Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 16 años Puntos: 53 | |
| Respuesta: una subcadena dentro de una cadena
Hola, creo que algo así podría servirte
Private Function CuantasVeces(Palabra As String, Frase As String) As Integer
Dim c As Integer
For c = 1 To Len(Frase)
If UCase$(Palabra) = UCase$(Mid$(Frase, c, Len(Palabra))) Then CuantasVeces = CuantasVeces + 1
Next
End Function
aunque probablemente no sea la única solución.
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
|