Zitat von
Thanatos81:
OK, wie Sharky bewiesen hat, hätte ich schreiben sollen "wirst du das auch nicht
schön hinbekommen."
Hab ich das richtig? Du liest Dateien ein, die mit ; getrennt sind und musst die so aufbereiten, dass sie statt dessen mit Tab getrennt sind, damit ein drittes Programm das verarbeiten kann?
Dann würde ich auf visuelle Kompos verzichten, und einfach nur ';' durch Tab ersetzen und dann das ganze wieder wegspeichern.
€dit, also ungefähr so:
Delphi-Quellcode:
procedure ersetze(input,output: TFileName);
var sl : TStringList;
begin
sl := TStringList.Create;
try
sl.LoadFromFile(input);
sl.Text := StringReplace(sl.Text,';',#9,[rfReplaceAll]);
sl.SaveToFile(output);
finally
FreeAndNil(sl);
end;
end;
Auf die Idee bin ich auch schon bekommen, aber dann habe ich kein Format. Das Format sieht so aus:
Zeile 1, Stelle 0 bis 13 = Nummer, Stelle 14 bis 24 = Bezeichnung, Stelle 25 bis 32 = Preis. Das ganze, Zeile für Zeile.