Object Reference

Classes
Command Interface
- xf_Command
External
- xf_External_VB6_32bit
- xf_External_VB7_32_64bit
General
System Core
System Library

xf_StringCaseInsensitiveString Functions

Public Function SplitMultiDelim (
s As String,
RemoveEmptyResults As Boolean,
PrependDelimToResults As Boolean,
ParamArray Delims() As Variant
) As String()

Split the string into a (zero based) array like the builtin Split() function, but use a list of delimiters and split on any one of them. Useful for parsing expressions.

s as String

The string to split

RemoveEmptyResults as Boolean

Don't add empty elements to the array (if the string is empty, the array will be memberless)

PrependDelimToResults as Boolean

Add the delimiter back to the front of the array element (so we can tell which delimiter was used)

ParamArray Delims() as Variant

The list of splitting delimiters

Call Template:

Dim s() As String

s = xf.Str.SplitMultiDelim(s, RemoveEmptyResults, PrependDelimToResults, Delims)

Example 1:

Dim m_arr() As String
m_arr = xf.str.SplitMultiDelim("base + buttonwidth / 1cm", False, True, "+", "-", "*", "/")   => m_arr(0) = "base", m_arr(1) = "+ buttonwidth", m_arr(2) = "/ 1cm"
m_arr = xf.str.SplitMultiDelim("base + buttonwidth / 1cm", False, False, "+", "-", "*", "/")   => m_arr(0) = "base", m_arr(1) = "buttonwidth", m_arr(2) = "1cm"