|
Post by alexfish on Sept 11, 2015 19:08:35 GMT 1
Hi All
one can conditionally test a bacon string like so
LET A$ = "0123456789"
FOR t = 0 TO LEN(A$) -1 PRINT A$[t] FORMAT "%d\n"
NEXT
FOR t = 0 TO LEN(A$) -1
IF (A$[t] > 48) AND (A$[t] < 59) THEN PRINT "do something" END IF NEXT
BaCon also has CONCAT$
also may be able to control the input like so
INCLUDE hug.bac
SUB get_entry()
LET A$ = GRAB$(entry_widget)
SELECT LEN(A$)
CASE 1 SETPROPERTY(entry_widget,"max-length",2) CASE 2 SETPROPERTY(entry_widget,"max-length",3) CASE 3 SETPROPERTY(entry_widget,"max-length",4) END SELECT
ENDSUB
LET win = WINDOW("test entry key event",600,400)
LET entry_widget = ENTRY("",200,25)
SETPROPERTY(entry_widget,"max-length",1)
CALLBACK(entry_widget, get_entry)
ATTACH(win,entry_widget,20,20)
FOCUS(entry_widget)
DISPLAY
BR Alex
|
|
|
Post by vovchik on Sept 11, 2015 19:58:41 GMT 1
Dear Alex,
That's very clever - and a nice dynamic use of SETPROPERTY!
With kind regards, vovchik
|
|