Hallo Forum Gemeinde,
ich habe folgendes Problem das ich eine txt Datei mit Daten einlesen und verändern möchte. Die Datei ist mit Trennzeichen aufgebaut und muss auch wieder so gespeichert werden.
Momentan stehe ich auf dem Schlauch und glaube das TStringlist nicht dafür geeignet ist.
Gewünschtes Ziel ist:
String Eingang = 0193433020;2301000953;CNC-
DB;3302060000;drehen01;300;;;;
String Ausgang = 2301000953;10;3302060000;1;1;;193433020;
Aufbau der Ausgabe was ich bisher geschafft habe:
2301000953 CR/LF
10 CR/LF
3302060000 CR/LF
1 CR/LF
1 CR/LF
; CR/LF
0193433020 CR/LF
;CR/LF
CR/LF
CR/LF
CR/LF
CR/LF
Das Umsortieren der Reihenfolge und hinzufügen von weiteren Daten hat geklappt aber leider mit Steuerzeichen und nicht wie gewünscht in einer Zeile.
Bitte um Tips ob ich mit TStringList das erreichen kann oder total falsch liege.
Danke und Gruß
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sl : tstringlist;
//
begin
sl := TStringList.Create;
sl.Delimiter := '
;';
//
sl.DelimitedText := '
0193433020;2301000953;CNC-DB;3302060000;drehen01;300;;;;';
sl.delete(2);
sl.delete(3);
sl.Move(1,0);
sl.insert(1,'
10');
sl.Move(3,2);
sl.insert(3,'
1');
sl.insert(4,'
1');
sl.insert(5,'
');
sl.SaveToFile('
d:\SPC.dat');
sl.Free;
end;