Home » Forums » Open Source Learning Center » Question and Answer

Extract Nth Word from a String

Vishesh's picture
Submitted by Vishesh on 19 July, 2010 - 05:30
Here's how to Extract the Nth Word from a String 
Function GetNthWord(strStringFrom As String, strSplitCharacter As String, intExtractWordNumber As Integer) As String
    On Error Resume Next
    GetNthWord = VBA.split(strStringFrom, strSplitCharacter)(intExtractWordNumber - 1)
    If Err.Number <> 0 Then
        GetNthWord = ""
    End If
    On Error GoTo 0
End Function
 
Sub ExecuteNthWord()
    MsgBox GetNthWord("Hi:Hello:Nick", ":", 2)
End Sub
‹ Multiple Match, Multiple Arrays, IFs, and Counts get file attributes ›
»
JPH's picture

Extract Nth Word from String

Submitted by JPH on 28 July, 2010 - 14:05.

Hi,

Nice, works like a treat.

Is it an answer or do you have a question? ;-)

Grtnx,

JPH

»