ayuda cadena (eliminar los iguales)

[suntus]

hola tengo una cadena tipo

"01,02,01,01,05,"

Si os dais cuenta despues de cada numero hay una ","
Lo que necesito es que elimine de la cadena los numeros con su "coma" cuando sean iguales por lo que deberia quedar
"01,02,05,"

Necesito un poco de orientacion, he buscado funciones en VB pero no encontre una perfecta.

gracias

[mamon]

Me pareción interesante tu pregunta y decidí tomarme un tiempo para desarrollarla, la puedes utilizar para lo que quieras... es más voy a ponerlo en el post de funciones, rutinas y librerias y aquí también para que soluciones tu problema


<%
cadena = "01,02,01,01,05,05,10,02,05,01,04,100,50,04,02 "
V = Split(cadena,",")
cant = Ubound(V)
num = -1
do
num = num + 1
for i = num+1 to Cint(cant)
if Cstr(V(num)) = V(i) then
V(i) = ""
end if
next
loop until num = cant-1
for a = 0 to CInt(cant)
if Cstr(V(a)) <> "" then xcadena = xcadena & "," & V(a)
next
xcadena = right(xcadena,len(xcadena)-1)
response.write(xcadena)
%>
SUERTE!

[OYEME]

bueno una sol seria tienes que recorrerte la cadena con un for
y extrae la primera serie esa co,parala con las demas osea tienes que hacer otro for de ahi anda juntandolo en una nueva cadena

[mamon]

sería bueno q dieramos más ejemplos. a ver, cómo harías tu oyeme (con ejenplo si puedes)?

[OYEME]

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

[mamon]

y qué pasa si la cadena es ésta?:
cad = "100,02,01,03,02,04"?

[mamon]

he posteado esto en funciones, subrutinas y librerías:

Cómo hacer si tengo una cadena y no quiero que se repitan números, letras o lo que sea... bueno, aquí les mando una función:

Código:

<%
function no_repetir(cadena,separacion)
V = Split(cadena,separacion)
cant = Ubound(V)
num = -1
do
num = num + 1
for i = num+1 to Cint(cant)
if Cstr(V(num)) = V(i) then
V(i) = ""
end if
next
loop until num = cant-1
for a = 0 to CInt(cant)
if Cstr(V(a)) <> "" then xcadena = xcadena & separacion & V(a)
next
no_repetir = right(xcadena,len(xcadena)-1)
end function
%>

ahora la página q llamará a la función

Código:

<%
cadena = "01,02,01,50,500,500"
response.Write(no_repetir(cadena,","))
%>

como ven digo q se imprima lo que devuelve la función, le envio la cadena con los datos y el otro parámetro dice de qué forma están separados los números, han podido ser palabras, letras y la separación x ejemplo un espacio..

[OYEME]

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????

[mamon]

claro.. esa es otra buena forma de hacerlo

[mamon]

No sé si me puedan ayudar con este post (es mio)
http://www.forosdelweb.com/f59/iis-268952/

[suntus]

pues muchas gracias a los dos, la idea de mamon era la que intente desarroyar pero me rendi antes de conseguirlo.

gracias a todos.