home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac12disk / cmdline.bas next >
Encoding:
BASIC Source File  |  1998-12-05  |  533 b   |  41 lines
  1.  
  2. FUNCTION get_cmd$ (BYVAL cmd$, BYVAL n)
  3. LOCAL i,l,p,a$,b$
  4. ' get argument number n from cmd$
  5.  
  6. i=2 : l=2 : p=0
  7. cmd$=" "+cmd$+" "
  8. ' "command.prg" -q -s
  9.  
  10. DO
  11.     a$=MID$(cmd$,i,1)
  12.     IF a$=" " THEN
  13.         b$=MID$(cmd$,l,i-l)
  14.         p=p+1
  15.         l=i+1
  16.     END IF
  17.     INCR i
  18. LOOP UNTIL (p=n) OR (i>LEN(cmd$))
  19.  
  20. IF p=n THEN
  21.     get_cmd$=b$
  22. ELSE
  23.     get_cmd$=""
  24. END IF
  25.  
  26. END FUNCTION
  27.  
  28. FUNCTION get_num (BYVAL cmd$)
  29. LOCAL p,b$,a
  30.  
  31. p=0
  32. FOR a=1 TO LEN(cmd$)
  33.     b$=MID$(cmd$,a,1)
  34.     IF b$=" " THEN INCR p
  35. NEXT a
  36.  
  37. INCR p
  38.  
  39. get_num=p
  40. END FUNCTION
  41.