home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / WINB30A.ZIP / RUNPARM.WBT < prev    next >
Encoding:
Text File  |  1991-02-17  |  858 b   |  15 lines
  1. ; Generic Macro with parameters using textbox
  2.  
  3. DirChange(DirHome())                              ;Change to Home directory
  4. RunMe=TextBox("Select Macro/Batch","RunParm.WBL") ;Display RunParm.WBL file
  5. RunMe=StrTrim(RunMe)                              ;Kill leading/trailing blanks
  6. if RunMe=="" then exit                            ;If no selection, exit
  7. a=StrIndex(RunMe," ",1,@FWDSCAN)                  ;Find first space
  8. RunParm=""                                        ;Initialize var to null 
  9. if a==0 then goto GOGO                            ;If no spaces, just do it
  10. RunParm=StrSub(RunMe,a+1,strlen(RunMe)-a)         ;Peel off parms
  11. RunMe=StrSub(RunMe,1,a-1)                         ;Peel off macro/batch file
  12. :GOGO
  13. call(RunMe,RunParm)                               ;and Call it...
  14. Exit                                              ;Byebye
  15.