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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  vb.net - Items Duplicados y no duplicados de Un Listview
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: vb.net - Items Duplicados y no duplicados de Un Listview  (Leído 2,651 veces)
OscarCadenas_91

Desconectado Desconectado

Mensajes: 27


Ver Perfil
vb.net - Items Duplicados y no duplicados de Un Listview
« en: 12 Febrero 2015, 02:12 am »


Buenas a todos, tengo una duda haber si alguien me puede ayudar, tengo un Listview1, con los siguientes Items:
Código:
Proyecto1.docx
Presentacion_1.pptx
Informe2.docx
Proyecto1.docx
Informe3.docx
Presentacion_2.docx
Informe1.docx
Presentacion_2.docx


Lo que quiero hacer es  separar los Items duplicados  y los no duplicados:

No Duplicados:

Código:
Presentacion_1.pptx
Informe2.docx
Informe3.docx
Informe1.docx

Duplicados:

Código:
Proyecto1.docx
Presentacion_2.docx

Para listar los duplicados hice lo siguiente:
Código
  1.   Dim NuevaLista As New List(Of String)
  2.        Total = ListView1.Items.Count - 1
  3.        For i = 0 To Total
  4.            For j = i + 1 To Total
  5.  
  6.                If ListView1.Items.Item(i).Text = ListView1.Items.Item(j).Text Then
  7.                    NuevaLista.Add(ListView1.Items.Item(i).Text)
  8.                End If
  9.  
  10.            Next
  11.  
  12.        Next
      
      

Ahora necesito alguna idea para obtener para los no Duplicados, alguien me daria alguna idea?











En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.699



Ver Perfil
Re: vb.net - Items Duplicados y no duplicados de Un Listview
« Respuesta #1 en: 12 Febrero 2015, 06:30 am »

Puedes utilizar LINQ para llevarlo a cabo:

Código
  1. Public Class TestForm
  2.  
  3.    ReadOnly items As IEnumerable(Of String) =
  4.        {
  5.            "Informe1.docx",
  6.            "Informe2.docx",
  7.            "Informe3.docx",
  8.            "Presentacion_1.pptx",
  9.            "Presentacion_2.docx",
  10.            "Presentacion_2.docx",
  11.            "Proyecto1.docx",
  12.            "Proyecto1.docx"
  13.        }
  14.  
  15.    Private allDups As IEnumerable(Of String) =
  16.        items.GroupBy(Function(str As String) str).
  17.              Where(Function(group As IGrouping(Of String, String)) group.Count > 1).
  18.              SelectMany(Function(group As IGrouping(Of String, String)) group)
  19.  
  20.    Private uniqueDups As IEnumerable(Of String) =
  21.        items.GroupBy(Function(str As String) str).
  22.              Where(Function(group As IGrouping(Of String, String)) group.Count > 1).
  23.              Select(Function(group As IGrouping(Of String, String)) group.Key)
  24.  
  25.    Private nonDups As IEnumerable(Of String) =
  26.        items.Distinct
  27.  
  28.    Private unique As IEnumerable(Of String) =
  29.        items.Except(uniqueDups)
  30.  
  31.    Private Sub Test() Handles MyBase.Shown
  32.  
  33.        With Me.ListBox1
  34.            .Sorted = True
  35.            .BeginUpdate()
  36.            .Items.AddRange(items.ToArray) ' Todos.
  37.            ' .Items.AddRange(nonDups.ToArray) ' Sin Duplicados.
  38.            ' .Items.AddRange(unique.ToArray) ' Únicos.
  39.            ' .Items.AddRange(allDups.ToArray) ' Duplicados.
  40.            ' .Items.AddRange(uniqueDups.ToArray) ' Duplicados Únicos.
  41.            .EndUpdate()
  42.        End With
  43.  
  44.    End Sub
  45.  
  46. End Class


Output


Todos:
Código:
Informe1.docx
Informe2.docx
Informe3.docx
Presentacion_1.pptx
Presentacion_2.docx
Presentacion_2.docx
Proyecto1.docx
Proyecto1.docx

Sin Duplicados:
Código:
Informe1.docx
Informe2.docx
Informe3.docx
Presentacion_1.pptx
Presentacion_2.docx
Proyecto1.docx

Únicos:
Código:
Informe1.docx
Informe2.docx
Informe3.docx
Presentacion_1.pptx

Duplicados:
Código:
Presentacion_2.docx
Presentacion_2.docx
Proyecto1.docx
Proyecto1.docx

Duplicados Únicos:
Código:
Presentacion_2.docx
Proyecto1.docx


Saludos!


« Última modificación: 12 Febrero 2015, 06:35 am por Eleкtro » En línea


OscarCadenas_91

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Re: vb.net - Items Duplicados y no duplicados de Un Listview
« Respuesta #2 en: 12 Febrero 2015, 13:55 pm »

Muchas Gracias Elektro me ha funcionado correctamente.


Gracias por todo.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con Listview (evitar duplicados en lista de facturación) plis!!!
Programación Visual Basic
GhostLT 3 6,336 Último mensaje 29 Septiembre 2009, 05:40 am
por GhostLT
Tres monitores, 2 duplicados
Hardware
raul338 2 2,211 Último mensaje 3 Noviembre 2012, 17:49 pm
por raul338
Evitar temas duplicados
Sugerencias y dudas sobre el Foro
Usuario Invitado 7 3,409 Último mensaje 9 Abril 2015, 02:44 am
por El_Andaluz
Eliminar duplicados o repetidos « 1 2 »
.NET (C#, VB.NET, ASP)
luis456 15 8,954 Último mensaje 1 Mayo 2015, 19:36 pm
por luis456
Evitar datos duplicados en listview
.NET (C#, VB.NET, ASP)
nolasco281 9 8,402 Último mensaje 10 Mayo 2015, 15:42 pm
por DarK_FirefoX
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines