Visual Basic Programming Code Examples Visual Basic > ActiveX Controls Code Examples 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
