Du willst ja die 1., 2. und letzte Spalte löschen.
Delphi-Quellcode:
Var F1, F2: TextFile;
S:
String;
I: Integer;
Begin
AssignFile(F1, '
Dateiname.txt'); Reset(F1);
AssignFile(F2, '
Dateiname2.txt'); Rewrite(F2);
While not EoF(F1)
do Begin
ReadLn(F1, S);
If Pos('
', S) > 0
Then S := Trim(Delete(S, 1, Pos('
', S)));
If Pos('
', S) > 0
Then S := Trim(Delete(S, 1, Pos('
', S)));
If Pos('
', S) > 0
Then Begin
I := Length(S);
While S[I] <> '
'
do Dec(I);
S := Trim(Copy(S, 1, I - 1));
End;
WriteLn(F2, S);
End;
CloseFile(F2);
CloseFile(F1);
End;
PS: Für sowas mißbrauche ich aber meistens den Texteditor und Excel.
In diesem Beispiel hätte ich einfach jedes Leerzeichen im Texteditor durch je einen Tabulator ersetzt.
Danach alles nach Excel kopiert. (da wird ja alles durch den Tabulator auf verschiedene Spalten verteilt)
Und aus Excel dann einfach alles ab der 3. Spalte zurück in den Editor, da werden natürlich wieder aus den Tabulatoren Leerzeichen gemacht.
Und fertig.