Split a multiline string into pieces

[nandagopal]

The program uses the Split function (VB 6 and later) to break the string into pieces. It splits at the vbCrLf line delimiters. It loops through the results and places each string in a ListBox.

Code Select Expand


Private Sub Command1_Click()
    Dim pos As Integer
    Dim entry() As String

    entry = Split(Text1.Text, vbCrLf, , vbTextCompare)
    pos = 0

    Do While pos < UBound(entry)
        If Trim$(entry(pos)) <> "" Then
            Combo1.AddItem entry(pos)
        End If
        pos = pos + 1
    Loop

    Text1.Text = ""

    If Combo1.ListCount = 0 Then
        Combo1.ListIndex = -1
    Else
        Combo1.ListIndex = 0
    End If
End Sub