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

sort outline topics descending

Expand Messages
  • Pat(kitPatH)
    Morning all. About two years ago, melchoir posted a clip to sort outline topics -- in descending order. The clip works on small outlines. The clip won t work
    Message 1 of 4 , Jun 2, 2008
      Morning all.
      About two years ago, melchoir posted a clip to sort outline topics -- in
      descending order. The clip works on small outlines. The clip won't
      work on an outline I have that currently has 84 topics (including title heading).
      Sample of the topics in my outline are below the clip.

      Is there a way to increase number of lines sorted in this clip?
      Pat


      ---[beg]---
      OTLSORT-DESCENDING
      ;melchior prisi <mprisi@...> 2006
      ;see http://tech.groups.yahoo.com/group/ntb-clips/message/15537
      ^!sethintinfo works
      ^!setscreenupdate off
      ^!iftrue ^$isoutlinedoc(^##)$ next else skip_2
      ^!set %file%=^##
      ^!goto skip_1
      ^!set %file%=^?{(t=o;f="otl file|*.otl")FILE=^##}
      ^!close ^%file% save
      ^!setlistdelimiter ^p
      ^!setarray %text%=^$getfiletext(^%file%)$
      ^!set %text1%=^%empty%
      ^!set %text%=^$strreplace("^p^pH=";"‡†‡";"^%text%";n;n)$
      ^!set %text%=^$strreplace("^p";"ÿ";"^%text%";n;n)$
      ^!set %text%=^$strreplace("‡†‡";"^pH=";"^%text%";n;n)$
      ^!set %text%=^$strsort("^%text%";n;n;n)$
      ^!set %text%=^$strreplace("^p";"^p^p";"^%text%";n;n)$
      ^!set %text%=^$strreplace("ÿ";"^p";"^%text%";n;n)$
      ^!set %text%== V4 Outline MultiLine NoSorting TabWidth=30^%nl%^%nl%^%text%
      ^!set %ofile%=^$getpath(^%file%)$^$getname(^%file%)$_resort^$getext(^%file%)$
      ^!texttofile "^%ofile%" ^%text%
      ^!^%file%
      ^!delay 3
      ^!^%ofile%
      ---[end]---


      sample headings
      2002-01 (08)
      2002-02 (06)
      2002-03 (02)
      2002-04 (01)
      2002-05 (01)
      2002-06 (03)
      2002-07 (05)
      2002-08 (08)
      2002-09 (33)
      2002-10 (07)
      2002-11 (21)
      2002-12 (36)
      2003-01 (57)
      2003-02 (12)
      2003-03 (14)
      2003-04 (apr) (25)
      2003-05 (may) (16)
      2003-06 (jun) (25)
      2003-07 (jul) (29)
      2003-08 (aug) (24)
      2003-09 (sep) (27)
      2003-10 (oct) (29)
      2003-11 (nov) (23)
    • Dave
      Hi I asume you can not right click and then sort on your headings ??? THANKYOU DAVE M ... From: Pat(kitPatH) To:
      Message 2 of 4 , Jun 2, 2008
        Hi
        I asume you can not right click and then sort on your headings ???
        THANKYOU DAVE M

        ----- Original Message -----
        From: "Pat(kitPatH)" <kitpath@...>
        To: <ntb-clips@yahoogroups.com>
        Sent: Monday, June 02, 2008 11:32 PM
        Subject: [Clip] sort outline topics descending


        > Morning all.
        > About two years ago, melchoir posted a clip to sort outline topics -- in
        > descending order. The clip works on small outlines. The clip won't
        > work on an outline I have that currently has 84 topics (including title
        > heading).
        > Sample of the topics in my outline are below the clip.
        >
        > Is there a way to increase number of lines sorted in this clip?
        > Pat
        >
        >
        > ---[beg]---
        > OTLSORT-DESCENDING
        > ;melchior prisi <mprisi@...> 2006
        > ;see http://tech.groups.yahoo.com/group/ntb-clips/message/15537
        > ^!sethintinfo works
        > ^!setscreenupdate off
        > ^!iftrue ^$isoutlinedoc(^##)$ next else skip_2
        > ^!set %file%=^##
        > ^!goto skip_1
        > ^!set %file%=^?{(t=o;f="otl file|*.otl")FILE=^##}
        > ^!close ^%file% save
        > ^!setlistdelimiter ^p
        > ^!setarray %text%=^$getfiletext(^%file%)$
        > ^!set %text1%=^%empty%
        > ^!set %text%=^$strreplace("^p^pH=";"???";"^%text%";n;n)$
        > ^!set %text%=^$strreplace("^p";"ÿ";"^%text%";n;n)$
        > ^!set %text%=^$strreplace("???";"^pH=";"^%text%";n;n)$
        > ^!set %text%=^$strsort("^%text%";n;n;n)$
        > ^!set %text%=^$strreplace("^p";"^p^p";"^%text%";n;n)$
        > ^!set %text%=^$strreplace("ÿ";"^p";"^%text%";n;n)$
        > ^!set %text%== V4 Outline MultiLine NoSorting TabWidth=30^%nl%^%nl%^%text%
        > ^!set
        > %ofile%=^$getpath(^%file%)$^$getname(^%file%)$_resort^$getext(^%file%)$
        > ^!texttofile "^%ofile%" ^%text%
        > ^!^%file%
        > ^!delay 3
        > ^!^%ofile%
        > ---[end]---
        >
        >
        > sample headings
        > 2002-01 (08)
        > 2002-02 (06)
        > 2002-03 (02)
        > 2002-04 (01)
        > 2002-05 (01)
        > 2002-06 (03)
        > 2002-07 (05)
        > 2002-08 (08)
        > 2002-09 (33)
        > 2002-10 (07)
        > 2002-11 (21)
        > 2002-12 (36)
        > 2003-01 (57)
        > 2003-02 (12)
        > 2003-03 (14)
        > 2003-04 (apr) (25)
        > 2003-05 (may) (16)
        > 2003-06 (jun) (25)
        > 2003-07 (jul) (29)
        > 2003-08 (aug) (24)
        > 2003-09 (sep) (27)
        > 2003-10 (oct) (29)
        > 2003-11 (nov) (23)
        >
        >
        >
        > ------------------------------------
        >
        > Fookes Software: http://www.fookes.com/
        > NoteTab website: http://www.notetab.com/
        > NoteTab Discussion Lists: http://www.notetab.com/groups.php
        >
        > ***
        > Yahoo! Groups Links
        >
        >
        >
      • Sheri
        ... The clip had some missing quotations and commands, which once added, it works to to reverse sort NoteTab s Glossary outline which has over 200 headings.
        Message 3 of 4 , Jun 2, 2008
          --- In ntb-clips@yahoogroups.com, "Pat(kitPatH)" <kitpath@...> wrote:
          >
          > Morning all.
          > About two years ago, melchoir posted a clip to sort outline
          > topics -- in descending order. The clip works on small outlines.
          > The clip won't work on an outline I have that currently has 84
          > topics (including title heading). Sample of the topics in my
          > outline are below the clip. Is there a way to increase number of
          > lines sorted in this clip? Pat

          The clip had some missing quotations and commands, which once added,
          it works to to reverse sort NoteTab's Glossary outline which has over
          200 headings. Hopefully it doesn't have other issues, I didn't really
          study it.

          ^!sethintinfo works
          ^!setscreenupdate off
          ^!iftrue ^$isoutlinedoc(^##)$ next else skip_2
          ^!set %file%=^##
          ^!goto skip_1
          ^!set %file%="^?{(t=o;f="otl file|*.otl")FILE=^##}"
          ^!close "^%file%" save
          ^!setlistdelimiter ^p
          ^!setarray %text%=^$getfiletext("^%file%")$
          ^!set %text1%=^%empty%
          ^!set %text%=^$strreplace("^p^pH=";"‡†‡";"^%text%";n;n)$
          ^!set %text%=^$strreplace("^p";"ÿ";"^%text%";n;n)$
          ^!set %text%=^$strreplace("‡†‡";"^pH=";"^%text%";n;n)$
          ^!set %text%=^$strsort("^%text%";n;n;n)$
          ^!set %text%=^$strreplace("^p";"^p^p";"^%text%";n;n)$
          ^!set %text%=^$strreplace("ÿ";"^p";"^%text%";n;n)$
          ^!set %text%== V4 Outline MultiLine NoSorting TabWidth=30^%nl%^%nl%^%text%
          ^!set
          %ofile%=^$getpath(^%file%)$^$getname(^%file%)$_resort^$getext(^%file%)$
          ^!texttofile "^%ofile%" ^%text%
          ^!Open "^%file%"
          ^!delay 3
          ^!Open "^%ofile%"
          ;end of clip
        • Pat
          ... Sheri, thank you and your eagle eyes! This works. I m always amazed at how quickly you spot the trouble. pat
          Message 4 of 4 , Jun 3, 2008
            --- In ntb-clips@yahoogroups.com, "Sheri" <silvermoonwoman@...> wrote:
            > The clip had some missing quotations and commands, which once added,
            > it works to to reverse sort NoteTab's Glossary outline which has over
            > 200 headings. Hopefully it doesn't have other issues, I didn't really
            > study it.

            Sheri, thank you and your eagle eyes! This works.
            I'm always amazed at how quickly you spot the
            trouble.

            pat
          Your message has been successfully submitted and would be delivered to recipients shortly.