Re: Eliminate doubles in a long list field

[Yennie]

Here's one more...

Slower than the keys() version, but keeps the original order of the unique lines.

function removeDoubles1 theLine
  put theLines into temp
  replace cr with tab&"x"&cr in theLines
  put tab&"x"&cr after theLines
  split theLines using cr and tab
  put empty into output
  repeat for each line l in temp
    if (theLines[l] is "x") then
      put l&cr after output
      delete local theLines[l]
    end if
  end repeat
  delete last char of output
  return output
end removeDoubles


------------------------------
Brian Yennie
Chief Technology Officer
QLD Learning, LLC
www.QLDLearning.com

PH: (904)-997-0212
EMAIL: [EMAIL PROTECTED]
-------------------------------