• Home
 · 
• Miscellaneous
 · 
• How to implement command-line parameters in Visual Basic

How to implement command-line parameters in Visual Basic

How to implement command-line parameters in Visual Basic

Rate How to implement command-line parameters in Visual Basic

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function GetCommandLine(Optional NumberOfArguments)
     •-- Declare variables.
     Dim C, CmdLine, CmdLnLen, InArg, I, ArgNum
     •-- See if NumberOfArguments was provided.
     If IsMissing(NumberOfArguments) Then
     NumberOfArguments = 10
     End If
     •-- Make array of the correct size.
     ReDim ArgArray(NumberOfArguments)
     ArgNum = 0
     InArg = False
     •-- Get command line arguments.
     CmdLine = Command()
     CmdLnLen = Len(CmdLine)
     •-- Go thru command line one character
     •-- at a time.
     For I = 1 To CmdLnLen
     C = Mid(CmdLine, I, 1)
     •-- Test for space or tab.
     If (C <> " " And C <> vbTab) Then
     &#8226;-- Neither space nor tab.
     &#8226;-- Test if already in argument.
     If Not InArg Then
     &#8226;-- New argument begins.
     &#8226;-- Test for too many arguments.
     If ArgNum = NumberOfArguments Then Exit For
     ArgNum = ArgNum + 1
     InArg = True
     End If
     &#8226;-- Concatenate character to current argument.
     ArgArray(ArgNum) = ArgArray(ArgNum) & C
     Else
     &#8226;-- Found a space or tab.
     &#8226;-- Set InArg flag to False.
     InArg = False
     End If
     End If
     Next I
     &#8226;-- Resize array just enough to hold arguments.
     ReDim Preserve ArgArray(ArgNum)
     &#8226;-- Return Array in Function name.
     GetCommandLine = ArgArray()
    End Function