Thema: Delphi Text Wegschneiden

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#7

Re: Text Wegschneiden

  Alt 14. Jan 2004, 14:46
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat