Post by tsh73 on Nov 23, 2019 18:45:31 GMT
(happened in LB forum but I adapted it to JB)
Not exactly EVAL$ (in will not work out MID$(a$,i,1) and stuff)
- but at least we can set variable by name (EVAL$ could not do it, btw)
and read variable by name.
(somehow, trailing spaces got eaten up)
Sample session
Not exactly EVAL$ (in will not work out MID$(a$,i,1) and stuff)
- but at least we can set variable by name (EVAL$ could not do it, btw)
and read variable by name.
(somehow, trailing spaces got eaten up)
Sample session
There is existing variable named aaa$
Check: Variable name is empty
Checking variable aaa$
varName$=>xyzzy<
Checking variable boat$
varName$=><
Setting variable boat$ to >123<
Checking variable car$
varName$=><
Setting variable car$ to >Ferrary<
Checking variable boat$
varName$=>123<
Checking variable car$
varName$=>Ferrary<
'Form created with the help of Freeform 3 v07-31-2015
'Generated on Nov 23, 2019 at 20:58:42
[setup.main.Window]
'-----Begin code for #main
nomainwin
WindowWidth = 550
WindowHeight = 410
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
'-----Begin GUI objects code
TexteditorColor$ = "white"
texteditor #main.log, 10, 72, 520, 280
TextboxColor$ = "white"
textbox #main.textbox1, 10, 32, 100, 25
statictext #main.statictext2, "Var name", 10, 12, 58, 20
button #main.button3,"Check variable",[button3Click], UL, 135, 17, 125, 25
statictext #main.statictext4, "Var value", 280, 7, 70, 20
textbox #main.textbox6, 275, 27, 100, 25
button #main.button7,"Set variable",[button7Click], UL, 395, 12, 95, 25
texteditor #main.hidden, -275, 27, 100, 25 'offscreen
'-----End GUI objects code
'-----Begin menu code
aaa$="xyzzy" 'existing variable, for test
menu #main, "Edit" ' <-- Texteditor menu.
'-----End menu code
open "untitled" for window as #main
print #main, "font ms_sans_serif 10"
print #main, "trapclose [quit.main]"
#main.log "There is existing variable named aaa$"
[main.inputLoop] 'wait here for input event
wait
[button3Click] 'Check variable
#main.textbox1 "!contents? varName$"
varName$=trim$(varName$)
if trim$(varName$)="" then
#main.log "Check: Variable name is empty"
wait
end if
if right$(varName$, 1)<>"$" then varName$=varName$+"$" 'aaa->aaa$
#main.log "Checking variable ";varName$
'LB way
'#main.log " varName$=>";EVAL$(varName$);"<"
'JB way
#main.hidden "!contents ";varName$
#main.hidden "!contents? varValOut$"
'varValOut$=trim$(varValOut$)
varValOut$=left$(varValOut$, len(varValOut$)-2)
#main.log " varName$=>";varValOut$;"<"
wait
[button7Click] 'Set variable
#main.textbox1 "!contents? varName$"
varName$=trim$(varName$)
if trim$(varName$)="" then
#main.log "Set: Variable name is empty"
wait
end if
if right$(varName$, 1)<>"$" then varName$=varName$+"$" 'aaa->aaa$
#main.textbox6 "!contents? varVal$"
#main.log "Setting variable ";varName$ ;" to >";varVal$;"<"
#main.textbox6 "!contents? ";varName$
wait
[quit.main] 'End the program
close #main
end