String zerlegen

[Hawkeye219]

Hallo,

Zitat:

Zitat von value is NULL (Beitrag 1054318)

gibt es die möglichkeit, das ich delphi sage, schreibe mir alles AB dem 3. Backslash in eine variable?

Falls alle Strings so aufgebaut sind, kannst du ExtractFileName verwenden.

Gruß Hawkeye

[Sir Rufo]

@hawkeye erschließt sich mir zwar nicht, weil er dann alles bekommt außer den Zahlen

Es gibt keine Allerweltsmethode um aus irgendwas das Datum zu ermitteln.
Man braucht immer die Information, wie das Datum aufgebaut ist, sonst rummst es.

Code:

20102011

Kann ja nun bedeuten 20.10.2011 oder auch 20.11.2010

Um nun eine Funktion zu basteln, die aus einem beliebigen Text das Datum ermittelt, würde ich der Funktion den Text und das Muster mitgeben

Delphi-Quellcode:

GetDateTime( '20102011', 'JJJJTTMM' )
GetDateTime( '2010\10\07\vctrkdielskdoivüqöökd.wav', 'JJJJ?MM?TT*' )

Edit:
Ok, beim nächsten Mal lese ich auch was er wirklich will :mrgreen:
Also vergessen wir mal meinen Beitrag ;)

[value is NULL]

extract file name passt wie die faust aufs aug :)

DANKE

[plusplus]

copy geht mit 0 und mit 1, Pos begint mit 1, und string index begint mit 1

copy(a, 0, 1)
copy(a, 1, 1)

ist das selbe denke ich

Pos('s', 'string') > 0

wobei s als 1 idendifiziert wird

und s[0] <- fehler s[1] <- richting

PS: you are right about zb, but I just thought I would use it as an example :)

[Bernerbaer]

Zitat:

Zitat von value is NULL (Beitrag 1054318)

um genau zu sein habe ich einige die so aufgebaut sind:

2010\10\07\vctrkdielskdoivüqöökd.wav
2010\10\07\vctrkdkkdow9322qöökd.wav
2010\10\07\vctrkkk3ß2kclsß2kc04.wav

usw usw....
das heisst mit pos usw komme ich hier nicht weiter oder?

gibt es die möglichkeit, das ich delphi sage, schreibe mir alles AB dem 3. Backslash in eine variable?
LG

zum Trennen einen Strings gibt es die funktion explode
oder
Im Forum gibt es zusätzlich eine Routine SPLIT, die trennt die Daten durch ein vordefiniertes Trennzeichen ("\" in deinem Beispiel) auf und legt sie in einem Array ab, da kann ganz einfach auf das gewünschte Element zugegriffen werden

[mkinzler]

Oder einfach per StringListe

[frankistreich]

Danke für die vielen Hilfen, Hab es jetzt etwas anders, aber einfacher gelöst und es geht endlich... trotzdem DANKE!

Delphi-Quellcode:

procedure Tfmuanzeigen.darstellen;
  var x1,x2,y1,t:integer;
      s,s1,s2,s3:string;
begin
qbefehl.Close;
  qbefehl.SQL.Clear;
  qbefehl.SQL.Add('select ma.mid,urlaub.beginn,rtrim(urlaub.dauer),urlaub.unr from ma '+
                  'inner join urlaub on ma.mid = urlaub.mid '+
                  'where ma.aid = '+quotedstr(dbcbabteilung.KeyValue)+' order by ma.mid asc');
qbefehl.Open;

qanzahl.Close;
  qanzahl.SQL.Clear;
  qanzahl.SQL.Add('select count(Urlaub.UNr) as anzahl from Urlaub '+
                  'inner join ma on Urlaub.MId = ma.MId '+
                  'where AId = '+quotedstr(dbcbabteilung.KeyValue));
qanzahl.Open;
qbefehl.first;

while not qbefehl.eof do
begin

  S:=qbefehl.Fields.Fields[1].AsString; //Datum
  t:=qbefehl.fields.fields[2].asinteger;//Dauer

s1 := Copy(s, 0, 2);
s2 := Copy(s, 4, 2);
s3 := Copy(s, 7, 4);

 x1:=strtoint(s1);
 x2:=strtoint(s1);

 if s2 = cbmonat.Text then begin
  for x1:=strtoint(s1)  to x1+t-1 do begin
     y1:=qbefehl.fields.fields[0].asinteger;
     sg.Cells[x2,y1]:='XXXXXXXX';
     inc(x2);
   end;
  end;
  qbefehl.next;
 end;
end;

[RWarnecke]

Das ist schonmal nicht schlecht, aber ich würde die folgenden Teile so machen : (ungetestet)

Delphi-Quellcode:

  qbefehl.Close;
  qbefehl.SQL.Clear;
  qbefehl.SQL.Add('select ma.mid,urlaub.beginn,rtrim(urlaub.dauer),urlaub.unr from ma '+
                  'inner join urlaub on ma.mid = urlaub.mid '+
                  'where ma.aid = :maaid order by ma.mid asc');
  qbefehl.parambyname('maaid').AsString := dbcbabteilung.KeyValue;
  qbefehl.Open;

  qanzahl.Close;
  qanzahl.SQL.Clear;
  qanzahl.SQL.Add('select count(Urlaub.UNr) as anzahl from Urlaub '+
                  'inner join ma on Urlaub.MId = ma.MId '+
                  'where AId = :aid');
  qbefehl.parambyname('aid').AsString := dbcbabteilung.KeyValue;
  qanzahl.Open;
  qbefehl.first;

Delphi-Quellcode:

DecodeDate(StrToDateTime(qbefehl.Fields.Fields[1].AsString), s3, s2, s1);

Diese Zeile ersetzt die drei Copy-Befehle.

[Horst_]

Hallo,

Delphi-Quellcode:

DecodeDate(StrToDateTime(qbefehl.Fields.Fields[1].AsString), s3, s2, s1);

Macht wenig Sinn, da s1,s2,s3 Strings sind, aber dass lässt sich ja ändern.

Muss man dann aber nicht aufpassen, ob dass richtige Format StrtoDateTime bei ...AsString herauskommt.
Wenn Fields[1] vom Typ ein Datum ist, kann man es sicher direkt mit AsDate
umformen.Zudem muss man vielleicht noch beachten, das der Urlaub auch über das Monatsende/Jahr hinausgehen kann.
Was macht man, wenn der Urlaub/Elternzeit im Vormonat/ Vorjahr beginnt?? Vielleicht wäre es angebrachter, statt der Dauer das Enddatum zu speichern.

Delphi-Quellcode:

suchMonat := StrToInt(cbmonat.Text);

while not qbefehl.eof do
begin
  StartDatum :=  qbefehl.Fields.Fields[1].AsDate;// TDateTime;
  DecodeDate(StartDatum, wJahr, wMonat,wTag);
  if wMonat = suchMonat then begin
    y1:=qbefehl.fields.fields[0].asinteger;// passende Spalte
    t :=qbefehl.fields.fields[2].asinteger;// Dauer in Tagen
    t := t+wTag;
    IF t >  DaysInMonth(StartDatum) then
      t :=  DaysInMonth(StartDatum);
    DaysInMonth(Now)    
    for i:= wTag to t do
       sg.Cells[i,y1]:='XXXXXXXX';
   end;
  qbefehl.next;
end;

[Sir Rufo]

@Horst_

Ob EndDatum oder Dauer ist völlig egal, da sich das EndDatum oder die Dauer immer aus dem StartDatum berechnen lässt (je nachdem, was man hat).

Die Dauer zu speichern hat allerdings den Vorteil, dass bei einer Verschiebung nur das StartDatum geändert werden muss, und bei einer Änderung der Dauer eben halt nur dieser eine Wert ;)

Das reine iterieren über die Tage ist allerdings auch suboptimal. Ich würde immer über das Datum iterieren