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

Re: [Clip] Fwd: How alphabetize favorites by filename, not path name?

Expand Messages
  • hsavage
    ... kwc, Here s my attempt at sorting FVR content by filename. You might want to check for wrapped lines. Copy between the dashed lines. ... H= Fvr - Sort
    Message 1 of 4 , Sep 24, 2007
    • 0 Attachment
      Sheri wrote:
      > --- In notetab@yahoogroups.com, "ken winston caine" <naturedoc@...>
      wrote:
      >
      > Hi:
      >
      > I need to alphabetize my fvr. file by file name, but the clips I'v
      > tried seem only to alphabetize by full path name.
      >
      > Is there some way to do this?
      >
      > Thanks,
      > kwc

      kwc,

      Here's my attempt at sorting 'FVR' content by filename. You might want
      to check for wrapped lines.

      Copy between the dashed lines.
      ----------------------------------------
      H="Fvr - Sort Content by Filename"
      ; • Modified-Updated~Created_20070924
      ; • hrs ø hsavage·pobox·com_07:35:34p
      ;^!ClearVariables
      ^!Set %fvr_idx%=^$GetExpandedName(C:\Documents and
      Settings\User\Desktop\emdoc.emd)$
      ^!SetScreenUpdate 0
      ^!SetListDelimiter |
      ^!Set %fvrsort%=^$GetFiles(^$GetFavoritePath$;*.fvr;;unsorted)$
      ^!Set %fvrsort%=^$StrReplace("^$GetFavoritePath$";"";"^%fvrsort%";0;0)$
      ^!Set %tosort%=^?{(H=11)Pick Favorite To Sort==^%fvrsort%}
      ^!Menu File/New
      ^!InsertText ^$StrTrim("^$GetFileText(^$GetFavoritePath$^%tosort%)$")$^%nL%
      ^!Set %loop%=0
      :LOOP
      ^!Inc %loop%
      ^!Jump ^%loop%
      ^!InsertText ^$GetFileName(^$GetLine$±)$
      ^!If ^%loop% < ^$GetTextLineCount$ LOOP
      ^!Select ALL
      ^!InsertText ^$StrSort("^$GetSelection$";0;1;1)$
      ^!Replace ^.+± >> "" WRSA
      ^!Save As ^$GetFavoritePath$^%tosort%
      ^!Close
      ^!SetDocIndex ^$GetDocIndex(^%fvr_idx%)$
      ^!Refresh
      ----------------------------------------


      ·············································
      ºvº SL-09-191 -created- 2007.09.24 - 18.20.10

      "Chaos, Panic, & Disorder -"
      "My work here is done."
      ¤ ø ¤ hrs ø hsavage@...
    Your message has been successfully submitted and would be delivered to recipients shortly.