Autor Tema: Re: contar grupos (Leído 1575 veces)

FEckEZ · « **en:** Martes 21 de Enero de 2003, 03:05 »

bueno, mi consulta es la siguiente... como puedo contar el numero de grupos que hay de un determinado caracter en una fila... por ejemplo:

XXX XX XX X XXXX

desearia poder contar el numero de X que hay juntas, en este caso que el codigo me devolviera 5.

gracias por leer la consulta.

ROBER.29

Una posible solución sería la siguiente:

Dim grupos () as string

grupos = split(txtgrupos.text, " ")

txtnumerogrupos.text = Ubound(grupos)

Lo que pasa es que para que funcionara esto correctamente tendrías que controlar que el único separador posible para separar los grupos fuera el espacio. Por que si no no funcionaría. Espero que te sirva.

Saludos,
Roberto García

FEckEZ

gracias por la respuesta... el codigo funcionaria si fuera un solo espacio lo que separa los grupos.... pero entre cada
XXX puede haber 2, 3, 4, 1 y mas espacios, y el codigo puesto arriba solo me sirve si hay un solo espacio entre cada grupo.

manukoz

a = "XXX XX XXX XX XXX"
Dim contador As Integer
Dim anterior As String
contador = 0
anterior = "-"
For b = 1 To Len(a)
If Mid(a, b, 1) = "X" And anterior <> "X" Then
contador = contador + 1
End If
anterior = Mid(a, b, 1)

Next b
MsgBox contador

FEckEZ

espero no sea descaro, mi ignorancia llega a ser tan grande que a veces no la logro imaginar....

una cosa, como podria contar el numero de x que hay en cada grupo...

por ejemplo

xxx xx xxxx xx

como puedo hacer para asignarle a una variable la cantidad de x que hay en cada grupo... en este caso hay 4 grupos.... como puedo hacer para grupo1=3, grupo2=2, grupo3=4 y grupo 4=2

gracias.