SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jessuss en Miércoles 14 de Mayo de 2003, 10:39

Título: Re: Necesito una Funcion
Publicado por: Jessuss en Miércoles 14 de Mayo de 2003, 10:39
Hola, necesito si conoceis una funcion que me diga cuantas veces se repite una letra o un caracter en una palabra, no puedo depurar la palabra ya que el numero de palabras que deberia de tratar seria altísimo y perderia mucho tiempo.

Gracias.
Título: Re: Necesito una Funcion
Publicado por: ROBER.29 en Miércoles 14 de Mayo de 2003, 11:47
Podrias utilizar la función split. Esta función te devuelve un array, por ejemplo:

Dim array_caracter () as string, palabra as string, caracter as string

array_caracter = split (palabra, caracter)

Msgbox "El caracter " & caracter & " aparece " & Ubound(array_caracter) & " veces en la palabra " & palabra

'Destruyes el array
Erase array_caracter

Lo que ahora mismo no se si al ubound le tendrías que sumar uno o no, haz pruebas y si ves que siempre te cuenta un caracter menos es que le tienes que sumar uno.

Espero haberme explicado bien y que te sirva de ayuda.

Saludos,
Roberto García
Título: Necesito una Funcion
Publicado por: Jessuss en Miércoles 14 de Mayo de 2003, 15:31
Gracias por tu ayuda lo probaré.