StringList Textblöcke verschieben

[DieDolly]

So funktioniert es bei mir. Alle Leerzeichen werden auch richtig gesetzt. Anders schaffe ich das nicht. Und selbst dann ist es n9icht zuverlässig.

Ich möchte ja keine Zeilen vertauschen sondern nur einen Block von oben irgendwo ganz nach unten verschieben.

Delphi-Quellcode:

var
 sl, slTemp: TStringList;
 i, LineStart, LineEnd, LineTarget: Integer;
begin
 sl := TStringList.Create;
 slTemp := TStringList.Create;
 try
  sl.Add('0 [');
  sl.Add('1');
  sl.Add('2');
  sl.Add('3');
  sl.Add('4');
  sl.Add(']');

  sl.Add('');

  sl.Add('5 [');
  sl.Add('6');
  sl.Add('7');
  sl.Add('8');
  sl.Add('9');
  sl.Add(']');

  sl.Add('');

  sl.Add('10 [');
  sl.Add('11');
  sl.Add('12');
  sl.Add('13');
  sl.Add('14');
  sl.Add(']');

  sl.Add('');

  sl.Add('15 {');
  sl.Add('16');
  sl.Add('17');
  sl.Add('18');
  sl.Add('19');
  sl.Add('}');

 // hier hin soll die 5-9

  sl.Add('');

  sl.Add('A');
  sl.Add('B');
  sl.Add('C');

  LineStart := sl.IndexOf('0 [');
  for i := LineStart to sl.Count - 1 do
   begin
    if sl.Strings[i] = ']' then
     begin
      LineEnd := i + 2;
      Break;
     end;
   end;

  LineTarget := sl.IndexOf('15 [');
  for i := LineTarget to sl.Count - 1 do
   begin
    if sl.Strings[i] = ']' then
     begin
      LineTarget := i + 2;
      Break;
     end;
   end;

  sl.SaveToFile('output1.txt');

  VerschiebeZeilen(sl, LineStart, LineEnd, LineTarget);

  sl.SaveToFile('output2.txt');
 finally
  slTemp.Free;
  sl.Free;
 end;
end;

[Uwe Raabe]

Zitat von DieDolly:

Ich möchte ja keine Zeilen vertauschen sondern nur einen Block von oben irgendwo ganz nach unten verschieben.

Du hast offenbar den Algorithmus noch nicht durchschaut. Deswegen erläutere ich das mal:

Zunächst füge ich an der Zielposition eine ausreichende Anzahl Leerzeilen ein:

Delphi-Quellcode:

      for I := 0 to ACount - 1 do
        lst.Insert(ATargetLine, '');

Dann korrigiere ich den Wert von ASourceLine, falls sich die entsprechenden Zeilen durch das Einfügen nach hinten verschoben haben:

Delphi-Quellcode:

      if ATargetLine < ASourceLine then
        ASourceLine := ASourceLine + ACount;

Nun tausche ich die zu verschiebenden Zeilen mit den gerade eingefügten Leerzeilen aus:

Delphi-Quellcode:

      for I := 0 to ACount - 1 do
        lst.Exchange(ASourceLine + I, ATargetLine + I);

Damit landen die zu verschiebenden Zeilen schon mal an der gewünschten Zielposition und an der ursprünglichen Position sind nun die Leerzeilen.

Im letzten Schritt werden diese Leerzeilen wieder gelöscht:

Delphi-Quellcode:

      for I := 0 to ACount - 1 do
        lst.Delete(ASourceLine);

[DieDolly]

Bei beiden Varianten lag mein Fehler glaube ich beim Aufruf

VerschiebeZeilen(sl, LineStart, LineEnd - LineStart, LineTarget); // LineEnd - LineStart statt nur LineEnd Das Ergebnis sieht jetzt so aus

Zitat:

0 [
1
2
3
4
]

10 [
11
12
13
14
]

15 [
16
17
18
19
]

5 [
6
7
8
9
]

A
B
C