09/02/2005, 01:47
|
 | | | Fecha de Ingreso: marzo-2004 Ubicación: Lima
Mensajes: 307
Antigüedad: 21 años, 1 mes Puntos: 1 | |
| holsa mamon no sabia para que servia la funcion split te creaba un arrgelo bueno que te parece este codigo:
cad = "01,01,02,03,01,02,05,06,01"
v = Split(cad, ",")
For i = 0 To UBound(v)
cont = 0
For j = i + 1 To UBound(v)
If v(i) = v(j) Then
cont = cont + 1
End If
Next
If cont = 0 Then
nc = nc & v(i) & ","
End If
Next
nc = Left(nc, Len(nc) - 1)
creo podrias tomarla en cuenta para la funcion que has hecho no crees???? |