Text (ASCII) Datei

[jo1234]

Hallo,

ich möchte aus einer vorhandenen ASCII-Datei (durch Leerzeichen getrennt) die Zeilen
rauslesen und einzelen Strings aus diesen Zeilen in eine neue Datei (durch Semikolon getrennt)
schreiben (auch Zeilenweise). Gibt es eine elegantere Variante als mit readln, copy und writeln?

Danke!!

Reiner

[Christian18]

Hi,

Herzlich Willkommen erst einmal in der Delphi-Praxis.

Ja es gibt eine möglichkeit. Mit StringReplace kannst du ein altest zeichen und geben und durch ein neues ersetzen.

PS: Ist allerdings nicht zeichen weise.

MFG Christian18

[Christian18]

Hallo,

ich habe gerade mal eine kleine Routine programmiert die das für Dich erledigt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var o : TOpenDialog;
      f1, f2 : TextFile;
      s1, s2 : String;
      s : TSaveDialog;
begin
  o:=TOpenDialog.Create(self);
  s:=TSaveDialog.Create(self);

  if o.Execute then
    begin
      AssignFile(f1, o.FileName);
      Reset(f1);
      if s.Execute then
        begin
          AssignFile(f2, s.FileName);
          Rewrite(f2);
          while not Eof(f1) do
            begin
              Readln(f1, s1);
              s2:=StringReplace(s1, ' ', ';', [rfReplaceAll]);
              s:=TSaveDialog.Create(self);
              Writeln(f2, s2);
            end;
          CloseFile(f2);
        end;
      CloseFile(f1);
    end;
  s.Free;
  o.Free;
end;

Edit:

Wenn du große Files konvertieren willst, dann würde ich noch empfehlen eine ProgressBar oder Gauge einzubauen, damit der Benutzer weiß, wielanger er nch warten muß, bis das programm fertig ist mit der ausführung.

MFG Christian18

[jo1234]

Hallo Christian 18,

danke für die schnelle Antwort !! Bin begeistert!

Das Problem ist, dass ich nur einzelne Strings aus der Datei benötige.
Auch sind die verschieden viele Leerzeichen zwischen den Strings der Urdatei.

Beispiel:

Urdatei:
12 Meier 32456 Teststrasse 99999 München 1340.70

Neue Datei:
32456;Meier;Teststrasse;99999;München;1340.70

Ich hoffe, so wird es klarer. Die Dateien sind ca. 1MB groß.

Reiner

[mkinzler]

Sind die vertauschten Positionen immer gleich?

Statt in einen String zuladen Stringlist verwenden, dann kannst du auf die einzelnen Teilstring indiziert zugreifen.

Delphi-Quellcode:

  ..
var
  ..
  sl1, sl2: TStrings;
begin
  sl1 := TStringList.Create;
  sl2 := TStringList.Create;
  sl1.Delimiter := ' ';
  sl2.Delimiter := ';';
  ..
    Readln(f1, s1);
    sl2.DelimitedText := '';
    sl1.DelimitedText := s1;
    sl2.ValueFromIndex[0] := sl1.ValueFromIndex[2];
    sl2.ValueFromIndex[1] := sl1.ValueFromIndex[1];
   usw.

[jo1234]

@mkinzler

Ja, die vertauschten Positionen sind immer gleich. Nur die Länge der Positionen sind
verschieden.

Reiner

[markusj]

Hallo @ all

Ich denke, hier könnte man auch einfach mit einem Stream arbeiten, der Zeichenweise nach einem " " sucht und es durch ein ";" ersetzt ...

mfG

Markus

[mkinzler]

Habe den Sourcecode ergänzt ( s.o)

[jo1234]

Danke für die super Antworten !!

Ein Problem habe ich aber noch:

Was mache ich, wenn zwischen 2 versch. Strings manchmal kein Leerzeichen ist,
z.B. 34567Kilianstr
Ich brauche hier 34567;Kilianstr

Kann oder muß ich hier die zählen und die Position angeben?

Reiner

[mkinzler]

Zitat:

Zitat von jo1234

Kann oder muß ich hier die zählen und die Position angeben?

Reiner

Da wirst du leider nicht drumrumkommen. :-(