DateTime Doppelpunkt duch Bindestrich ersetzen

[mv08]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

da ich das DT als Dateinamen verwenden möchte, muss ich die Doppelpunkte durch etwas anderes ersetzen. Windows mag ja keine Doppelpunkte im Dateinamen...

		(*Aktuelle Zeit auswerten und in eine Variable schreiben*)
		fbGetSystemTime(timeLoDW=>fileTime.dwLowDateTime, timeHiDW=>fileTime.dwHighDateTime );


		(*Jetzt noch die Zeitzone anpassen*)
		fbToLocal( in := fileTime, tzInfo := WEST_EUROPE_TZI );


		(*Und die aktuelle Zeit in die Variable schreiben.*)
		sAktuelleZeit :=SYSTEMTIME_TO_STRING( FILETIME_TO_SYSTEMTIME(fbToLocal.out ) );

In sAktuelleZeit habe ich jetzt z.B. das stehen: 2013-07-03-08:39:33.024
Wie bekomme ich es hin, dass dieser Sting so aussieht: 2013-07-03-08-39-33.024

LG,
Dennis

 

[MasterOhh]

iPos :INT;

REPEAT

  iPos := FIND(sAktuelleZeit,':');          (*Findet den ersten : im String und speichert seine Position in iPos*)
  if iPos > 0 then                               (*iPos > 0 wenn : im String gefunden*)
    REPLACE(sAktuelleZeit, '-', 1, iPos); (*ersetzt das Zeichen an Stelle iPos (:) durch - *)
  end_if

UNTIL 
   iPos = 0        (*mach das ganze solange bis kein : mehr im String gefunden wird*)
END_REPEAT

ungetestet....

 

[mv08]

Zuviel Werbung?
-> Hier kostenlos registrieren

Sobald ich den Code ausführe, bleibt der CX komplett hängen und ich muss den Strom ziehen. Wenn ich den den Schnipsel oben wieder raus nehme, klappt da Programm wieder.

 

[MasterOhh]

Sieht so aus, das die Schleife Endlos weiterläuft.

Ich probiere es nach dem Frühstück mal aus ......

 

[MasterOhh]

Alles Klar, Fehler gefunden:

iPos :INT;

REPEAT

  iPos := FIND(sAktuelleZeit,':');          (*Findet den ersten : im String und speichert seine Position in iPos*)
  if iPos > 0 then                               (*iPos > 0 wenn : im String gefunden*)
    [b]sAktuelleZeit := REPLACE(sAktuelleZeit, '-', 1, iPos); [/b](*ersetzt das Zeichen an Stelle iPos (:) durch - *)
  end_if

UNTIL 
   iPos = 0        (*mach das ganze solange bis kein : mehr im String gefunden wird*)
END_REPEAT

diesmal getestet

 

[mv08]

Zuviel Werbung?
-> Hier kostenlos registrieren

Danke, das klappt auch wunderbar