Transport a List

Transport a List

The typical way of entering user-specified data into a list box is one entry at a time; however, you can accept multiple delimited entries at once and add them to a list box with a call to this function. Passing the function a delimited string fills the list box with the values; the list box can be cleared first if requested in the bClear parameter. If you pass an empty string, the values from the list box are used to create a delimited string:

 Function ConvertList(cList As Control, ByVal sText As _	String, ByVal sDelimiter As String, Optional bClear As _	Boolean = False) As String	Dim lLoop As Long	Dim lFind As Long	If Len(sText) Then		If bClear Then cList.Clear		Do			lFind = InStr(sText, sDelimiter)			If lFind Then				cList.AddItem Left$(sText, lFind - 1)				sText = Mid$(sText, lFind + 1)			End If		Loop Until lFind = 0		If Len(sText) Then cList.AddItem sText	Else		For lLoop = 0 To cList.ListCount - 1			If lLoop = cList.ListCount - 1 _				Then sDelimiter = vbNullString			ConvertList = ConvertList & cList.List(lLoop) _				& sDelimiter		Next lLoop	End IfEnd Function

Here’s how you can call it to fill a list, then output the same list using a different delimiter:

 Call ConvertList(List1, "yellow|green|red", "|", True)Debug.Print ConvertList(List1, "", "/")
See also  5 Tips for Working With an Onsite Interpreter

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist