Search Tools Links Login

A Split Procedure

Splits a string into an array. If you send a " " it will split all the words into each array position.

Original Author: Paul Spiteri


The string to split.
The splitter, e.g. " "


Private Sub Command1_Click()
Dim SplitReturn As Variant
SplitReturn = Splitter(Text1.Text, " ")
MsgBox SplitReturn(1)
End Sub


Returns an array of the results.


Public Function Splitter(SplitString As String, SplitLetter As String) As Variant
ReDim SplitArray(1 To 1) As Variant
Dim TempLetter As String
Dim TempSplit As String
Dim i As Integer
Dim x As Integer
Dim StartPos As Integer

SplitString = SplitString & SplitLetter
For i = 1 To Len(SplitString)
  TempLetter = Mid(SplitString, i, Len(SplitLetter))
  If TempLetter = SplitLetter Then
   TempSplit = Mid(SplitString, (StartPos + 1), (i - StartPos) - 1)
   If TempSplit <> "" Then
    x = x + 1
    ReDim Preserve SplitArray(1 To x) As Variant
    SplitArray(x) = TempSplit
   End If
   StartPos = i
  End If
Next i
Splitter = SplitArray
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 92 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.