🚀 go-pugleaf

[From Visual Basic Books Online]

This example uses the Command function to get the command line 
arguments in a function that returns them in a Variant 
containing an array. 

Function GetCommandLine(Optional MaxArgs)
        'Declare variables.
        Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
        'See if MaxArgs was provided.
        If IsMissing(MaxArgs) Then MaxArgs = 10
        'Make array of the correct size.
        ReDim ArgArray(MaxArgs)
        NumArgs = 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
                        'Neither space nor tab.
                        'Test if already in argument.
                        If Not InArg Then
                        'New argument begins.
                        'Test for too many arguments.
                                If NumArgs = MaxArgs Then Exit For
                                NumArgs = NumArgs + 1
                                InArg = True
                        End If
                        'Concatenate character to current argument.
                        ArgArray(NumArgs) = ArgArray(NumArgs) & C
                Else
                        'Found a space or tab.
                        'Set InArg flag to False.
                        InArg = False
                End If
        Next I
        'Resize array just enough to hold arguments.
        ReDim Preserve ArgArray(NumArgs)
        'Return Array in Function name.
        GetCommandLine = ArgArray()
End Function



--
�� ��Դ:���������� BBS bbs.nease.net��[FROM: earth.glink.net]