09/02/2005, 01:31
|
 | | | Fecha de Ingreso: marzo-2004 Ubicación: Lima
Mensajes: 307
Antigüedad: 21 años, 1 mes Puntos: 1 | |
| cad = "01,02,01,03,02,04"
i = 1
Do While i <= Len(cad)
cont = 0
j = i + 3
Do While j <= Len(cad)
If Mid(cad, i, 2) = Mid(cad, j, 2) Then
cont = cont + 1
End If
j = j + 3
Loop
If cont = 0 Then
NC = NC & Mid(cad, i, 2) & ","
End If
i = i + 3
Loop
bueno esta podria ser otra |