| |
|
|
Web Scanner | Eine neue Frage vom Web
Ich eröffne ein Zeiteingabefeld: KompilierenMarkierenSeparierenDrawText 20,150, "Zeitdauer steigende Rampe "
timeEdit1& = @Create("TimeEdit", hd%, "00.00.00", 220, 148, 100, 24)e> ..und möchte das mit timeup& = @GetText$(timeEdit1&) auslesen.
Da kommt logischerweise nur Schrott raus. Ich bräuchte die Stunden und Minuten in je einer eigenen Variablen, um diese dann weiterverarbeiten zu können.
Ich hab in der Cerca zwar bissel was gefunden, aber nicht verstanden. Gibt es da eine einfache Lösung?
Danke + Grüße
Web |
|
|
| |
|
|
|
Rolf Koch | |
|
| |
|
|
|
Rolf Koch | Ok, hier mal ein Beispiel: KompilierenMarkierenSeparieren********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.7
DATUM 27.10.2009 um 21:44 Uhr
VERWENDETE PROFANVERSION IST 11.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
DECLARE TIMEEDIT1&,ENDE%,zeit$
Declare std$,min$,sek$,output&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Zeitedit auslesen"
WINDOW 22,20-576,327
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
TIMEEDIT1& = CREATE("TIMEEDIT",%HWND,"",0018,0020,0120,0020)
Output&= CREATE("MULTIEDIT",%HWND,"",0178,0020,0120,-120)
SETFOCUS(%HWND)
REPAINT
WHILENOT ENDE%
WAITINPUT
zeit$=gettext$(timeedit1&)
std$=mid$(zeit$,1,2)
min$=mid$(zeit$,4,2)
sek$=mid$(zeit$,7,2)
Settext output&,"Stunden: "+std$+"
Minuten: "+min$+"
Sekunden: "+sek$
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF CLICKED(TIMEEDIT1&) TIMEEDIT
ENDIF
ENDWHILE
|
|
|
| |
|
|
|
Web Scanner | Oha, das ging aber superschnell
Dankeschön! |
|
|
| |
|
|
|
Rolf Koch | Wie bei Ebay der Spruch: Immer wieder gerne |
|
|
| |
|
|