VB6.0 Parse a text Line

Parse a text line into a variant array. The number of variables is returned in entry 0 of the array. Example Code:
Function ParseLne(sTextLine As String) 'Declare variables. Dim MaxArgs As Integer MaxArgs = 10 Dim C, CmdLine, CmdLnLen, InArg, i, NumArgs, InQuotes 'Make array of the correct size. ReDim ArgArray(4) NumArgs = 0: InArg = False 'Get command line arguments. CmdLine = sTextLine 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 If C = """" Then If InQuotes Then InQuotes = False Else InQuotes = True End If Else 'Concatenate character to current argument. ArgArray(NumArgs) = ArgArray(NumArgs) & C End If Else If InQuotes Then ArgArray(NumArgs) = ArgArray(NumArgs) & C Else 'Found a space or tab. 'Set InArg flag to False. InArg = False End If End If Next i 'Resize array just enough to hold arguments. ReDim Preserve ArgArray(NumArgs) ArgArray(0) = NumArgs 'Return Array in Function name. ParseLne = ArgArray() End Function

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.