StringToDate Problem

[gee21]

Zitat von himitsu:

RegEx ?

Warum fällt dir nicht auf, dass StrToDate und Co. noch einen weiteren Parameter besitzen?
StrToDate

Und keine Ahnung, warum viele Entwickler fahrlässig Exceptions zur Steuerung missbrauchen.
Vorallem beim Debuggen macht so ein Code absolut keinen Spaß. So könnte man fast auf die Idee kommen, dass Viele auch niemals den Debugger benutzen.
TryStrToDate

Ich war mir eben nicht sicher ob dies der parameter ist den ich brauche das es klappt. da ich nicht mal 100% sicher bin was dieser parameter macht. und ebenfalls war ich mir nicht sicher was überhaupt das problem war. Du hast natürlich bestimmt mit allem recht betreffend Debuggen und so. Aber ich bringe mir Delphi schritt für schritt selbst bei und deshalb fehlen mir dann so grundlegende sachen die für euch halt "ganz logisch / normal sind).

Zitat von HolgerX:

Hmm..

Eine Frage:
Wer erstellt diese Textdatei?

Ich kenne das Problem mit String -> Date, gerade wenn die Dateien von irgendeiner Maschine kommen, welche eine andere Sprache eingestellt hat (z.B. EN) und der PC, welcher die Datei einließt z.B. auf DE steht.

Wenn Du Einfluss auf das Erstellen der Textdatei hast, dann würde ich empfehlen entweder ein festes Format (FormatDate mit z.B. immer YYYY-MM-DD) oder direkt das ISO Format zu verwenden.
Dann ist das Konvertieren immer gleich, egal welche Sprache auf dem System/User eingestellt ist.

Aha... Ja ich glaube das klingt nach meinem Problem
Ich mache diese Textdatei und kann das Format beliebig schreiben.
Dann versuche ich mal mit FormatDate aber bis jetzt klappts nnoch nicht.

[himitsu]

Aus diesem Grund, haben fast alle Funktionen einen Format-Parameter.
XxxToStr/StrToXxx/Format/FormatDateTime

Da gibt man die "Landesspezifikationen" dieses Strings an.
. oder ,
: oder /
usw.

Außerdem hat FormatDateTime ein paar Formatspezifische Steuerzeichen.

'jjjj.mm.dd' is nicht das Selbe, wie 'jjjj"."mm"."dd' , außer man gibt in den FormatSettings vor, dass das Steuerzeichen . auch ein . ist.

Und gerade "externe" Werte sollten "immer" in einem fest definierten Format gespeichert werden.
extern = Dateien und Datenübertragungen aus der EXE heraus (IPC, Netzerk usw.)

[gee21]

Danke für die Hilfe. Hab mal was versucht.

Wäre es so ungefähr korrekt? Bei mir gehts zumindest. Aber bei mir gings ja bis jetzt auch immer. Kann es schlecht testen, oder?

Delphi-Quellcode:

 function IsDate(str: string): Boolean;
var
  dt: TDateTime;
  DateOne: TDate;
  LocalFormatSettings: TFormatSettings;
  s: string;
begin
  Result := True;
  try

     GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, LocalFormatSettings);
      LocalFormatSettings.DateSeparator := '.';
      s := FormatDateTime('dd.mm.yyyy', strtodate(str), LocalFormatSettings);

    dt := StrToDate(s);
  except
    Result := False;
  end;

  end;

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if isdate(s)=false then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

[NormanNG]

Hi,

mal ein anderer Ansatz:
Wenn jede zweite Zeile ein Datum ist, dann kann man z.B. auch auf un-/geraden Index prüfen.

... if odd(i) then ...

oder gleich eine while-Schleife und einen Index mit Schrittweite 2

[gee21]

Zitat von NormanNG:

Hi,

mal ein anderer Ansatz:
Wenn jede zweite Zeile ein Datum ist, dann kann man z.B. auch auf un-/geraden Index prüfen.

... if odd(i) then ...

oder gleich eine while-Schleife und einen Index mit Schrittweite 2

Lol. Ja ich machs einfach so Danke dir

[Dalai]

Noch ein anderer Ansatz: Wenn du die Textdatei eh selbst schreibst und das Format selbst definieren kannst, dann setze Datum und Name in dieselbe Zeile, getrennt durch ein Zeichen deiner Wahl - z.B. die Pipe | oder Sternchen * oder sowas, irgendetwas, das garantiert nicht im Namen und Datum vorkommen kann.

Der Ansatz geht natürlich davon aus, dass Datum und Name zueinander gehören.

Grüße
Dalai

[zeras]

Zitat von gee21:

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if isdate(s)=false then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

Auch sollte nicht "=false" schreiben, sondern

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

[/QUOTE]

[HolgerX]

Hmm..

dann aber auch gleich statt

Zitat von zeras:

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

das 2. =false auch entfernen

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if not(server.Strings[i]='Nothing') then cat1.add(server.Strings[i]);
      end;

    end;

[p80286]

Das Problem würde nicht existieren, würde das sog. ISO-Datum (YYYY-MM-DD) verwendet. Das ist allerdings eine Norm aus dem letzten Jahrhundert.

Gruß
K-H

[himitsu]

Aus dem letzten Jahrtausend, aber sie wird vermutlich auch noch die nächsten 7982 Jahre funktionieren, oder bis zur nächsten Zombieapokalypse.