Posted By

joseamirandavelez on 06/09/12

Tagged

Versions (?)

Last Edited at 06/09/12 08:31am

Statistics

Viewed 600 times

Favorited by 1 user(s)

Related snippets

Alternative Split Function

/ Published in: Visual Basic

Found in the internet. By default, it splits using all the characters in CHARS. Useful to get a list of words in a string.

Highlighted TextExpand

Public Function Split(ByVal InputText As String, Optional ByVal Delimiter As String) As Variant

' This function splits the sentence in InputText into
' words and returns a string array of the words. Each
' element of the array contains one word.

' This constant contains punctuation and characters
    ' that should be filtered from the input string.
    Const CHARS = ".!?,;:""'()[]{}|="
    Dim strReplacedText As String
    Dim intIndex As Integer

' Replace tab characters with space characters.
    strReplacedText = Trim(Replace(InputText, _
         vbTab, " "))

' Filter all specified characters from the string.
    For intIndex = 1 To Len(CHARS)
        strReplacedText = Trim(Replace(strReplacedText, _
            Mid(CHARS, intIndex, 1), " "))
    Next intIndex

' Loop until all consecutive space characters are
    ' replaced by a single space character.
    Do While InStr(strReplacedText, "  ")
        strReplacedText = Replace(strReplacedText, _
            "  ", " ")
    Loop

' Split the sentence into an array of words and return
    ' the array. If a delimiter is specified, use it.
    'MsgBox "String:" & strReplacedText
    If Len(Delimiter) = 0 Then
        Split = VBA.Split(strReplacedText)
    Else
        Split = VBA.Split(strReplacedText, Delimiter)
    End If
End Function

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.