Hallo,

ich suche und ersetze Text in einer Excel-Spalte mit folgendem Code:

zusammenfalten · markieren

Delphi-Quellcode:

  Application.ProcessMessages;
  for i := 0 to sl.Count-1 do
  begin
    Label6.Caption := IntToStr(i);
    Label6.Refresh;
    if sl[i] <> '' then
    begin
      arr := explode(';',sl[i]);
      for j := 1 to 5324 do
      begin
        help := Sheet.Cells[j,13].Value;
        help := StringReplace(help,arr[0],arr[1],[rfReplaceAll]);
        Sheet.Cells[j,13].Value := help;
      end;
      arr := nil;
    end;
  end;

Beide Schleifen werden ca. 5300 mal durchlaufen. Wie kann ich da an der
Gechwindigkeit noch was drehen? (sl ist eine StringList)

Viele Grüße ...

StringReplace vom FastCode Projekt oder die JEdi Sachen sind auch schon schneller als Delphi ..

Eine Kopie sparen:

Sheet.Cells[j,13].Value := StringReplace(help,arr[0],arr[1],[rfReplaceAll]); das langsamste wird aber wohl der Excel Zugriff sein.

Hi,

nein, ich ersetze einen String. arr ist ein dynamisches Array.

Viele Grüße ...

Ist Excel während des Vorgangs sichtbar?

Im Moment schon. muss aber nicht!

Es sollte dann schneller sein.

Hmm ich glaube ein par Sekunden bringt das schon. Ein Durchlauf der ersten Schleife dauert aber
immer noch ~ 24 Sek. Kann das sein?

Zitat von Grolle:

Hmm ich glaube ein par Sekunden bringt das schon. Ein Durchlauf der ersten Schleife dauert aber
immer noch ~ 24 Sek. Kann das sein?

das label nur bei jedem 10. Durchlauf aktualisieren ...

Hi,

das bringt mir nochmal ne Sekunde (Label Refresh ganz raus)!
Mann, da muss doch noch was gehen

rausnehmen kannst ja dann auch noch arr := nil;
vllt bringt dir das auch noch mal nen wenig ein..