• Home
 · 
• String Manipulation
 · 
• list to text, text to list: puts a string using separation-strings into a listbox or combobox (exam

list to text, text to list: puts a string using separation-strings into a listbox or combobox (exam

list to text, text to list: puts a string using separation-strings into a listbox or combobox (example: "pie.and.cake" => sepstring = ".")

Rate list to text, text to list: puts a string using separation-strings into a listbox or combobox (exam

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim I
Dim StartListIndex
StartListIndex = ListOrCombo.ListIndex
For I = 0 To ListOrCombo.ListCount - 1
If (I > 0) Then ListToText = ListToText + SepString
ListOrCombo.ListIndex = I
ListToText = ListToText + ListOrCombo.Text
DoEvents
Next
ListOrCombo.ListIndex = StartListIndex
End Function

Public Function TextToList(SourceString As String, ListOrCombo As Object, SepString As String, ClearList As Boolean)
Dim I
Dim ii
If (ClearList = True) Then ListOrCombo.Clear
ii = 1
For I = 1 To Len(SourceString)
If (Mid(SourceString, I, Len(SepString)) = SepString) Then
ListOrCombo.AddItem Mid(SourceString, ii, I - ii)
ii = I + Len(SepString)
End If
If (I = Len(SourceString)) Then ListOrCombo.AddItem Mid(SourceString, ii, I - ii + 1)
DoEvents
Next
End Function

Public Function DblTextToList(SourceString As String, ListOrCombo As Object, SepString As String, SecSepString, ClearList As Boolean) 'for example, ', ' and ' & ' in the sentence apple, pie & cake
Dim I
Dim ii
If (ClearList = True) Then ListOrCombo.Clear
ii = 1
For I = 1 To Len(SourceString)
If (Mid(SourceString, I, Len(SepString)) = SepString) Then
ListOrCombo.AddItem Mid(SourceString, ii, I - ii)
ii = I + Len(SepString)
ElseIf (Mid(SourceString, I, Len(SecSepString)) = SecSepString) Then
ListOrCombo.AddItem Mid(SourceString, ii, I - ii)
ii = I + Len(SecSepString)
End If
If (I = Len(SourceString)) Then ListOrCombo.AddItem Mid(SourceString, ii, I - ii + 1)
DoEvents
Next
End Function