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

Re: [NTB] Can't the tabs be sorted alphabetically?

Expand Messages
  • hsavage
    On 1/26/02 9:20 AM, hsavage wrote: To All, I began to have trouble with my last, latest edition, clips. Under some conditions with a pasteboard file involved
    Message 1 of 3 , Jan 27, 2002
    • 0 Attachment
      On 1/26/02 9:20 AM, hsavage wrote:

      To All,

      I began to have trouble with my last, latest edition, clips. Under some conditions with a pasteboard file involved the clips would malfunction. Hopefully I have that straightened out now.

      These are the original clipnames.

      H="ReOpen Alphabetically I"
      H="ReOpen Alphabetically II"

      names were changed to this,

      H="ReOpen files @ Alpha-pathname"
      H="ReOpen files @ Alpha-filename"

      Clips now have new names to reflect function.


      First clip sorts tabs via full '\pathname\filename'
      Second clip sorts tabs via '\filename' only
      If a pasteboard file is open it is always placed in Tab 1 regardless of sort type.

      Take care that long lines wrapped by email client are restored before trying to use the clips.

      If the lines commented by Semi-colon at the beginning of each clip are deleted that will probably leave only 1 long line to worry about. That would be the '^!Set %returnto%' line.

      hrs


      H="Sort OpenDocs @ \pathname\filename"
      ;_hrs_Updated~Created_1/27/02_9:33:25a_hsavage@...
      ; returns to cursor position in focused doc
      ; Sorts by pathname\filename. always puts pasteboard(if open) in tab 1
      ; Last update on 03-08-2000, Sojourner@..., jody
      ; Requires NoteTab version 4.6a
      ; http://www.sureword.com/notetab
      ^!SetHintInfo Reopening files...
      ^!ClearVariables
      ^!SetScreenUpdate 0
      ^!Set %returnto%=^$GetDocName$; %row%=^$GetRow$; %col%=^$GetCol$
      ^!Save All
      ^!Set %index%=0
      ^!Document FIRST
      :LOOP
      ^!Inc %index%
      ^!If ^%index% > ^$GetDocCount$ CLOSEALL
      ^!IfFalse ^$IsPasteBoard$ SKIP_1
      ^!Set %pasteboard%=^$GetDocName$
      ^!Set %FileName%=^$GetDocName$
      ^!Append %Files%=^%FileName%^%nl%
      ^!Document NEXT
      ^!Goto LOOP
      :CLOSEALL
      ^!Close All
      ^!SetListDelimiter ^p
      ^!Set %Files%=^$StrSort(^%Files%;0;1;0)$
      ^!SetArray %ReOpen%=^%Files%
      ^!Set %Count%=^%ReOpen0%
      ^!Set %Index%=0
      ^!If "^%pasteboard%" = "" SKIP_3
      ^!Open ^%pasteboard%
      ^!Toolbar Paste Board
      :REOPEN
      ^!Inc %Index%
      ^!If ^%Index% = ^%Count% End
      ^!Open ^%ReOpen^%Index%%
      ^!Goto ReOpen
      :END
      ^!Open ^%returnto%
      ^!SetView ^$Calc(^%Row%-15)$:1
      ^!SetCursor ^%Row%:^%Col%


      H="Sort OpenDocs @ \filename"
      ;_hrs_Updated~Created_1/27/02_9:33:34a_hsavage@...
      ; returns to cursor position in focused doc
      ; Sorts by \filename. always puts pasteboard(if open) in tab 1
      ; Last update on 03-08-2000, Sojourner@..., jody
      ; Requires NoteTab version 4.6a
      ; http://www.sureword.com/notetab
      ^!SetHintInfo Reopening files...
      ^!ClearVariables
      ^!SetScreenUpdate 0
      ^!Set %returnto%=^$GetDocName$; %row%=^$GetRow$; %col%=^$GetCol$
      ^!Save All
      ^!Set %index%=0
      ^!Document FIRST
      :LOOP
      ^!Inc %index%
      ^!If ^%index% > ^$GetDocCount$ CloseAll
      ^!IfFalse ^$IsPasteBoard$ SKIP_1
      ^!Set %pasteboard%=^$GetDocName$
      ^!Set %FileName%=^$GetFileName(^##)$|^$GetDocName$
      ^!Append %Files%=^%FileName%^%nl%
      ^!Document NEXT
      ^!Goto LOOP
      :CLOSEALL
      ^!Close All
      ^!SetListDelimiter ^p
      ^!Set %Files%=^$StrSort(^%Files%;0;1;0)$
      ^!SetArray %ReOpen%=^%Files%
      ^!Set %Count%=^%ReOpen0%
      ^!Set %Index%=0
      ^!If "^%pasteboard%" = "" SKIP_2
      ^!Open ^%pasteboard%
      ^!Toolbar Paste Board
      :REOPEN
      ^!Inc %Index%
      ^!If ^%Index% = ^%Count% End
      ^!Set %Delete%=^$StrPos(|;^%ReOpen^%Index%%;0)$
      ^!Set %Open%=^$StrDelete(^%ReOpen^%Index%%;1;^%Delete%)$
      ^!Open ^%Open%
      ^!Goto ReOpen
      :END
      ^!Open ^%returnto%
      ^!SetView ^$Calc(^%Row%-15)$:1
      ^!SetCursor ^%Row%:^%Col%
    Your message has been successfully submitted and would be delivered to recipients shortly.