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

[Clip] Format Directory (.?lb)

Expand Messages
  • Jody
    Hi Clippers, This is a Clip that will format all your Clipbook Libraries leaving a blank line at the end of every Clip. I ve tested it a number of times and
    Message 1 of 1 , Oct 29, 1999
      Hi Clippers,

      This is a Clip that will format all your Clipbook Libraries
      leaving a blank line at the end of every Clip. I've tested it a
      number of times and tested my Clips afterwards. I highly suggest
      that you make backups before running it and do not delete the
      backups till you are sure nothing got corrupted.

      I did 81 Libraries totaling 2.83MB with 8174 Clips in roughly 25
      seconds in NotePro. I left all the Libraries I had loaded,
      loaded, even the one with the Clip. <g> I added my FarClip
      extension in as well. The format to add another extension is:

      ^!Set %FullPath%=^$GetFileFirst(^%Folder%;*.?lb;*.fcp;Type)$

      Change *.fcp to whatever you use if you have them and want to do
      it. Oh, it's The Librarian compliant, or Lib if you renamed it
      the same as me. <g> Sorting by Type is broke, but I put it in
      anyway for when it gets fixed. It is the last field in the
      line above which is also in the Clip below and what you might
      want to edit. Nite...

      <--- Copy below this line --->
      H=Format Directory (.?lb)
      ; 10/29/1999, Sojourner@..., jody

      ^!ClearVariables
      ^!Set %Folder%=^?{(T=D)Full path=^$GetLibraryPath$}
      ^!Set %FullPath%=^$GetFileFirst(^%Folder%;*.?lb;Type)$
      ^!Delay 1
      ^!SetHintInfo Working...
      ^!SetScreenUpdate Off

      :Loop
      ^!IfTrue ^$IsEmpty(^%FullPath%)$ Close
      ^!Append %FileList%=^%FullPath%^%nl%
      ^!StatusShow ^$GetFileName(^%FullPath%)$
      ^!Open "^%FullPath%"

      ^!Jump Doc_End
      ^!InsertText ^%nl%
      ^!Replace "^p" >> "" SB
      ^!IfTrue ^$IsEmpty(^$GetLine$)$ Skip_-1 else Next
      ^!InsertText ^%nl%
      ^!Replace "^p^pH="" >> "^p^p^pH="" WAS
      ^!Replace "^p^p^p^pH="" >> "^p^p^pH="" WAS
      ^!IfError Next else Skip_-1
      ^!Jump 1
      ^!Replace "^p^p^pH="" >> "^p^pH="" S
      ^!Close Save

      ^!Set %FullPath%=^$GetFileNext$
      ^!Goto Loop

      :Close
      ^!StatusClose
      ^!CloseFileFind
      ^!Info [L]The following files were formatted:^p^p^%FileList%

      <--- Copy above this line, right --->
      <--- click over the Clipbook and --->
      <--- choose "Add from Clipboard" --->

      Happy Clip'n!
      Jody

      http://www.sureword.com/notetab

      The NoteTab Clip List...
      mailto:Ntb-Clips-Subscribe@...
      mailto:Ntb-Clips-UnSubscribe@...
    Your message has been successfully submitted and would be delivered to recipients shortly.