Stream bearbeiten - wie?

[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;
..