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

re: sort a/d in outlines

Expand Messages
  • Pat(kitPatH)
    brian asked for something like this. the message was posted on the general list. I added it to Jody s outline.clp it works -- but you need to be sure the name
    Message 1 of 1 , Sep 22, 2006
    View Source
    • 0 Attachment
      brian asked for something like this. the message was posted on the general list.
      I added it to Jody's outline.clp
      it works -- but you need to be sure the name of the outline - the top most heading -- will sort first -- or drag it back to the top position when done.

      pat


      ---
      OTLSORT-DESCENDING
      ;melchior prisi <mprisi@...>
      ^!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%
      ---
    Your message has been successfully submitted and would be delivered to recipients shortly.