Eliminating Duplicate Words in a Phrase

[khurram]

I am trying to eliminate duplicate words in a phrase. For example:

Before: Microsoft Word Step By Step
After: Microsoft Word Step By

Any suggestions?
Khurram

 

[tlhawkins]

HI Khurram,

You got me curious so I had to do it.

<CFSet LX=0>
<CFSET X=1>
<CFSET OFFset=1>
<CFSET Limit=3>

<CFSET RemoveFrom=&quot; this sentence repeats this sentence repeats&quot;>

<CFSET Limit = #ListLen(RemoveFrom,&quot; &quot;)# >

<CFLOOP Condition = &quot; X LTE Limit &quot;>
  <CFSET LX = #Listgetat(RemoveFrom,X,&quot; &quot;)# >
  <CFSET Offset= #Find(LX,RemoveFrom,1)#>
  <CFLOOP Condition = &quot; Offset Is not 0 &quot;>
    <CFSET Offset= #Find(LX,RemoveFrom,Offset+Len(LX)-1)#>
    <CFIF Offset IS Not 0>
      <CFSET RemoveFrom = #RemoveChars(RemoveFrom,Offset,Len(LX))#> 
      <CFIF X GT 1><CFSET X = #X# -1></CFIF>
    </CFIF>
  </CFLOOP>
  <CFSET Limit = #ListLen(RemoveFrom,&quot; &quot;)# > 
  <CFSET X = #X#+1>
</CFLOOP>

<CFOUTPUT> RemoveFrom# </CFOUTPUT>
[code]
Hope it helps.  I'm going to have to file this one under silly scripts, I'm sure I'll need it some day.  :)

Have Fun.

 

[khurram]

Thanks. It worked like a charm.