Home Library Learn Downloads Support Community
Sign in | United States - English | |
15 out of 21 rated this helpful - Rate this topic

Split Function

Updated: September 2009

Returns a zero-based, one-dimensional array containing a specified number of substrings.

Copy 

                      Split(expression[, delimiter[, count[, compare]]])
expression

Required. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data.

delimiter

Optional. String used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.

count

Optional. Number of substrings to be returned; -1 indicates that all substrings are returned. If omitted, all substrings are returned.

compare

Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values. If omitted, a binary comparison is performed.

The compare argument can have the following values:

Constant

Value

Description

vbBinaryCompare

0

Perform a binary comparison.

vbTextCompare

1

Perform a textual comparison.

The following example uses the Split function to fill an array from a string that uses "|" as a delimiter.

Copy 
Dim MyString, MyArray, i
MyString = "VBScript|is|fun!"
MyArray = Split(MyString, "|", -1, 1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".

For i = 0 to UBound(MyArray)
   MsgBox (MyArray(i))
Next

Date

History

Reason

September 2009

Added information about the count and compare arguments.

Customer feedback.

April 2009

Modified description for delimiter argument.

Customer feedback.

March 2009

Modified example.

Information enhancement.

Did you find this helpful?
(1500 characters remaining)
Community Content Add
Annotations FAQ
Example for WSH

Option Explicit

Dim sFutureArray, MyArray, x, sText

sFutureArray ="Some day this example will look boring to me"

MyArray = Split (sFutureArray, " ", -1, 1)
sText = "The array holds " & UBound (MyArray) - LBound(MyArray) + 1 & " values. The values are the following:" & VBlf
For x = LBound(MyArray) to UBound (MyArray)
 sText = sText & "MyArray(" & x & ")" & VBTab & MyArray(x) & VBlf
Next
WScript.Echo sText
History
How many characters are allowed for expression?
How many characters are allowed for

expression? I got problems using 1024 and even 500 Characters.

History