Delphi-Quellcode:
var
SL:TStringlist;
i:integer;
begin
if FileExists(vOrt) then
begin
SL := TStringList.Create;
{ProgressBar1.Step:=SL.Count-1;}
try
SL.LoadFromFile(vOrt);//Datei wird in die Liste geladen
for i:=1 to SL.Count-1 do
begin
SL[i] := StringReplace(SL.Text,' :: ',sLineBreak,[rfReplaceAll]);
Progressbar1.StepBy(1);
end;
SL.SaveToFile(vZiel);
finally
SL.Free;
end;
end;
end;
So? Wenn ich das so mache (Steps der ProgressBar sind auf 100) Passiert nichts. Ich lad mal eine andere Datei da rein, die nur einen Ausschnitt davon enthält
Edit:
Aus:
[wir/sie/Sie] passten :: [we/they/you] were suitable
[wir/sie/Sie] rieben :: [we/they/you] rubbed
[wir/sie/Sie] sangen :: [we/they/you] sang
[wir/sie/Sie] saßen :: [we/they/you] sat
[wir/sie/Sie] schrieben :: [we/they/you] wrote
[wir/sie/Sie] schwammen :: [we/they/you] swam
[wir/sie/Sie] schwitzen :: [we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen :: [we/they/you] have / had been
[wir/sie/Sie] sind :: [we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden :: [we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden :: [we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu :: [we/they/you] shall be entitled to
Wird (Die ersten 79 Zeilen
[wir/sie/Sie] passten :: [we/they/you] were suitable
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] rieben
[we/they/you] rubbed
[wir/sie/Sie] sangen
[we/they/you] sang
[wir/sie/Sie] saßen
[we/they/you] sat
[wir/sie/Sie] schrieben
[we/they/you] wrote
[wir/sie/Sie] schwammen
[we/they/you] swam
[wir/sie/Sie] schwitzen
[we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen
[we/they/you] have / had been
[wir/sie/Sie] sind
[we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu
[we/they/you] shall be entitled to
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] rieben
[we/they/you] rubbed
[wir/sie/Sie] sangen
[we/they/you] sang
[wir/sie/Sie] saßen
[we/they/you] sat
[wir/sie/Sie] schrieben
[we/they/you] wrote
[wir/sie/Sie] schwammen
[we/they/you] swam
[wir/sie/Sie] schwitzen
[we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen
[we/they/you] have / had been
[wir/sie/Sie] sind
[we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu
[we/they/you] shall be entitled to
[wir/sie/Sie] sangen
[we/they/you] sang
[wir/sie/Sie] saßen
[we/they/you] sat
[wir/sie/Sie] schrieben
[we/they/you] wrote
[wir/sie/Sie] schwammen
[we/they/you] swam
[wir/sie/Sie] schwitzen
[we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen
[we/they/you] have / had been
[wir/sie/Sie] sind
[we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu
[we/they/you] shall be entitled to
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] rieben
Die ganze Datei hat ca. 50000 Zeilen, in 5-10 Sekunden erstellt... Die sollte aber eigentlich nur 24 haben.