Eliminate duplicate words from string
Hi,
Am Sun, 22 Nov 2020 01:03:30 -0800 (PST) schrieb Tatsujin:
If I have a string of words, such as:
sWords = "person person woman man camera TV TV person man man"
What is an efficient way to remove duplicate words? The variable sWords should contain "person woman man camera TV".
try:
Sub Test()
Dim sWords As String
Dim myDic As Object
Dim varWords As Variant, varTmp As Variant
Dim i As Integer
sWords = "person person woman man camera TV TV person man man"
varWords = Split(sWords, " ")
Set myDic = CreateObject("scripting.dictionary")
For i = LBound(varWords) To UBound(varWords)
myDic(varWords(i)) = varWords(i)
Next i
varTmp = myDic.items
sWords = Join(varTmp, " ")
End Sub
Regards
Claus B.
--
Windows10
Office 2016
|