<HTML><FONT FACE=arial,helvetica><FONT COLOR="#000000" FACE="Geneva" FAMILY="SANSSERIF" SIZE="2">Here's one more...<BR>
<BR>
Slower than the keys() version, but keeps the original order of the unique lines.<BR>
<BR>
</FONT><FONT COLOR="#000000" FACE="Courier New" FAMILY="FIXED" SIZE="2">function removeDoubles1 theLine<BR>
put theLines into temp<BR>
replace cr with tab&"x"&cr in theLines<BR>
put tab&"x"&cr after theLines<BR>
split theLines using cr and tab<BR>
put empty into output<BR>
repeat for each line l in temp<BR>
if (theLines[l] is "x") then <BR>
put l&cr after output<BR>
delete local theLines[l]<BR>
end if<BR>
end repeat<BR>
delete last char of output<BR>
return output<BR>
end removeDoubles<BR>
</FONT><FONT COLOR="#000000" FACE="Geneva" FAMILY="SANSSERIF" SIZE="2"><BR>
<BR>
------------------------------<BR>
Brian Yennie<BR>
Chief Technology Officer<BR>
QLD Learning, LLC<BR>
www.QLDLearning.com<BR>
<BR>
PH: (904)-997-0212<BR>
EMAIL: Yennie@aol.com<BR>
-------------------------------<BR>
</FONT><FONT COLOR="#000000" FACE="Geneva" FAMILY="SANSSERIF" SIZE="2"></FONT></HTML>