home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / ms95 / disk23 / dir05 / f000680.re_ / f000680.re
Text File  |  1996-04-02  |  2KB  |  44 lines
  1. ' Basic program to show how to pass command line arguments to a macro.
  2. '   For example: ustn> macro cmd.bas arg1 arg2 arg3 ...
  3. '
  4. '--------------------------------------------------------------------
  5. '
  6. '  Copyright (1995) Bentley Systems, Inc., All rights reserved.
  7. '
  8. '   $Workfile:   cmd.bas  $
  9. '   $Revision:   6.2  $
  10. '       $Date:   11 Aug 1995 09:40:02  $
  11. '
  12. '  "MicroStation" is a registered trademark of Bentley Systems, Inc. 
  13. '
  14. '  Limited permission is hereby granted to reproduce and modify this
  15. '  copyrighted material provided that the resulting code is used only
  16. '  in conjunction with Bentley Systems products under the terms of the
  17. '  license agreement provided therein, and that this notice is retained
  18. '  in its entirety in any such reproduction or modification.
  19. '
  20. '--------------------------------------------------------------------
  21. sub main
  22.     Dim numArgs As Integer
  23.     Dim    cmdArg As String
  24.  
  25. '   save the command line arguments to a local variable
  26.     cmd$ = Command$
  27.  
  28. '   output the command line arguments
  29.     Print "Startup line was : ("; cmd$; ")"
  30.  
  31. '   save the number of arguments in a local variable
  32.     numArgs = WordCount(cmd$)
  33.  
  34. '   output the number of command line arguments
  35.     Print "Number of command line arguments is : "; Str$(numArgs)
  36.     
  37. '   parse the command line arguments and output each individual argument in turn
  38.     For counter% = 1 to numArgs
  39.     cmdArg = Word$ (cmd$, counter)
  40.         Print "Argument #"; Str$(counter); " is "; cmdArg
  41.     Next counter
  42.     
  43. end sub
  44.