Bedingung: nächster Monat beginnt

[Newcomer91]

Morgen, ich habe mir überlegt ein älteres Programm von mir zu optimieren.
Unzwar dient es mir als kleinen Notizblock in dem ich alles reinschreib.
Gespeichert wird es derzeit noch alles in einer Textdatei 'Output.txt',
dies soll sich allerdings ändern.
Ich möchte dass grundsätzlich alles nach Monaten sortiert werden soll.
Mein Programm soll also merken wann ein neuer Monat beginnt und automatisch
eine passende textdatei erstellen, und ab sofort alle Strings die ich speichern
möchte, automatisch auf diese neue Textdatei verweisen.

Wie gehe ich es am besten an?
Ich möchte keine fertigen Quellcodes, Anregungen, Vorschläge sind erwünscht.

Liebe Grüße

New

[Klaus01]

Ich würde es etwas anders angehen.

Ist die Datei zum aktuellen Monat vorhanden schreibe hinein.
Ist die Datei zum aktuellen Monat nicht vorhanden (neuer Monat angefangen) erstelle sie
und schreibe hinein.

Grüße
Klaus

[alfold]

Hi, du fragst im Datum nach den Monat/Jahr, suchst ob eine Datei mit den Namen Monat/Jahr vorhanden ist. Wenn nicht wird sie erstellt und nun wird immer in dieser Datei geschrieben. Ändert sich der Monat/Jahr wird wieder eine neue erstellt usw.
Aber auch das Jahr mit angeben.

Gruss alfold

[Newcomer91]

Sollte ich dazu den DateTimePicker benutzen?

[himitsu]

Wozu eine Komponente, in welcher man irgendein Datum angeben kann?

aktuelles Datum = Now

[alfold]

Das bleibt eigentlich Dir überlassen, wichtig ist das Du Monat+Jahr zum vergleich herranziehst! :wink:

Gruss alfold

[Newcomer91]

Ich verstehe.

Müsste ich quasi in dem onclickereignis in welchem ich abspeichere diese Bedingung einbauen.

Nun, wie geh ichs an? Eine verschachtelte If bedingung mit einer variable fürs jahr und einer für den monat?

[DeddyH]

Ohne Komponente:

Delphi-Quellcode:

function CurrentMonthFileName(const DestDir: string): string;
const MY_EXTENSION = 'txt'; //gewünschte Dateiendung
begin
  Result := Format('%s%s.%s',[IncludeTrailingPathDelimiter(DestDir),
                              FormatDateTime('yyyy-mm',Date),
                              MY_EXTENSION]);
end;

[Newcomer91]

Okay, dankesehr.
Aber ich wollt doch keinen fertigen code ;/

Nun gut, ich werde es ausprobieren ;)

[alfold]

Wie Du den Namen der Datei anlegst? Wenn ich sowas mache verwende ich einfach
z.B. als Dateinamen 'Monat_Jahr.txt' 11_2010.txt

beim Prüfen ist es ne kleine routine die den String dann vergleicht ob vorhanden oder neu anlegen muss.

Gruss alfold

[Newcomer91]

Okay, ich probiers.

[Newcomer91]

Problem gelöst, danke an alle ;)

Delphi-Quellcode:

function CurrentMonthFileName(const DestDir: string): string;
const MY_EXTENSION = 'txt';
begin
  Result := Format('%s%s.%s',[IncludeTrailingPathDelimiter(DestDir),
                              FormatDateTime('yyyy-mm',Date),
                              MY_EXTENSION]);
end;

hats gebracht ;)

[skh]

noch eine Alternative zu deinem Progrämmchen..

Gib mal in deiner Textdatei in der ersten Zeile folgendes ein:

.LOG

anschliessend abspeicherm und neu öffnen
jetzt steht nach jedem NEU-ÖFFNEN am Ende der letzten Textzeile
die aktuelle Uhrzeit und das Datum

[hitzi]

Zitat:

Zitat von skh (Beitrag 1070795)

.LOG

Funktioniert tatsächlich :shock: Was ist der Sinn hinter dieser versteckten Funktion? Was ist wenn ich wirklich mal .LOG im Texteditor abspeichern will ohne dann immer das Datum und die Zeit mit an gehangen zu bekommen?

[Newcomer91]

Cool, hätt ich das mal eher gewusst. Hab Das Datum und Uhrzeit ding mit DateandTime gelöst. ;)
geht beides.

[skh]

Zitat:

Zitat von hitzi (Beitrag 1070798)

Zitat:

Zitat von skh (Beitrag 1070795)

.LOG

Funktioniert tatsächlich :shock: Was ist der Sinn hinter dieser versteckten Funktion? Was ist wenn ich wirklich mal .LOG im Texteditor abspeichern will ohne dann immer das Datum und die Zeit mit an gehangen zu bekommen?

:arrow: da passiert nichts, es sei denn du schreibst den Eintrag an den Anfang der Datei!!

[Sir Rufo]

Zitat:

Zitat von skh (Beitrag 1070795)

noch eine Alternative zu deinem Progrämmchen..

Gib mal in deiner Textdatei in der ersten Zeile folgendes ein:

.LOG

anschliessend abspeicherm und neu öffnen
jetzt steht nach jedem NEU-ÖFFNEN am Ende der letzten Textzeile
die aktuelle Uhrzeit und das Datum

:warn: Das ist aber eine Funktion des Windows-Text-Editors und keine Funktion des Betriebssystems.

Bei einem x-beliebigen anderen Editor wird da nichts passieren (es sei denn, die hätten das auch eingebaut)