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

[NTB] Browse Like a Pro

Expand Messages
  • R.S.
    Hi All, The following Clip will let you browse the Web without having to leave your Browser in order to take notes. Everything you copy is pasted into the
    Message 1 of 1 , Nov 23, 1998
    • 0 Attachment
      Hi All,

      The following Clip will let you browse the Web without
      having to leave your Browser in order to take notes.

      Everything you copy is pasted into the Current Document in NoteTab, be it an Outline or a text document. There have been other Clips around that do the same. What's different here is that it creates a new entry, preceded by a line separator with a Date-Stamp, for every item you copy, and if the Document is an OTL, you will be prompted, instead, to type a Topic Title for the entry. URLs that you copy are always pasted as part of the last entry, or if you are in an OTL, inside the last Topic. You can enter as many URLs as you want, just remember they must go after the text that describes them.

      At every entry, the file is automatically saved, so you
      don't have to worry about loosing your notes in case of a computer failure.



      To use it, just double-click on the "SET-OnClipboardChange" and it'll be active, having its name changed to "OnClipboardChange".

      [Caution: this Clip contains long lines which may be formatted by your email software. Be sure to delete any Hard Returns it may have added to the code.]


      ;************* Start Clip: ****************

      Internet Assistant
      ; Internet Assistant v1 -- 11/20/1998 -- is
      ; © copyright 1998 by RS at rcsilv@...--
      ; All Rights Reserved --.
      ; Free for personal use at home.
      ; This code is part of the upcoming release of
      ; PowerTools and is released to the NoteTab community as an
      ; advance, being Free for personal use at home.
      ; If you intend to use it at work, either for
      ; profit or not, you should purchase a licensed
      ; version of PowerTools, which will be
      ; available in the first quarter of 1999.




      ^!If ^$StrCopy(^$GetAppTitle$;1;7)$="NoteTab" ToggleOFF
      ^!If ^%flgOnClipboard%=1 IsActive

      :ToggleON
      ^!Set CurrDoc=^$GetDocIndex$

      ^!Set i=0
      ^!set i2=^$GetDocCount$
      :loop
      ^!If ^%i%>^%i2% Next4
      ^!Inc i
      ^!If ^$StrPos("[Clips]";^$GetDocName(^%i%)$;true)$=0 Next3 Else Next
      ^!StatusShow Clipboard "Clipboard Capturing ON"
      ^!Delay 7
      ^!StatusClose
      ^!Set ClipbookOpen=1
      ^!Goto Next4

      :Next3
      ^!Goto loop

      :Next4
      ^!SetScreenUpdate OFF
      ^!Keyboard Ctrl+Shift+E Ctrl+Home
      ^!DeleteLine
      ^!InsertText "OnClipboardChange^%nl%"
      ^!If ^%ClipbookOpen%=1 Skip
      ^!Keyboard Ctrl+Shift+E
      ^!Keyboard Shift+F4 Shift+F4 Shift+F4 Up Down
      ^!Set flgOnClipboard=1
      ^!SetDocIndex ^%CurrDoc%
      ^!SetScreenUpdate ON
      ^!Goto End

      :IsActive
      ^!Set CurrDoc=^$GetDocIndex$
      ^!IfFalse ^$IsUrl(^$GetClipboard$)$ Next2
      ^!InsertText ^p^$GetClipboard$^p
      ^!Goto End

      :Next2
      ^!ActivateApp
      ^!Set Text=^$GetClipboard$
      ^!If ^$IsOutlineDoc$=0 Doc

      ^!JUMP:Text_Start
      ^!set x=^$GetLine$


      ^!AddHeading "^?{Title=^%x%}"

      ^!JUMP:Text_End

      ^!InsertText:^p
      ^!Keyboard:F5
      ^!InsertText:^p
      ^!Goto Next1

      :Doc
      ^!JUMP:Text_End
      ^!InsertText:^p
      //*************************************************
      ^!InsertText:^p
      ^!Keyboard:F5
      ^!InsertText:^p

      :Next1
      ^!Paste
      ^!Save
      ^!MinimizeApp
      ^!Goto End

      :ToggleOFF
      ^!IfFalse ^%flgOnClipboard% ToggleON
      ^!SetScreenUpdate OFF
      ^!Keyboard Ctrl+Shift+E Ctrl+Home
      ^!DeleteLine
      ^!InsertText "Internet Assistant^%nl%"
      ^!Keyboard Ctrl+S
      ^!IfTrue ^%ClipbookOpen% Skip
      ^!Keyboard Ctrl+Shift+E
      ^!SetDocIndex ^%CurrDoc%
      ^!Keyboard Shift+F4 Up Down
      ;^!Set flgOnClipboard=0
      ^!SetScreenUpdate ON
      ^!ClearVariable flgOnClipboard
      ^!ClearVariable OldClipboardSize
      ^!ClearVariable ClipbookOpen
      ^!StatusShow Clipboard "Clipboard Capturing OFF"
      ^!Delay 7
      ^!StatusClose

      ^!Goto End


      :End

      ;************** End Clip ****************


      Enjoy it!


      (See also my posting on Toggle Clips, where you can find a Component which encapsulates the technique used in this Clip to switch the Clip's state ON and OFF.)



      Regards,


      RS
      ------------------------------------------------------------------------
      Free Web-based e-mail groups -- http://www.eGroups.com
    Your message has been successfully submitted and would be delivered to recipients shortly.