/ Snippet Library - View Code

Snippet details

ID: 447

Viewed: 1268

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

A replacement for the Split function under VB4 and VB5

Note that the return value is a Variant that contains
an array of strings

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllFunction Split(ByVal Text As String, Optional ByVal Delimiter As String = _ " ", Optional ByVal Limit As Long = -1, Optional CompareMethod As _ VbCompareMethod = vbBinaryCompare) As Variant ReDim res(0 To 100) As String Dim resCount As Long Dim length As Long Dim startIndex As Long Dim endIndex As Long length = Len(Text) startIndex = 1 Do While startIndex < length And resCount <> Limit ' get the next delimiter endIndex = InStr(startIndex, Text, Delimiter, CompareMethod) If endIndex = 0 Then endIndex = length + 1 ' make room in the array, if necessary If resCount > UBound(res) Then ReDim Preserve res(0 To resCount + 99) As String End If ' store the new element res(resCount) = Mid$(Text, startIndex, endIndex - startIndex) resCount = resCount + 1 startIndex = endIndex + Len(Delimiter) Loop ' trim unused values ReDim Preserve res(0 To resCount - 1) As String ' return the array inside a Variant Split = res() End Function

No Reviews to show