Hallo nochmal und Danke an alle,
nachdem meine Funktion in der letzten Nacht 8 h für 1000 (das war nur ein/Fünftel!) Datensätze
gebraucht hat, habe ich die betroffene Excel-Spalte als Textdatei gespeichert und nach Bearbeitung
einfach wieder in Excel eingefügt (zum Glück lagen keine Formatierungen bzw. Formeln
darauf).
Der Code macht die gesammte Liste jetzt in einer Minute:
Delphi-Quellcode:
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 := 0 to nuList.Count-1 do
begin
help := StringReplace(nuList[j],arr[0],arr[1],[rfReplaceAll]);
nuList[j] := help;
end;
end;
end;
Unglaublich, was Excel da an Performance schluckt
Viele Grüße ...