ArrayToString( )

Purpose

Converts a string array list to a delimited string.

*Author*	*Date of code (original)*	*Updated on*	*Date of page (original)*	*Updated on*
Bill Thoen bthoen@ctmap.com	07Jan2001	07Jan2001	07Jan2001	09Jan2001

Restrictions on use

This module is distributed under the terms of the Lesser GNU General Public License. Restrictions on the use of this work in a commercial application or derivative work is described in the Lesser GNU General Public License page at: http://www.fsf.org/copyleft/lesser.html

Description

ArrayToString converts an array of strings into a single delimited string. This is most commonly used to create MapInfo semi-colon delimited strings for use in dialogs (e.g. "One;Two;Three", but can also be used to combine strings with a more complex delimiter such as <BR>.

External resources

none

Declare statement of sub_function. Include in your program. Copy/Paste if needed.

sub ArrayToString (
   sList() as string,      'List items as string array
   sStr as string,         'Returned list items as delimited string
   byval sToken as string) 'Delimiter separating items in sStr

Returned value(s) (function only)

Other required declare statement(s). Include in your program. Copy/Paste if needed.

include "StringLists.def"

MapBasic Code. Copy/Paste if needed.

sub ArrayToString (
   sList() as string,
   sStr as string,
   byval sToken as string)

dim i as smallint

   sStr = sList(1)
   for i = 2 to UBound(sList)
      sStr = sStr + sToken + sList(i)
   next

end sub

Availability for download

StringLists.zip

Example

include "StringLists.def"

dim sList(3), sListMI as string

   sList(1) = "Red"
   sList(2) = "Green"
   sList(3) = "Blue"

   call ArrayToString (sList, sListMI, ";")

   'sListMI now contains "Red;Green;Blue"

Comments

See also

StringToArray( )