Visual Basic > ActiveX Controls

Comma Delimited Parse

Comma Delimited Parse

Function ParseLine(Data)

'This function will take a string of data that is comma-delimited and return it parsed
'in an array. The input string can have up to 15 comma-delimited parameters
'

Dlength = Len(Data)
Dim Extract(15)
Position = 1

For i = 1 To Dlength
  character = Mid(Data, i, 1)
   
   If Asc(character) <> 44 Then
     Extract(Position) = Extract(Position) & character
   Else
     Extract(Position) = RTrim(Extract(Position))
     Position = Position + 1
   End If
    

Next i

ParseLine = Extract

End Function