Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ListBox
Autor: Henryk
Datum: 13.03.03 23:03
Hi UltraMeister vielleicht kann dir dieser lösungsweg helfen, hier eine kurze beschreibung in list1 sind deine "hallos". ich aber stelle 100 zufallszahlen zwischen 1 und hundert rein. die sorteingeschaft von list1, list3 wird auf true gesetzt, zur besseren kontrolle list2 kannst du ruhig verbergen, d.h. visible = false list2 ist mit list1 identisch nun lese ich den ersten eintrag von list2 und halte ihn in suchtext szv = anzahl der einträge in list2 nun suche ich alle einträge in list2 die dem suchtext entsprechen und lösche diese in list2 szn = anzahl der einträge in list2 nach dem löschen das bedeutet nun, das die differenz szv-szn der anzahl der einträge von suchtext entspricht den suchtext und die anzahl der einträge gebe ich in list3 aus das ganze wird so lange wiederholt, bis die list2 leer ist in list3 stehen dann die einträge sortiert nach ihrer häufigkeit drin der letzte eintrag ist wahrscheinlich der eintrag, den du haben wolltest den code musst du natürlich deinen vorstellungen anpassen Option Explicit Private Sub Command1_Click() List1.Clear List2.Clear List3.Clear Dim i, pos, szv, szn Dim DeinText Dim SuchText For i = 1 To 100 DeinText = Format(Int((100 * Rnd) + 1), "000") List1.AddItem DeinText List2.AddItem DeinText Next i anflosch: If List2.ListCount = 0 Then GoTo fertig 'fertig SuchText = List2.List(0) szv = List2.ListCount For i = List2.ListCount - 1 To 0 Step -1 pos = InStr(1, List2.List(i), SuchText, vbBinaryCompare) If pos > 0 Then List2.RemoveItem (i) Next i szn = List2.ListCount List3.AddItem Format((szv - szn), "000") & " = " & SuchText GoTo anflosch fertig: End Sub Gruß Henryk

ListBox	905	UltraMeister	10.03.03 15:14
Re: ListBox	547	Henryk	13.03.03 23:03

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen