datumsformat

[khh]

ach ja die procedure

Delphi-Quellcode:

procedure FileReplaceString(const FileName, searchstring, replacestring: string);
var
  fs: TFileStream;
  S: string;
begin
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
  try
    SetLength(S, fs.Size);
    fs.ReadBuffer(S[1], fs.Size);
  finally
    fs.Free;
  end;
  S  := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]);
  fs := TFileStream.Create(FileName, fmCreate);
  try
    fs.WriteBuffer(S[1], Length(S));
  finally
    fs.Free;
  end;
end;

edit: ich könnte die Ziffern der Platzhalter vor den String schreiben
der Lesbarkeit halber wärs mir aber lieber die Platzhalter könnten so bleiben

[Popov]

FileReplaceString macht seinen Job richtig, das Problem ist der Platzhalter. Woher soll FileReplaceString nun wissen, dass #tag1 mal für den Tag 1 steht und mal ein Teil von Tag 10 ist.

Hier muss entweder der Platzhalter verändert werden oder der String muss geparst werden.

[Uwe Raabe]

Wie rufst du FileReplaceString auf? In einer Schleife von 1 bis 31? Dann vielleicht besser rückwärts.

[p80286]

Zitat von khh:

edit: ich könnte die Ziffern der Platzhalter vor den String schreiben
der Lesbarkeit halber wärs mir aber lieber die Platzhalter könnten so bleiben

Wie wäre es denn mit 01,02..09,10,11..99 ?

(Da sich die übliche Leseweise an der ersten Ziffer von rechts orientiert muß man halt bei der Leserichtung von links nach rechts ein eintsprechendes Füllzeichen dazu packen)

Gruß
K-H

[Popov]

Der Vorschlag von Uwe sollte aber auch klappen.

[Dejan Vu]

Kannst Du die Tags nicht ändern, also z.B. '#tag1#'? Dann ist das eindeutig,

Die Lösung von Uwe hat nämlich den Nachteil, das sie die konzeptionelle Schwäche der Tag-Namen kaschiert, anstatt das Problem von Grund auf zu lösen.

In 3 Jahren hast Du vergessen, wieso die Schleife rückwärts läuft und denkst Dir vielleicht; "Blödsinn, ich lasse sie vorwärts laufen, sieht besser aus". => Peng.

[khh]

>> Wie wäre es denn mit 01,02..09,10,11..99 ?

das ists, so einfach, oder?
Warum bin ich da nicht selbst drauf gekommen


ich danke euch

[Dejan Vu]

Bis man mehr als 99 braucht

[Popov]

Laut gut informierter Quelle hat man in den nächsten Dekaden nicht vor mehr als 31 Tage einzuführen. Auch nicht mehr als 12 Monate. Womit die Sorge zum Teil unbegründet ist. Und sollte das Programm von khh über das Jahr (20)99 hinweg genutzt werden, dann werde ich kräftig beeindruckt sein.

[p80286]

Zitat von Popov:

Laut gut informierter Quelle hat man in den nächsten Dekaden nicht vor mehr als 31 Tage einzuführen. Auch nicht mehr als 12 Monate. Womit die Sorge zum Teil unbegründet ist. Und sollte das Programm von khh über das Jahr (20)99 hinweg genutzt werden, dann werde ich kräftig beeindruckt sein.

Da aber u.U. auch Datumswerte des letzten Jahrhunderts bearbeitet werden müssen ist das nicht so leicht zu ignorieren. Aber mit 4 Stellen sollte man für einen überschaubaren Zeitraum gerüstet sein, es sei denn Datumswerte von vor Christie Geburt sind gefragt.

Gruß
K-H