zu großes Array - echte Nuss für Profis!

Rene · 2004-08-02T11:00:33+00:00

Hallo, ich habe eine Liste mit ca. 10.000 DS. Der Schlüssel ist eine 14-stellige Zahl (eigentlich eine Kombination aus 3 Werten). Um auf die einzelnen DS schnell zugreifen zu können, wollte ich den Schlüssel in ein Array einlesen, um so mit nur einem Zugriff die ZeilenNR ermitteln zu können. In der Spalte 1 steht dieser zusammengesetzte Schlüssel. Allerdings kann ich nicht so ein großes Array definieren und das ist mein Problem. Wie kann ich dieses Problem anders lösen. Anbei das 'nicht-funktionierende' Beispiel. Vielen, vielen Dank für die Hilfe - ist leider auch ein bisschen dringend. Beispiel: Public MA_Index(100000000000000) As Integer Sub Test() for Zeile = 2 to 10000 MA(cells(Zeile,1)) = zeile next Zeile End Sub

Hallo Rene,
guckst du hier: https://www.herber.de/forum/messages/463055.html
Die Routine zum erstellen der Primzahlen:

Public Sub test()
    Dim x As Long, y As Long
    Call Primzahlen(50000, x, y)
End Sub
Private Sub Primzahlen(ByVal lng_startwert As Long, ByRef lng_kleiner As Long, ByRef lng_groesser As Long)
    Dim lng_counter As Long, lng_startwert_k As Long, lng_startwert_g As Long
    If lng_startwert Mod 10 <> 0 Then
        lng_startwert_k = lng_startwert - (lng_startwert Mod 10)
        lng_startwert_g = lng_startwert + 10 - (lng_startwert Mod 10)
    Else
        lng_startwert_k = lng_startwert
        lng_startwert_g = lng_startwert
    End If
    For lng_counter = lng_startwert_k To 2 Step -10
        If IsPrim(lng_counter - 1) Then lng_kleiner = lng_counter - 1: Exit For
        If IsPrim(lng_counter - 3) Then lng_kleiner = lng_counter - 3:  Exit For
        If IsPrim(lng_counter - 7) Then lng_kleiner = lng_counter - 7:  Exit For
        If IsPrim(lng_counter - 9) Then lng_kleiner = lng_counter - 9:  Exit For
    Next
    For lng_counter = lng_startwert_g To lng_startwert_g * 2 Step 10
        If IsPrim(lng_counter + 1) Then lng_groesser = lng_counter + 1: Exit For
        If IsPrim(lng_counter + 3) Then lng_groesser = lng_counter + 3: Exit For
        If IsPrim(lng_counter + 7) Then lng_groesser = lng_counter + 7: Exit For
        If IsPrim(lng_counter + 9) Then lng_groesser = lng_counter + 9: Exit For
    Next
End Sub
Private Function IsPrim(ByVal lng_pruefziffer As Long) As Boolean
    Dim lng_counter As Long
    If lng_pruefziffer Mod 3 = 0 Then Exit Function
    If lng_pruefziffer Mod 7 = 0 Then Exit Function
    For lng_counter = 10 To CLng(lng_pruefziffer ^ 0.5) Step 10
        If lng_pruefziffer Mod (lng_counter + 1) = 0 Then Exit Function
        If lng_pruefziffer Mod (lng_counter + 3) = 0 Then Exit Function
        If lng_pruefziffer Mod (lng_counter + 7) = 0 Then Exit Function
        If lng_pruefziffer Mod (lng_counter + 9) = 0 Then Exit Function
    Next
    IsPrim = True
End Function

Gruß
Nepumuk

Hallo Rene,
ich verstehe das so, dass die Quelldaten auch schon in Form einer Excel-Tabelle vorliegen.
Eigentlich hört sich das für mich nach einem klassischen Datenbankproblem an. Aber ich gehe wohl richtig in der Annahme, dass eine Excel Lösung wegen der weiteren Verarbeitung gewünscht ist.
Du möchtest also den MA_Index (14 stellig) als Index in ein Array benutzen, um über den MA_Index schnell auf die übrigen Daten des Mitarbeiters zugreifen zu können.
So wie Du Dir das vorstellst ist die Lösung unglücklich. Du hälts ein 10^14 Elemente großes Array vor, von dem nur 10^5 Elemente genutzt sind. Selbst wenn das technisch machbar ist, ist das eine große Verschwendung.
Leider habe ich nicht die Zeit, Dir eine komplette Lösung auszuarbeiten, aber ich will mal skizzieren, wie ich vorgehen würde:
Lösung 1)
Es gäbe vielleicht eine Funktion, die den 14stelligen MA-Index eindeutig auf eine kleinere Zahl abbildet? Z.B. könnte es ja sein, dass Teile des Index nur bestimmte Werte annehmen können. Risiko dabei ist, dass man ja nie sicher sein kann, wann die IT-Abteilung die nächste Umstellung vornimmt.
Lösung 2)
Verzichte auf das Array MA_Index().
Statt dessen sortiere das Array Mitarbeiter(maxAnzMA) nach dem MA_Index (geeignete Sortierfunktionen findest Du z.B. in der Recherche. Wenn die Daten weit gehend sortiert ankommen, genügt ein einfaches Bubblesort. Bei stark unsortierten Daten wäre evtl. zu Quicksort zu raten.
Für die Suche in dem sortierten Array kannst Du dann eine einfache binäre Suche verwenden, die dann recht schnell wird. Das geht so:
Einfach das mittlere Element des sortierten Arrays angucken und den Index mit dem Suchwert vergleichen.
Bei Übereinstimmung - gefunden.
Wenn Suchwert größer, Suche in der "rechten" Hälfte des Arrays wiederholen (wieder Halbieren etc.)
Wenn Suchwert kleiner, Suche in der "linken" Hälfte des Array wiederholen.
Du benötigst maximal log2(N) Vergleiche, also maximal 14 Vergleiche - gegenüber im Mittel schon 5000 Vergleichen bei einer linearen Suche...
Wenn das nicht schnell geht?
Viel Erfolg beim Programmieren.
Gruß Harald

zu großes Array - echte Nuss für Profis!

Forumthread: zu großes Array - echte Nuss für Profis!

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

zu großes Array - echte Nuss für Profis!

Forumthread: zu großes Array - echte Nuss für Profis!

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread