Hola a todos
bueno aca estoy de nuevo con mis rollos

no encuentro la manera de eliminar datos repetidos he puesto por todos lados pero no me filtra los registros repetidos se como hacerlo con variables pero como aca pongo todas las variables juntas en un testbox ;( me da ese fallo

01 02 03 04 05 06 07 08 09
01 02 03 04 05 06 07 08 09

 Dim Lnumbers As List(Of IEnumerable(Of Integer)) = { SM18, SM17, SM16, SM14....,}.Distinct.ToList
 
 
      For Each col As IEnumerable(Of Integer) In Lnumbers
 
 
 
            ListBox23.Items.Add(String.Join(", ", From value As Integer In col
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
        Next col 

Luis

Solucionado lo de mostrar con ceros 


Gracias elektro mis avances son pequeños, pero caminando es que se  hace el camino

For Each col As IEnumerable(Of Integer) In Lnumbers
 
            ListBox23.Items.Add(String.Join(", ", From value As Integer In col
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
        Next col 

Luis

Perfecto funciona bien y si me disculpas te hare un par de preguntas sobre esto 

hay alguna limitacion sobre la cantidad de variables que se puedan usar ?  ejemplo si quiero poner dos mil variables jejej ( pura curiosidad)

Dim Lnumbers As List(Of IEnumerable(Of Integer)) = {col1, tgghLali9, ali4, ali5, ali6, ali7,....hasta dosmil o mas }.ToList   

y la otra que estoy buscando " estetica" 

como hago para que en ves de mostrame

1 2 3 4 5 6 7 8 9

10 11 12 13 14 15 16 17 18 19

pueda mostrar con ceros asi

01 02 03 04 05 06 07 08 09

11 12 13 14 15 16 17 18 19

estuve investigando con " format " pero no me entero ya que probando lo unico que hago es agregar ceros a todos los numeros incluidos los pares jejej

Luis

  a si si se aprende , bien explicado profe , sabes que pasa a veces, que es como cuando le enseño mecanica a mi sobrino (mi profesion real ) es que asumo que como yo lo se , el deberia saberlo  o que es facil jejej y por eso  te agradezco tu esfuerzo en enseñarme bueno a a tratar ya que a burro viejo es dificil enseñar jejej


Luis   

lo sabia ,,lo sabia 

 

te enseño de donde lo saco , "almlals2"  lo que nesecito mostrar y son 30 variables de ese tipo y los quiero mostrar en un solo listbox

 Dim almA1 As IEnumerable(Of Integer) = almRe1
        Dim almlals2 As List(Of Integer) = almRe1.ToList
        almlals2.Sort()
        Me.ListBox70.Items.AddRange((From value As Integer In almlals2 Where value <> 0).Cast(Of Object).ToArray)  

luis

Bueno de nuevo gracias por tu paciencia pero no sale lo  que busco y eso que me lei los enlaces que me enviaste y todavia no aprendo a explicarme, te pongo lo que hago pero por supuesto no me sale

primer error el tipico " Un valor de tipo 'Integer' no se puede convertir en 'System.Windows.Forms.ListBox' "

segundo problema no se unir las variables

 im Lnumbers As List(Of Integer) = rsalmlals2, rsalmlals3, rsalmlals4
 
        For Each lb As ListBox In Lnumbers
 
            ListBox1.Items.Add(String.Join(" "c, Lnumbers))
 
        Next lb 

Luis

Bueno quiero hacer algo como esto: Pero con las variables que muestro en los testboxes

 Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}   <----cambiar x variables que se muestran  en cada testbox
 
For Each lb As ListBox In lbs
    ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String)))
Next lb 

 

no me sale ya estoy por creer que no se puede ;(


otra de las muchas formas que he tratado y nada no se unir las variables con la primera si pero ni punto ni comas ni ostias,,,,,,,,,

Dim Lnumbers As IEnumerable(Of Integer) = rsalmRe1 <solo me acepta una variable 
 
        For Each Lnumber As Integer In Lnumbers
 
            ListBox1.Items.Add(String.Join("-"c, Lnumbers.Cast(Of Integer)))
 
        Next Lnumber 

aaa en linq: no encuentro nada 

Luis

Bueno aca de nuevo con un problema similar al anterior post  

Queria mostrar en un solo listbox 60 listbox  y se resolvio ahora pense que seria mejor mostrar  las variables que se muestra en esos testbosex  y podria hacer el codigo mas limpio jejej

tengo esto, pero dos cosas si son 60 variables como es que se colocan jejej ya que logro poner una y la muestra pero repiten los resultados cuando se supone que deberia

de esta manera si hay una sola variable
01 02 03 04 05 06 07 08 09 10

y me muestra : ????

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10

 Dim Lnumbers As List(Of Integer) = rsalmlals2
 
        For Each Lnumber As Integer In Lnumbers
 
            ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer)))
 
        Next Lnumber

Saludos
Luis