Loading ...
Sorry, an error occurred while loading the content.

3867[NTB] Re: Duplicate clip?

Expand Messages
  • Jody
    Feb 2, 1999
      Hi Ev,

      >Is there a clip that will search out duplicates in a list
      >(for example, and e-mail list?)
      >just ""show me the dupes"

      This is just a basic one that will show dups. Your eMail
      addresses must each be on one line.

      H=Check4Dups
      ^!SetWizardTitle Find Duplicates
      ^!Set %Save%=Dups^%nl%
      ^!Jump Doc_End
      ^!InsertText ^p^p
      ^!Jump 1

      :Start
      ^!Select Eol
      ^!Set %Row%=^$GetRow$
      ^!Set %Data%=^$GetSelection$

      :Find
      ^!Find "^%Data%" IS
      ^!IfError DoNext
      ^!Jump +1
      ^!Append %Save%=^%Data%^%nl%
      ^!Inc %Row%
      ^!Jump ^%Row%
      ^!If "^$GetRow$" = "^$GetLineCount$" Info
      ^!GoTo Start

      :DoNext
      ^!Jump +1
      ^!GoTo Start

      :Info

      :EndBreak
      ^!IfTrue ^$GetRow$ End
      ^!If ^$IsEmpty(^$GetLine$)$ = 0 InsEnd
      ^!Replace "^p" >> "" SB
      ^!Goto EndBreak

      :InsEnd
      ^!InsertText ^p
      ^!Jump 1

      ^!Info [L]^%Save%

      Happy NoteTabbin',
      Jody Adair
      http://www.mindspring.com/~kjb1611/notetab/notetab.htm

      ------------------------------------------------------------------------
      eGroup home: http://www.eGroups.com/list/notetab
      Free Web-based e-mail groups by eGroups.com
    • Show all 17 messages in this topic