Hallo Leute,
und zwar bräuchte ich Hilfe beim Sortieren einer Listbox, welche so aussieht.
Spoiler anzeigen
12.7.11
12.7.11
12.7.11
11.7.11
11.7.11
11.7.11
10.7.11
10.7.11
10.7.11
9.7.11
9.7.11
Diese ganzen Items der ListBox sollten dann verglichen werden, nach dem die identischen items gefunden wurden, soll nur jeweils ein Item von den identischen Items übrig bleiben, sprich :
Spoiler anzeigen
Es gibt 3 Items mit "12.7.11", 3 mit "11.7.11" , 3 mit "10.7.11" und 2 mit "9.7.11"
Von jedem dieser identischen "Paare" soll immer nur ein Item übrig bleiben, also
12.7.11
11.7.11
10.7.11
9.7.11
Dieses Verfahren brauche ich für mein News Tool, damit die News Meldungen die an dem selben Tag verfasst wurden alle unter einander aufgelistet werden ( es geht mir nur um das Kästchen mit dem Datum siehe Anhang), die News Title werden jeweils untereinander in einer Toolbar angezeigt.
So sieht der Code zum Auslesen der News aus, damit ihr dass alles vielleicht besser verstehen könnt :
Ich hoffe ihr könnt mir ein wenig weiterhelfen
Viele Grüße ,
Flow
und zwar bräuchte ich Hilfe beim Sortieren einer Listbox, welche so aussieht.
12.7.11
12.7.11
12.7.11
11.7.11
11.7.11
11.7.11
10.7.11
10.7.11
10.7.11
9.7.11
9.7.11
Diese ganzen Items der ListBox sollten dann verglichen werden, nach dem die identischen items gefunden wurden, soll nur jeweils ein Item von den identischen Items übrig bleiben, sprich :
Es gibt 3 Items mit "12.7.11", 3 mit "11.7.11" , 3 mit "10.7.11" und 2 mit "9.7.11"
Von jedem dieser identischen "Paare" soll immer nur ein Item übrig bleiben, also
12.7.11
11.7.11
10.7.11
9.7.11
Dieses Verfahren brauche ich für mein News Tool, damit die News Meldungen die an dem selben Tag verfasst wurden alle unter einander aufgelistet werden ( es geht mir nur um das Kästchen mit dem Datum siehe Anhang), die News Title werden jeweils untereinander in einer Toolbar angezeigt.
So sieht der Code zum Auslesen der News aus, damit ihr dass alles vielleicht besser verstehen könnt :
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- show_rss_linq()
- End Sub
- Sub show_rss_linq()
- Dim xdoc As XDocument = XDocument.Load("http://www.idev-world.de/forum/syndication.php?fid=118,103,143,144,145,146,147,141,10,52&limit=38") 'Einladen des RSS Feeds
- ListBox1.Items.Clear()
- ListBox4.Items.Clear()
- ListBox3.Items.Clear()
- ListBox2.Items.Clear()
- For Each result In xdoc.Descendants("item")
- Dim title As String = result.Element("title").Value
- Dim time As String = DateTime.Parse(result.Element("pubDate").Value)
- time = time.Substring(0, 10)
- ListBox5.Items.Add(time)
- title = title.Replace("#x26;", "&")
- title = title.Replace("&&", "&")
- With ListBox1.Items.Add(title)
- ListBox2.Items.Add(result.Element("link").Value)
- ListBox3.Items.Add(DateTime.Parse(result.Element("pubDate").Value))
- ListBox4.Items.Add(result.Element("description").Value)
- ToolBar1.Buttons.Add(title)
- End With
- Next
- End Sub
Ich hoffe ihr könnt mir ein wenig weiterhelfen
Viele Grüße ,
Flow