Von |
micro |
Am |
19. Januar 2009 um 21:41:08 |
Frage |
Hallo VB-fun Elite,
In folgener Form lade ich Daten aus einer Datei in eine ListBox:
05.01.2009 11:45;DeviceA;Status(X) 06.01.2009 11:50;DeviceA;Status(X) 08.01.2009 21:36;DeviceA;Status(X) 09.01.2009 06:21;DeviceB;Status(X) 10.01.2009 08:45;DeviceC;Status(X) 10.01.2009 14:52;DeviceC;Status(X)
Jetzt möchte ich versuchen, die Daten so zu filtern, dass jedes Device nur einmal aufgeführt wird und zwar das mit dem höchsten DateValue(). Nun habe ich selbst schon viele Varianten ausprobiert, mit For in For Schleifen etc., doch leider bisher ohne Erfolg.
Im Forum habe ich dieses Code-Beispiel gefunden, welches mir als Einstieg helfen könnte:Private Sub DelDoubleEntries() Dim i As Integer Dim j As Integer Dim data() As Variant ReDim data(0 To List1.ListCount - 1) For i = 0 To UBound(data) data(i) = List1.List(i) Next i List1.Clear For j = 0 To UBound(data) If data(j) <> data(j + 1) Then List1.AddItem data(j) End If Next j End Sub Leider habe ich noch nicht entschlüsseln können, warum der Debugger mir einen "Index außerhalb des gültigen Bereichs" Fehler ausgibt !? Kann mir jemand sagen warum ?
MfG micro
|
|