Stream bearbeiten - wie?

[Susanne]

Hilfe,

Ich habe eine Datei, die hat in einer Zeile z.B. folgenden Eintrag:

Code:

LIEFERSCHEIN         166.000            18/08/2004     6602                          SN15743         166.000        test GMBH  /EMAIL/DOCS/LS000000000000040.PDF

Ich möchte nun jeweils bei 166.000 den Punkt entfernen und hinter 000 ein Leerzeichen einfügen. Aber wie um himmelswillen mache ich das?

bisher habe ich nur das:

Delphi-Quellcode:

function Konvertiere(aktuelleDatei:String): Boolean;
   begin
      //Datei in den MemoryStream xx geladen
      xx.LoadFromFile(aktuelleDatei);
  

      xx.SaveToFile(aktuelleDatei);
   end;

mit pos könnte ich den erste Punkt ermitteln, aber wie geht es dann weiter? und wie füge ich ein Leerzeichen dazu?

Wer hat eine Idee?

Gruss
Susanne

[static_cast]

Ein leerzeichen? Oder auch wirklich den Stream um dieses zeichen verkürzen?

[ibp]

ich gehe davon aus, dass der text in einem string s steht!

dann so:

Delphi-Quellcode:

..
var txt,          // hier steht deine zeile drin
    stxt,         // zu suchender text
    hilf: string; // hilfstext
    p,            // pos des suchtextes
    l: integer;   // länge des suchtextes

..
  stxt:='166.000';
  l:=length(stxt);
  p:=pos(stxt,txt);

  while p>0 do
  begin
    hilf:=copy(txt,p,l);          // suchtext im string
    delete(hilf,pos('.',hilf),1); // punkt löschen

    hilf:=copy(txt,1,p-1)+hilf+' '; // string bis position p + ersetztext + ' ';
    delete(txt,1,p+l-1);            // lösche teilstring bis position nach stext

    txt:=hilf+txt; // rest zusammenfügen

    p:=pos(stxt,txt); // ist noch ein stext vorhanden?
  end;
..

[Susanne]

Ab die zu suchende Zahl kann variieren, es ist nicht immer '166.000' und ich weiss auch nicht, ob die Zahl die gleiche länge hat und anschliessend wollte ich diesen veränderten Stream wieder als Datei speichern.

[SirThornberry]

du könntest das ganze mit PosEx machen, damit kannst du die start-such-position angeben.
Ungefähr so sollte das ganze dann aussehen (davon ausgegangen das dein Stream in "Suchstring" steht

Delphi-Quellcode:

var LStartpos: Integer;
    LZahlen: String;
begin
  LZahlen := '0123456789';
  LStartpos := 1;
  while (LStartpos < length(Suchstring)) and (LStartpos > 0) do
  begin
    LStartpos := PosEx('.', Suchstring, LStartpos);
    if LStartpos > 0 then //wenn punkt gefunden wurde
    begin
      //sicherstellen das nicht ".pdf" etc gefunden wurde sonder eine zahl folgt
      if pos(Suchstring[LStartpos + 1], LZahlen) > 0 then
      begin
        //punkt entfernen
        Suchstring := copy(Suchstring, 1, LStartpos - 1) + copy(Suchstring, LStartpos +1, length(Suchstring));
        //jetzt noch letzte zahl finden um leerzeichen einzufügen
        while pos(Suchstring[LStartpos], LZahlen) > 0 do inc(LStartpos);
        //jetzt sollte LStartpos hinter der letzten zahl sein
        Suchstring := copy(Suchstring, 1, LStartpos - 1) + ' ' + copy(Suchstring, LStartpos, length(Suchstring));
      end else inc(LStartpos);
    end;
  end;

Source ist ungetestet und soll nur als gedankenanstoß dienen
[Edit]Inzwischen getestet und funzt (Source verbessert)[/Edit]

[Susanne]

Danke das hat mir sehr geholfen, es funktioniert.