Function to remove duplicate words in a single string

[DRH192]

Hello everyone,

Does anybody have a good function written that will allow a string to be passed to it and return the same string but with any duplicating words removed to leave just the first occurance of the word?

I.e. if I passed in "I need need some help" it will return "I need some help"

Many Thanks

 

[Golom]

Function RemoveDupWords(myStr As String) As String
Dim s() As String
Dim n As Integer
Dim r As String

If Len(myStr) = 0 Then Exit Function

s = Split(Replace(myStr, "  ", " "), " ")

r = s(0)

For n = 1 To UBound(s)
   If s(n - 1) <> s(n) Then
      r = r & s(n)
   End If
Next

RemoveDupWords = r

End Function

 

[CautionMP]

Golom,
Your code dropped the spaces between the words.

Function RemoveDupWords2(myStr As String) As String
Dim s() As String
Dim n As Integer

If Len(myStr) = 0 Then Exit Function

s = Split(myStr, " ")

For n = 1 To UBound(s)
   If s(n - 1) = s(n) Then
      s(n) = ""
   End If
Next

RemoveDupWords2 = Replace(Join(s, " "), "  ", " ")

End Function

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[Golom]

CautionMP

You're right! ... Too early in the morning I guess.
Thanks for spotting that.