home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
WA
/
WA813.ZIP
/
WINBATCH
/
RUNPARM.WBT
< prev
next >
Wrap
Text File
|
1991-02-17
|
858b
|
15 lines
; Generic Macro with parameters using textbox
DirChange(DirHome()) ;Change to Home directory
RunMe=TextBox("Select Macro/Batch","RunParm.WBL") ;Display RunParm.WBL file
RunMe=StrTrim(RunMe) ;Kill leading/trailing blanks
if RunMe=="" then exit ;If no selection, exit
a=StrIndex(RunMe," ",1,@FWDSCAN) ;Find first space
RunParm="" ;Initialize var to null
if a==0 then goto GOGO ;If no spaces, just do it
RunParm=StrSub(RunMe,a+1,strlen(RunMe)-a) ;Peel off parms
RunMe=StrSub(RunMe,1,a-1) ;Peel off macro/batch file
:GOGO
call(RunMe,RunParm) ;and Call it...
Exit ;Byebye