Mas problemas :( filtrar o eliminar registros iguales

[luis456]

Esto no acaba nunca

Esto ya funciona pero me repite las combinaciones y necesito números o combinaciones únicas ya que  1, 2, 3 es lo mismo que  3, 2, 1 o  2, 1, 3... solo debe quedar uno de ellos
he probado con poner " .Distinct().ToArray " pero como siempre

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 37}

       Dim pairsCol As IEnumerable(Of String) =
           From value1 As Integer In intCol
           From value2 As Integer In intCol
           Select String.Join(Environment.NewLine, (
                              From value3 As Integer In intCol
                              Where (value1 <> value2) AndAlso
                                    (value1 <> value3) AndAlso
                                    (value2 <> value3)
                              Select String.Format("{0:00}, {1:00}, {2:00}",
                                                   value1, value2, value3)))



       For Each pairs As String In pairsCol


           For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
               ' MsgBox(pairs.Count)
               ' MsgBox(line.Count)

               Me.ListBox1.Items.Add(line)
           Next line

       Next pairs


   End Sub

salida

20, 24, 34***
20, 24, 37
20, 34, 24***
20, 34, 37
20, 37, 24
20, 37, 34****
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20***
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24****
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24

si os dais cuenta las combinaciones se repiten pero con el orden de los numeros cambiados como podria dejar solo una de ellas ???

Luis

[Eleкtro]

Código [Seleccionar] Expandir

20, 24, 34
20, 34, 24
34, 24, 20

Yo no veo ninguna repetición, tecnicamente son combinaciones distintas.

Muestra la lista completa del resultado que obtienes, y la lista completa del resultado que esperas obtener, sino esto no hay quien lo entienda ya!.

[luis456]

Bueno aca esta la lista completa como me lo entrega ahora .esto esta haciedo permutaciones pero no quiero modificar el codigo ya que le tengo otras ideas jejej
solamente quiero dejar una combinacion de cada uno.esto es quitar toda cambinaciones que tengan o coincidan los mismos tres numeros en diferente orden.

ideas pasar esta lista a una variable donde elimine antes de mostrar en el listbox .


ahora esta es la salida como me la muestra.

20, 24, 34
20, 24, 37
20, 34, 24
20, 34, 37
20, 37, 24
20, 37, 34
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24


quiero ir eliminando las combinaciones iguales porque si se mira bien. veras que hay combinaciones que son iguales. solo que cambian las posiciones de los números.


debería quedar asi
20, 24, 34
20, 24, 37
20, 34, 37
24, 34, 37



Luis

[Eleкtro]

De todas formas, tengo una sorpresita para ti.

Ayer te mencioné lo del desarrollo de la función de permutaciones (ya no se si quieres combinaciones o permutaciones, pero esto viene al caso igualmente),
al final he acabado haciendo un puerto para Vb.Net de la librería Combinatronics, la cual tiene un código fuente que es una delicia:

• https://github.com/eoincampbell/combinatorics

Aun no he terminado de finalizar el código fuente, pero igualmente puedes usar ese en C#. Solo tienes que descargarlo desde GitHub y compilarlo en Visual Studio, se generará una librería "Combinatronics.dll", referencias esa dll en tu proyecto de Vb.Net, y listo.

Modo de empleo:

Código (vbnet) [Seleccionar] Expandir

Dim permutations As New Permutations(Of Integer)({3, 1, 10}, MetaCollectionType.WithoutRepetition)

MsgBox(String.Format("Permutaciones: {0}", permutations.Count))

For Each permutation As List(Of Integer) In permutations
   Console.WriteLine(String.Join(", ", permutation))
Next permutation

PD: Si esto no resuelve los problemas con combinaciones/permutaciones ...yo no se que más puedes necesitar ya xD.

Saludos!

[luis456]

De todas formas, tengo una sorpresita para ti.

Ayer te mencioné lo del desarrollo de la función de permutaciones (ya no se si quieres combinaciones o permutaciones, pero esto viene al caso igualmente),
al final he acabado haciendo un puerto para Vb.Net de la librería Combinatronics, la cual tiene un código fuente que es una delicia:

• https://github.com/eoincampbell/combinatorics

Aun no he terminado de finalizar el código fuente, pero igualmente puedes usar ese en C#. Solo tienes que descargarlo desde GitHub y compilarlo en Visual Studio, se generará una librería "Combinatronics.dll", referencias esa dll en tu proyecto de Vb.Net, y listo.

Modo de empleo:

Código (vbnet) [Seleccionar] Expandir

Dim permutations As New Permutations(Of Integer)({3, 1, 10}, MetaCollectionType.WithoutRepetition)

MsgBox(String.Format("Permutaciones: {0}", permutations.Count))

For Each permutation As List(Of Integer) In permutations
   Console.WriteLine(String.Join(", ", permutation))
Next permutation

PD: Si esto no resuelve los problemas con combinaciones/permutaciones ...yo no se que más puedes necesitar ya xD.

Saludos!

Gracias por tu tiempo y GRAN PACIENCIA jejejje lo que necesito es crear un sistema de Combinaciones pero no busco lo normal jejejje busco algo diferente pero en combinaciones únicas ya que codigos de combinaciones hay miles pero son lo basico y normal jejje con eso no se llega a donde quiero ir    , las permutas no me valen para lo que busco te puse lo que me gustaría poder hacer a ver si se puede, sin modificar la funcion del codigo ,solo en el resultado


Luis

[luis456]

Ya me canse jejej ,,de revizar todos mis códigos  y parte de google todo el dia

alguna idea ? que me pueda servir

[crack81]

puedes detallar un poco mas lo que quieres hacer?

[luis456]

puedes detallar un poco mas lo que quieres hacer?

Bueno analizando el problema , lo que quiero es ordenar los registros y eliminar los coincidentes

ahora me los entrega de esta forma desordenado deberian estar por oden de menor a mayor

20, 24, 34
20, 24, 37
20, 34, 24
20, 34, 37


para poder eliminar iguales se debería de ordenar primero el orden de los registros

20, 24, 34
20, 24, 37
20, 24, 34*********
20, 34, 37*********

Para eliminar los que están marcados con *

Código (vbnet) [Seleccionar] Expandir

For Each pairs As String In pairsCol


            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
                ' MsgBox(pairs.Count)
                ' MsgBox(line.Count)

                Me.ListBox1.Items.Add(line)
            Next line

        Next pairs

Estoy tratado de convertir la variable antes de llenar el testbox

Pero cuando trato de hacerlo con (Line) me dice error

"Ya no se admiten instrucciones 'Line'." ???? 

estoy mas enredado 

Luis

[Lekim]

Hola Luis

Ya te comenté lo de meter la lista en un Array list:

Código (vbnet) [Seleccionar] Expandir


       Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
       Dim LISTA As New List(Of String)(Elementos)


       MsgBox("Con repeticiones")
       For Each N As String In LISTA
           ListBox1.Items.Add(N)
       Next

       MsgBox("Sin repeticiones")
       ListBox1.Items.Clear()
       LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
       For Each N As String In LISTA
           ListBox1.Items.Add(N)
       Next




Con integer:

Código (vbnet) [Seleccionar] Expandir

        Dim Elementos() As Integer = {1, 2, 3, 3, 3, 4, 4, 5}
        Dim LISTA As New List(Of Integer)(Elementos)


        MsgBox("Con repeticiones")
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next

        MsgBox("Sin repeticiones")
        ListBox1.Items.Clear()
        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next

[luis456]

Hola Luis

Ya te comenté lo de meter la lista en un Array list:

Código (vbnet) [Seleccionar] Expandir


       Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
       Dim LISTA As New List(Of String)(Elementos)


       MsgBox("Con repeticiones")
       For Each N As String In LISTA
           ListBox1.Items.Add(N)
       Next

       MsgBox("Sin repeticiones")
       ListBox1.Items.Clear()
       LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
       For Each N As String In LISTA
           ListBox1.Items.Add(N)
       Next




Con integer:

Código (vbnet) [Seleccionar] Expandir

        Dim Elementos() As Integer = {1, 2, 3, 3, 3, 4, 4, 5}
        Dim LISTA As New List(Of Integer)(Elementos)


        MsgBox("Con repeticiones")
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next

        MsgBox("Sin repeticiones")
        ListBox1.Items.Clear()
        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next

Hola y gracias ,bueno esto solo funciona con la cadena propia que me muestras

Código (vbnet) [Seleccionar] Expandir

Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
        Dim LISTA As New List(Of String)(Elementos)
 


y yo busco es aplicarlo a los resultados que me da :

Código (vbnet) [Seleccionar] Expandir

  For Each pairs As String In pairsCol


            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
                ' MsgBox(pairs.Count)
                ' MsgBox(line.Count)

                Me.ListBox1.Items.Add(line)
            Next line

        Next pairs


Donde se supone que los datos dentro del listbox es LINE el cual no encuentro la manera de pasarlos a un array y ya he probado de todo ;(

Luis