elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Eliminar registros iguales condicionados :(
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Eliminar registros iguales condicionados :(  (Leído 2,158 veces)
luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Eliminar registros iguales condicionados :(
« en: 23 Marzo 2020, 14:17 pm »

Trabajando con este código de combinaciones o permutas ?? quiero eliminar los registros que dupliquen los números o que tengan los mismos números en diferente orden dejando solo uno de ellos ya que me repite muchos registros donde tienen los mismos numeros:
ejemplo

Código
  1. Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
  2.        Dim Elementos As IEnumerable(Of Integer) = {1, 4, 5, 8, 33, 44, 45, 68, 98}
  3.        Dim EleX As Integer = 0
  4.        Dim EleX1 As Integer = 0
  5.        Dim EleX2 As Integer = 0
  6.        Dim EleX3 As Integer = 0
  7.        Dim EleX4 As Integer = 0
  8.        ListBox4.Items.Clear() 'Limpia el ListBox
  9.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  10.            For I2 As Integer = EleX To Elementos.Count - 1
  11.                For I3 As Integer = EleX To Elementos.Count - 2
  12.                    For I4 As Integer = EleX To Elementos.Count - 3
  13.                        For I5 As Integer = EleX To Elementos.Count - 4
  14.                            For I6 As Integer = EleX To Elementos.Count - 5
  15.                                If Elementos(I2) <> Elementos(I3) And Elementos(I3) <> Elementos(I2) < Elementos(I4) < Elementos(I5) Then
  16.                                    ListBox4.Items.Add(String.Format(Format1, Elementos(I1), Elementos(I2), Elementos(I3), Elementos(I4), Elementos(I5), Elementos(I6)))
  17.                                End If
  18.  
  19.                            Next
  20.                        Next
  21.                    Next
  22.                Next
  23.            Next
  24.        Next
  25.        MessageBox.Show("Combinaciones: " & ListBox4.Items.Count)
  26.    End Sub


estoy tratando de implentarle esta funcion pero no me sale

Código
  1. '//QUITAR ELEMENTOS REPETIDOS --------------------funciona bien con otra funcione con esta me da error
  2.        Dim nuevaLista As New List(Of Integer)
  3.        For Each elemento In ListBox4.Items
  4.            nuevaLista.Add(elemento)
  5.        Next
  6.  
  7.        nuevaLista = nuevaLista.Distinct.ToList() 'elimina repetidos
  8.        nuevaLista.Sort() 'Ordena la lista
  9.        ListBox4.Items.Clear() 'limpia el listbox (no funciona con DataSource)
  10.        'ListBox4.DataSource= Nothing 'usar solo si es se usó datasource para llenar el listbox
  11.        For Each Elemento As String In nuevaLista
  12.            ListBox4.Items.Add(Elemento)
  13.        Next


saludos
Luis





En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
**Aincrad**


Desconectado Desconectado

Mensajes: 668



Ver Perfil WWW
Re: Eliminar registros iguales condicionados :(
« Respuesta #1 en: 23 Marzo 2020, 14:39 pm »

  ListBox1.Items.Add(String.Format(Format1, Elementos(I1), Elementos(I2), Elementos(I3), Elementos(I4), Elementos(I5), Elementos(I6)))

"Format1" que formato le estas dando al String? .


En línea



luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: Eliminar registros iguales condicionados :(
« Respuesta #2 en: 23 Marzo 2020, 15:13 pm »

"Format1" que formato le estas dando al String? .

Fue la solución que me dio el visual ya que antes usaba
Código
  1. String.Format("{0:00}, {1:00}, {2:00}

pero me daba error ??

saludos
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
**Aincrad**


Desconectado Desconectado

Mensajes: 668



Ver Perfil WWW
Re: Eliminar registros iguales condicionados :(
« Respuesta #3 en: 23 Marzo 2020, 15:16 pm »

Osea, muestrame la salida en el listbox, osea un imagen de como van los numero . asi puedo identificar el formato que estas usando. ya que hay 6 elementos.

que serian algo como : {0}{1}{2}{3}{4}{5} . necesito ver la salida.
En línea



luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: Eliminar registros iguales condicionados :(
« Respuesta #4 en: 23 Marzo 2020, 15:49 pm »

lo que me muestra el lisbtox es esto: salen muchos registros (8747)  pero si te fijas en la muestra ,el ultimo si cumple la condición de números diferentes ,no debe tener números repetidos en cada registro

01.04.05.04.04.05
01.04.05.04.04.08
01.04.05.04.04.33

08.98.45.33.44.05 <------tiene que tener números diferentes como este registro

gracias por tu atencion
Luis
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Eliminar valores(option) iguales entre combobox
Desarrollo Web
CWeeD 1 3,870 Último mensaje 11 Febrero 2011, 02:14 am
por Nakp
eliminar registros con ceros
.NET (C#, VB.NET, ASP)
luis456 5 3,383 Último mensaje 12 Noviembre 2014, 12:35 pm
por luis456
Eliminar filtrar numeros con terminaciones iguales
.NET (C#, VB.NET, ASP)
luis456 2 2,324 Último mensaje 26 Marzo 2015, 18:55 pm
por luis456
Mas problemas :( filtrar o eliminar registros iguales « 1 2 3 »
.NET (C#, VB.NET, ASP)
luis456 25 12,168 Último mensaje 26 Marzo 2016, 09:59 am
por luis456
eliminar registros pegados
Dudas Generales
kiko44 6 4,092 Último mensaje 10 Julio 2016, 14:32 pm
por kiko44
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines