Datensätze reorganisieren

[heikomi]

Hi,
diese Routine dauert bei mir ca. 45 Minuten. Kann man dies so umschreiben, das es schneller geht? Wenn ja wie?
Danke

'anzDS22 hat ca. 10000 Datensätze (enthält neuen Index)
'mdb_24 enthält ca. 500000 Datensätze
  
Open Pfad1 & "24.DAT" For Random As 24 Len = DB24_mdb   'Datendatei öffnen
anzDS24 = LOF(24) / DB24_mdb                            'Anzahl DS ermitteln
For I = 1 To anzDS24                                    'alle DS durchlaufen
  Get #24, I, mdb_24                                    'DS 24 lesen
  gefunden = 0                                          'angenommen nicht gefunden
  For J = 1 To anzDS22                                  'alle sortierten DS
    If mdb_24.ID = Val(Mid(Wert(J), 1, 11)) Then        'wenn alte ID gefunden
      If gefunden = 0 Then                              'und noch nicht umgewandelt
        mdb_24.SpielerID = Val(Mid(Wert(J), 12, 11))    'dann jetzt neuen Index setzen
        gefunden = 1                                    'merke das gefunden
        Exit For                                        'raus aus FOR J
      End If                                            '
    End If                                              '
  Next                                                  '
  If gefunden = 0 Then mdb_24.SpielerID = 0             'wenn alte ID nicht dann ID auf 0 setzen
  Put #24, I, mdb_24                                    'DS neu speichern
Next                                                    '

 

[Nospherates]

Hi,
das Problem kenn ich. Wenn die Zähler zu hoch gehen wird VB verdammt langsam. Ein wenig mehr Performance könnte es bringen wenn du die Schleife teilst. Heißt du fängst einmal von unten an zu zählen und gehst bis ansDS24 / 2 und durchläufst die selbe Schleife von oben ebenfalls bis zu diesem Punkt (einer von beiden muss natürlich einen früher aufhören.

Gruß

 

[heikomi]

Hi Nospherates,
danke für den Tip, ich werd es mal versuchen. Ob es soviel bring mag ich zu bezweifeln. Danke aber trotzdem für dein Tip.

Gruß aus Sachsen-Anhalt