Split?
...or use a function like this:
Code:Function SplitCommand(Arg() As String, Text As String, Seperator As String) As Long Dim Length As Long Dim Count As Long Dim Pos As Long Dim Temp As Long Count = -1 Pos = 1 ReDim Arg(0) Length = Len(Text) While Pos <= Length Temp = InStr(Pos, Text, Seperator, vbTextCompare) If Temp = 0 Then Count = Count + 1 ReDim Preserve Arg(Count) Arg(Count) = Mid(Text, Pos, Len(Text) - Pos + 1) Pos = Length + 1 Else Count = Count + 1 ReDim Preserve Arg(Count) Arg(Count) = Mid(Text, Pos, Temp - Pos) Pos = Temp + 1 End If Wend GetArgsFast = Count End Function




Reply With Quote