|
| |
Visual-Basic Einsteiger| 2 listboxen vergleichen | |  | | Autor: Boris | | Datum: 11.11.02 13:16 |
| Hy
ich hab 2 listboxen (sevlist1 und sevlist2). beim starten des programms wird die textdatei "daten.txt" in die sevlist 2 eingelesen.
beide listboxen haben 2 spalten. eine für den dateinamen und eine für das datum der datei. jetzt hab ich einen button. (cmd_neue)
beim klick auf den button werden aus einem bestimmten ordner alle dateien inkl. datum in die sevlist1 eingelesen.
jetzt mein problem: ich möchte dass in sevlist alle artikel gelöscht werden, die bereits in sevlist2 stehen. also wenn entweder das datum, oder der dateiname anders ist, soll sie angezeigt werden, ansonsten wenn name und datum gleich sind wie in sevlist2 soll der eintrag nicht angezeigt werden.
dazu müsste man ja eigentlich nur die beiden fertig eingelesenen listboxen vergleichen, und aus sevlist1 alle einträge löschen die bereits in sevlist2 vorkommen.
aber wie??
hier der code zum einlesen der dateien aus dem pfad in sevlist1:
Dim lCount As Long
Dim nBytes As Currency
Dim path As String
path = txt_path.Text
' zunächst Anzahl Dateien ermitteln
lCount = VBEX_FileCount(path, 1, "*.*", nBytes)
' Array dimensionieren
ReDim sFiles(lCount) As String
' Dateinamen ermitteln
lCount = VBEX_FileList(path, 1, "*.*", sFiles(), nBytes)
MsgBox CStr(lCount + 1) & " Dateien, Gesamtgröße: " & CStr(nBytes) & " Bytes" & _
vbCrLf & vbCrLf & ("Die Dateien werden jetzt eingelesen.") & vbCrLf & ("Bitte" & _
"einen Moment Geduld..."), vbOKOnly, ("Berechnung")
Load frm_arbeite
frm_arbeite.Show
DoEvents
'array wurde dimensioniert
'dateien wurden eingelesen
'jetzt die dateien in die listbox schreiben...
' sFiles() ist das String-Array!
' nCount beinhaltet die Anzahl Dateien!
' sPath beinhaltet den genauen Pfad (Ordner) mit abschließendem Backslash!
Dim vDate As Date
Dim i As Long
For i = 0 To lCount
vDate = FileDateTime(path & "\" & sFiles(i))
sevList1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
Next i
Unload frm_arbeite
DoEventsdanke
cu
boris
cu
B ris
"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981) | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
