Example Applications clips

= V7 MultiLine TabWidth=30

H="All Services.txt"
;Set delay of approximately 100 milliseconds between each keystroke
^!KeyboardDelay 100
^!Keyboard CTRL+O #C:\Shared Documents\Music\All Services.txt # ENTER

H="Appointments"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Shell d:progra~1\smallu~1\appoin~1\cm.exe
^!FocusApp Chaos Manager*

H="Calculator"
^!FocusApp Calculator
^!IfError Next Else End
^!calc.exe

H="Character Map"
^!charmap.exe
^!Keyboard CTRL+V

H="Checkbox file types"

:ReStart
^!ClearVariable %Files%

; Gets path, file type, with option to add underscore for checkboxes
^!Set %Folder%=^?{(T=D)&Browse: full path, end in backslash=^$GetValue(DirStuff:Browse)$}; %Drop%=^?{&Drop down: full path, end in backslash=_This overrides Browse (Browse is easier)^=1|^$GetValue(DirStuff:Path1)$|^$GetValue(DirStuff:Path2)$|^$GetValue(DirStuff:Path3)$|^$GetValue(DirStuff:Path4)$|^$GetValue(DirStuff:Path5)$|^$GetValue(DirStuff:Path6)$|^$GetValue(DirStuff:Path7)$|^$GetValue(DirStuff:Path8)$|^$GetValue(DirStuff:Path9)$}; %Type%=^?{(H=10)File &Types, wildcards OK: *.txt or *.*htm* or *.bk2;*.txt=All files^=*.*|_ScrapBook and TreePad^=*.*bk*;*.hjt|ScrapBook only^=*.*bk*|TreePad only^=*.*hjt|Text Only^=*.txt|HTML only^=*.*htm*|Any of these^=*.*htm*;*.txt;*.bk*;*.hjt|Any^=*.*}; %Sort%=^?{&Sort order=Date|_Name|Size|Type|UnSorted}; %Rev%=^?{&Reverse sort order=Yes^=Rev|_No^=}; %us%=^?{&Check files automatically in file list to open=_Yes^=_|No^=}

^!SetHintInfo Working...
^!SetScreenUpdate Off

; Checks to see if Browse or Drop was used
^!IfTrue ^%Drop% Skip
^!Set %Folder%=^%Drop%

; Gets the first filename in the folder
^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Rev%^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ Error

; Gets the remaining files and appends them all to %Files%.
; The ^%us% is set in the first line and adds an underscore
; if you choose to have the boxes checked.
:Loop1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DoArray
^!Append %Files%=^%us%^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto Loop1

; Uses the files from above and makes a checkbox.
:DoArray

^!CloseFileFind
^!SetArray %EditList%=^?{(T=A;H=25)Pick=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

; Opens the files you checked.
:Loop2
^!SetScreenUpdate Off
^!Inc %Index%
^!If ^%Index% > ^%Count% End
^!Open ^%EditList^%Index%%
^!Goto Loop2

:Error
^!Skip There were no files of (^%Type%) in ^%Folder%. Try again?
^!Goto End
^!Goto ReStart

H="CLB from OTL"
^!Info [L] This changes an Outline file that can display a clipbook (allowing title-side editing) back to being an updated clipbook.

^!ClearVariables

^!Close ALL
^!Save AS d:\Program Files\NoteTab\Libraries\temp.tmp

^!SetWizardLabel Press OK for OTLs here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.otl
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Program Files\NoteTab\Libraries\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ END

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
;When it chooses a file the index position forces it out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Toolbar New Document
^!FocusDoc
^!InsertFile ^%EditList^%Index%%
^!GoTo LOOP2

:PROCEED
^!StatusShow Processing...
^!Jump DOC_START
^!InsertText ^%FilePathFull%
^!InsertText ^P
^!Keyboard UP HOME
^!Keyboard SHIFTDOWN END LEFT LEFT LEFT LEFT
^!Set %Filepath%=^$GetSelection$
^!DeleteLine
^!DeleteLine

^!InsertText = V5 MultiLine TabWidth=30
^!InsertText ^P
^!Set %OldExt%=^%Type%
^!Set %Type%=clb
^!Save As ^%FilePath%^%Type%
^!Close
^!SetScreenUpdate On
^!Open ^%FilePath%^%Type%
^!DestroyDoc ^%FilePath%^%OldExt%

H="CLB from OTL present"
^!Skip Is an Outline (.otl) file the active document (it should be displaying a clipbook)?
^!Clip "CLB from OTL"

^!ClearVariables

^!Set %FilePathFull%=^$GetDocName$
^!Close ALL
^!SetScreenUpdate OFF

^!Toolbar New Document
^!InsertText ^%FilePathFull%
^!InsertText ^P
^!Keyboard UP HOME
^!Keyboard SHIFTDOWN END LEFT LEFT LEFT LEFT
^!Set %Filepath%=^$GetSelection$
^!DeleteLine

^!InsertFile ^%FilePathFull%

^!Jump DOC_START
^!DeleteLine
^!InsertText = V5 MultiLine TabWidth=30
^!InsertText^P

^!Set %Type%=clb
^!Save As ^%FilePath%^%Type%
^!SetScreenUpdate On

H="CLB present to OTL"
^!Skip Is a clipbook (.otl) file the active document (it should be opened as a document)?
^!Clip "CLB to OTL"

^!ClearVariables

^!Set %FilePathFull%=^$GetDocName$
^!Close ALL
^!SetScreenUpdate OFF

^!Toolbar New Document
^!InsertText ^%FilePathFull%
^!InsertText ^P
^!Keyboard UP HOME
^!Keyboard SHIFTDOWN END LEFT LEFT LEFT LEFT
^!Set %Filepath%=^$GetSelection$
^!DeleteLine

^!Jump DOC_START
^!InsertFile ^%FilePathFull%

^!Jump DOC_START
^!InsertText = V4 Outline MultiLine NoSorting TabWidth=30
^!InsertText ^P^P

^!Set %Type%=otl
^!Save As ^%FilePath%^%Type%
^!Close
^!SetScreenUpdate On
^!Open ^%FilePath%^%Type%

H="CLB to OTL"
^!Info [L] This opens and converts a clipbook to become an outline file (for viewing and title-side editing).

^!ClearVariables

^!Close ALL
^!Save AS d:\Program Files\NoteTab\Libraries\temp.tmp

^!SetWizardLabel Press OK for OTLs here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.clb
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Program Files\NoteTab\Libraries\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ END

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
;When it chooses a file the index position forces it out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Open ^%EditList^%Index%%
^!GoTo LOOP2

^!InsertText = V4 Outline MultiLine NoSorting TabWidth=30
^!InsertText ^P^P
^!Set %Type%=otl
^!Save As ^%FilePath%^%Type%
^!Close
^!SetScreenUpdate On
^!Open ^%FilePath%^%Type%

H="Clipbooks open"
^!ClearVariables

^!Close ALL

^!Toolbar New Document
^!Save AS d:\Program Files\NoteTab\Libraries\temp.tmp

^!SetWizardLabel Press OK for CLIPS here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!Set %Type%=*.clb
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Program Files\NoteTab\Libraries\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ Error

:Loop1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DoArray
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto Loop1

:DoArray

^!CloseFileFind
^!SetArray %EditList%=^?{(T=A;H=25)Pick=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

; Opens the files checked.
:LOOP2
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Open ^%EditList^%Index%%
^!Goto LOOP2

:Error
^!Skip There were no files by the file type you search for (^%Type%) in ^%Folder%. Try again?
^!Goto PROCEED
^!Goto ReStart

:PROCEED

H="Clips Listed"
^!ClearVariables

^!Close ALL

^!Toolbar New Document
^!Save AS d:\Program Files\NoteTab\Libraries\temp.tmp

^!SetWizardLabel Press OK for CLIPS here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!SetScreenUpdate Off

^!Set %Type%=*.clb
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ Error

:Loop1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DoArray
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto Loop1

:DoArray

^!CloseFileFind
^!SetArray %EditList%=^?{(T=A;H=25)Pick=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

; Opens the files checked.
:LOOP2
^!StatusShow Getting Headers
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Open ^%EditList^%Index%%
^!Toolbar New Document
^%EditList^%Index%%
^!InsertText ^P^P
^!Document PREV
^!SetWordWrap OFF

:LOOPINSIDE1
^!Find H=" [DST]
^!IfError ENDINSIDE1
^!Keyboard HOME
^!Keyboard SHIFTDOWN END
^!Set %Gotit%=^$GetSelection$
^!Append %Transfer%=^%Gotit%^P
^!Keyboard SHIFTUP DOWN
^!Goto LOOPINSIDE1
:ENDINSIDE1

^!Document LAST
^!InsertText ^%Transfer%
^!ClearVariable %Transfer%

^!StatusShow Making presentable

:LOOPINSIDE2
^!Jump DOC_START
^!Replace "^P^P" >> "^P" [WAS]
^!IFError ENDINSIDE2
^!GoTo LOOPINSIDE2
:ENDINSIDE2

^!Document PREV
^!Close DISCARD
^!Goto LOOP2

:Error
^!Skip There were no ^%Type% files in ^%Folder%. Try again?
^!Goto PROCEED
^!Goto ReStart

:PROCEED

^!StatusClose
^!SetScreenUpdate On

H="Colour capture program"
^!Shell d:\progra~1\smartc~1\smartc~1.exe
^!SetHintInfo Going to a colour finder:
^!FocusApp SmartColor

H="CSV files recolumn"
^!Shell d:progra~1\smallu~1\csvdb\csvdb.exe

H="Diary entries"
^!Shell d:progra~1\smallu~1\thediary\thediary.exe

H="DzSoft Paste & Save"
^!Shell "C:\Program Files\Paste & Save\pnsave.exe"

H="Editpad"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Shell C:Program Files\Editpad\EditPadLite7.exe
^!SetHintInfo Going to editpad:
^!Delay 40
^!FocusApp *editpad
^!KeyBoard ALT+E V &5 ENTER

H="Editpad file this"
^!ClearVariables
^!Save
^!Set %ThisName%=^$GetDocName$
^!Set %OtherProg%=C:\Program Files\EditPad\EditPadLite7.exe

^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%OtherProg% ^%GoName%
^!FocusApp *editpad Lite

H="Editpad file this print"
^!ClearVariables
^!Save
^!Set %ThisName%=^$GetDocName$
^!Set %OtherProg%=C:\Program Files\EditPad\EditPadLite7.exe

^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%OtherProg% ^%GoName%
^!Delay 50
^!FocusApp *editpadlite
^!KeyBoard Alt+K &5 Alt+F P &5

^!Delay 50
^!Menu File/Exit

H="Email"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Set %subject%=^?{subject=}
^!mailto:^%To%?subject=^%subject%
^!SetHintInfo Sending to Email:
^!FocusApp "New*"

H="Email server view"
^!Shell d:progra~1\smallu~1\emailm~1\magic.exe

H="External encrypting"
^!Shell d:progra~1\smallu~1\encrypt\enckeep1.exe

H="File any into program any"
^!ClearVariables
^!Toolbar New Document
^!Save AS d:\Documents and Settings\Adrian\My Documents\My Writing\temp.tmp

^!SetWizardLabel Press OK for text and similar file or navigate
^!Set %Foldera%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Typea%=*.txt;*.htm*;*.otl;*.clb;*.csv; *.lwp
^!Set %Sorta%=Name

^!DestroyDoc d:\Documents and Settings\Adrian\My Documents\My Writing\temp.tmp
^!FocusDoc

^!Set %FullPatha%=^$GetFileFirst(^%Foldera%;"^%Typea%";^%Sorta%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPatha%")$ END

:LOOP1

^!IfTrue ^$IsEmpty(^%FullPatha%)$ DOARRAY
^!Append %Filesa%=^%FullPatha%|
^!Set %FullPatha%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY
^!StatusShow Click on the wanted filename...
^!Delay 10
^!StatusShow ...even if there is only one
^!Delay 10
^!StatusClose

^!CloseFileFind
^!SetWizardLabel *Highlight the choice* even if one only
^!SetArray %EditLista%=^?{(T=L;H=10)Choose=^%Filesa%}
^!Set %Counta%=^%EditLista0%
^!Set %Indexa%=0

:LOOP2
^!Inc %Indexa%
^!If ^%Indexa% > ^%Counta% TOPROG
^!Set %ThisName%=^%EditLista^%Indexa%%
^!GoTo LOOP2

:TOPROG

^!Toolbar New Document
^!Save AS d:\Program Files\temp.tmp

^!SetWizardLabel Press OK for program (.exe) or navigate
^!Set %Folderb%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...

^!SetScreenUpdate Off

^!Set %Typeb%=*.exe
^!Set %Sortb%=Name

^!DestroyDoc d:\Program Files\temp.tmp

^!Set %FullPathb%=^$GetFileFirst(^%Folderb%;"^%Typeb%";^%Sortb%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPathb%")$ END

:LOOP3

^!IfTrue ^$IsEmpty(^%FullPathb%)$ DOARRAY2
^!Append %Filesb%=^%FullPathb%|
^!Set %FullPathb%=^$GetFileNext$
^!Goto LOOP3

:DOARRAY2
^!StatusShow Click on the wanted .exe...
^!Delay 10
^!StatusShow ...even if there is only one
^!Delay 10
^!StatusClose

^!CloseFileFind
^!SetWizardLabel *Click on one* even if one only shows
^!SetArray %EditListb%=^?{(T=L;H=10)Choose=^%Filesb%}
^!Set %Countb%=^%EditListb0%
^!Set %Indexb%=0

:LOOP4
^!Inc %Indexb%
^!If ^%Indexb% > ^%Countb% DOIT
^!Set %OtherProg%=^%EditListb^%Indexb%%
^!GoTo LOOP4

:DOIT

^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Set %GoProg%=^$GetShort(^%OtherProg%)$
^!Shell ^%GoProg% ^%GoName%
^!FocusApp

H="File name DOS"
^!Info [L] Finds a file and gives its DOS name without opening it.

^!ClearVariables

^!Toolbar New Document
^!Save AS d:\Program Files\temp.tmp

^!SetWizardLabel Press OK for files here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.*
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Program Files\NoteTab\Libraries\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ END

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
;When it chooses a file the index position forces it out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Set %Name%=^%EditList^%Index%%
^!GoTo LOOP2

:PROCEED

^!Set %DosName%=^$GetShort(^%Name%)$
^!SetClipboard ^%DosName%
^!Info [C] The name^P^P^$GetClipboard$^P^Pis copied to the clipboard

H="File this into program any"
^!ClearVariables
^!Set %ThisName%=^$GetDocName$
^!Save AS d:\Program Files\temp.tmp

^!SetWizardLabel Press OK for program locating here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.exe
^!Set %Sort%=Name

^!DestroyDoc d:\Program Files\temp.tmp
^!FocusDoc

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ END

:LOOP1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Set %OtherProg%=^%EditList^%Index%%
^!GoTo LOOP2

:PROCEED
^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Set %GoProg%=^$GetShort(^%OtherProg%)$
^!Shell ^%GoProg% ^%GoName%

H="File this viewed"
^!ClearVariables
^!Set %ThisName%=^$GetDocName$
^!Set %OtherProg%="D:\Program Files\Small Utilities\textview\Textview.exe"

^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%OtherProg% ^%GoName%

H="Files viewing"
^!Shell D:\Program Files\Small Utilities\textview\Textview.exe
^!FocusApp

H="Files viewing text clean"
^!Set %ReDo%=^$StrFixLines("^$GetText$")$
^!Toolbar Select All
^!InsertText ^%ReDo%

H="Folder clipbooks"
^!Shell "^$GetLibraryPath$"

H="Folder this"
^!Shell "^?{(T=D)Enter folder name/ Use the button =^$GetExpandedName$}"

H="Folder Writing Manager"
;Executes application associated with the shortcut
^!Shell d:\windows\desktop\writin~1.lnk

H="French Characters"
^!Shell "C:\Program Files\FrenchAssistant\FrenchAssistant.exe"

H="Help File Maker"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Shell d:progra~1\smallu~1\shalom~1\shalom~1.exe
^!FocusApp Shalom Help Maker*

H="Irfan View"
^!shell d:\windows\startm~1\programs\pictur~1\irfanv~1.lnk

H="Irfan View file any image"
^!ClearVariables
^!Toolbar New Document
^!Save As d:\Documents\Shared Documents\Shared Pictures\temp.tmp

^!SetWizardLabel Press OK for text and similar file or navigate
^!Set %Foldera%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files
^!SetScreenUpdate Off

^!Set %Typea%=*.jpg;*.jpeg;*.gif;*.bmp;*.png;*.wmf
^!Set %Sorta%=Name

^!DestroyDoc d:\Documents\Shared Documents\Shared Pictures\temp.tmp
^!FocusDoc

^!Set %FullPatha%=^$GetFileFirst(^%Foldera%;"^%Typea%";^%Sorta%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPatha%")$ END

:LOOP1

^!IfTrue ^$IsEmpty(^%FullPatha%)$ DOARRAY
^!Append %Filesa%=^%FullPatha%|
^!Set %FullPatha%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY
^!StatusShow Click on the wanted filename...
^!Delay 10
^!StatusShow ...even if there is only one
^!Delay 10
^!StatusClose

^!CloseFileFind
^!SetWizardLabel *Highlight the choice* even if one only
^!SetArray %EditLista%=^?{(T=L;H=10)Choose=^%Filesa%}
^!Set %Counta%=^%EditLista0%
^!Set %Indexa%=0

:LOOP2
^!Inc %Indexa%
^!If ^%Indexa% > ^%Counta% TOPROG
^!Set %ThisName%=^%EditLista^%Indexa%%
^!GoTo LOOP2

:TOPROG

^!Set %OtherProg%=c:\progra~1\irfanv~1\i_view32.exe

^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%OtherProg% ^%GoName%

^!Delay 20
^!FocusApp *IrfanView
^!KeyBoard Alt+K &5 ENTER

:END

H="Irfanview BMP to JPG"
^!Clearvariables
^!Set %IrfanPath%=^$GetValue(CB2CBHome:IrfanPath)$
^!IfFileExist "^%IrfanPath%i_view32.exe" IrfanPathComplete
^!IfEmpty "^%IrfanPath%" Next Else Skip_2
^!Set %IrfanPath%="D:\Program Files\IrfanView\"
^!Set %IrfanPath%="^?{(T=D)Browse to the folder in which i_view32.exe (IrfanView) exists=^%IrfanPath%}"
;Save the Irfan location
^!SaveValue CB2CBHome:IrfanPath=^%IrfanPath%
:IrfanPathComplete
;Get the work path
^!Set %Irfanworkpath%=^$GetValue(RecipeClipsOptions:Irfanworkpath)$
^!Set %Irfanworkpath%="^?{(T=D)Browse to folder that contains the photos to be converted:=^%Irfanworkpath%}"
;Save the work path
^!SaveValue RecipeClipsOptions:Irfanworkpath=^%Irfanworkpath%
;Save and reload the .ini file
^!ProgIniSave
^!ProgIniLoad
;i_view32.exe c:\*.bmp /convert=d:\temp\*.jpg
;Works - retains originals
^!Shellwait "^%IrfanPath%i_view32" "^%Irfanworkpath%*.bmp" /convert="^%Irfanworkpath%*.jpg"
;^!Wait

H="Literary Machine"
^!Shell d:progra~1\litera~1\lm.exe

H="Lotus Wordpro"
^!Toolbar Copy All
^!Shell d:progra~1\kvlotus\kvlotus.exe

H="mdi Note Pad"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Shell d:progra~1\smallu~1\mdinot~1\mdipad.exe
^!SetHintInfo Going to mdipad:
^!FocusApp Untitled1

H="MS Word"
^!Toolbar Copy All
^!Shell d:progra~1\micros~1\office\winword.exe
^!FocusApp Microsoft Word*

H="MS Word doc grab"
^!FocusApp *Microsoft Word*
^!Delay 10
^!IfError GETPROG
^!KeyBoard Alt+K &5 CTRL+A &5 CTRL+C
^!Delay 10
^!FocusApp Note Tab Light*
^!Toolbar New Document
^!Menu Edit/Paste
^!GoTo FINALLY

:GETPROG
^!Clip "MS Word"
^!Info Press when Word document found

:FINALLY
^!FocusApp *Microsoft Word*
^!Delay 10
^!KeyBoard Alt+K &5 ALT+F &5 X
^!Delay 10
^!FocusApp Note Tab Light*

:END

H="MS Word file this"
^!ClearVariables
^!Save
^!Set %ThisName%=^$GetDocName$
^!Set %OtherProg%=c:progra~1\micros~1\office\winword.exe

^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%OtherProg% ^%GoName%

^!Delay 20
^!FocusApp *Microsoft Word*
^!KeyBoard Alt+K &5 Alt+V &5 P DOWN DOWN DOWN ENTER

^!Menu File/Exit

H="NoteTab Favourites list"
^!OpenAscii ^$GetFavoritePath$Favorites.fvr

H="NoteTab Favourites open"
^!Keyboard SHIFT+F2

H="Notetab files choice"
:Start

^!Set %curLib%=^$GetLibraryName$
:Wiz
^!SetWizardLabel "Select a file type."
^!SetListDelimiter |
^!Goto ^?{(H=20)==_Text files^=Text|Outline files^=Outline|Clip library files^=Library|Explore Libraries folder^=Explore|Edit the current Clipbook -- ^%curLib%^=Edit Clipbook|Notetab.ini|Favorites.fvr}
:Text
^!Keyboard CTRL+O #^$GetDocumentPath$# ENTER ALT+T #T#
^!Goto END
:Outline
^!Keyboard CTRL+O #^$GetDocumentPath$# ENTER ALT+T #O#
^!Goto END
:Library
^!Keyboard CTRL+O #^$GetLibraryPath$# ENTER ALT+T #L#
^!Goto END
:Explore
^!Shell "^$GetLibraryPath$"
^!Goto END
:Edit ClipBook
^!Open ^$GetLibraryPath$^%curLib%.clb
^!Goto END
:NoteTab.ini
^!OpenAscii ^$GetAppPath$NoteTab.ini
^!Goto END
:Favorites.fvr
^!OpenAscii ^$GetFavoritePath$Favorites.fvr
^!Goto END

H="OTL add file header"
^!Jump DOC_START
^!InsertText = V4 Outline MultiLine NoSorting TabWidth=30
^!InsertText ^P

H="OTL add topic header"
H="Message 001 Adrian"

H="OTL edit"
^!Close ALL
^!ClearVariables
^!Save AS d:\My Documents\temp.tmp

^!SetWizardLabel Press OK for OTLs here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.otl
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\My Documents\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ END

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Toolbar New Document
^!FocusDoc
^!InsertFile ^%EditList^%Index%%
^!GoTo LOOP2

:PROCEED
^!Save As ^%FilePathFull%

H="OTL present edit"
^!Skip Is an Outline (.otl) file the active document?
^!Clip "OTL Edit"

^!ClearVariables

^!Set %FilePathFull%=^$GetDocName$
^!Close ALL
^!SetScreenUpdate OFF

^!Toolbar New Document
^!InsertFile ^%FilePathFull%
^!Save As ^%FilePathFull%

H="OTL to HTML"
;Converts the current outline document into a web page

;If the current document is an outline, start the procedure. Otherwise ask whether to demonstrate the feature on the Readme.otl document, which is part of the NoteTab package
^!IfTrue ^$IsOutlineDoc$ Start ELSE Next
;Check if the Readme.otl document exists. If not, skip demonstration procedure and show error message
^!IfFileExist ^$GetAppPath$Readme.Otl Next ELSE ShowErrorMsg
^!Continue The current document is not an outline. Would you like to see a demonstration with the Readme.Otl file?
;Open the Readme.otl document
^!Open ^$GetAppPath$Readme.Otl
;If there was an error while trying to open it, show message and end procedure
^!IfError Next ELSE Start
^!Prompt Error: could not open "^$GetAppPath$Readme.Otl"

:Start
;Convert the outline file to HTML format
^!Toolbar Document to HTML
;Place the cursor at the start of the document
^!Jump Text_Start
;Offer user the choice to display the newly created web page in browser or end Clip
^!Goto ^?{What would you like to do now?==_View page in main browser^=Next|View page in second browser^=SecondBrowser|No preview^=End}
^!ToolBar View in Browser
^!Goto End

:SecondBrowser
^!ToolBar View Other Browser
^!Goto End

:ShowErrorMsg
^!Prompt Error: the current document is not an outline

H="OTL Topics to files"
:RESTART

^!ClearVariables
^!Save AS d:\My Documents\temp.tmp

^!SetWizardLabel Press OK for OTLs here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!SetScreenUpdate Off
^!Set %Type%=*.otl
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\My Documents\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ ERROR

^!StatusShow Finding files...

:LOOP1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto Loop1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=A;H=25)Pick=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
^!StatusShow Opening files...
^!Inc %Index%
^!If ^%Index% > ^%Count% END
^!Open ^%EditList^%Index%%

^!Toolbar New Document
^!InsertText ^%EditList^%Index%%
^!InsertText ^P^P
^!Document PREV

^!StatusShow Getting topics...
^!Set %tCount%=^$GetTopicCount$
^!Set %curTopic%=^$Calc(^$GetTopicIndex$-1)$
^!Clearvariable %TopicList%

:LOOPINSIDE
^!StatusShow Listing topics...
^!Inc %curTopic%
^!Set %LineText%=^$GetTopicName(^%curTopic%)$
^!Append %TopicList%=^%LineText%^%NL%
^!If ^%curTopic%>=^%tCount% Skip
^!Goto LOOPINSIDE
^!Document LAST
^!FocusDoc
^!InsertText ^%TopicList%
^!GoTo LOOP2

^!Goto END

:ERROR
^!Skip No files of (^%Type%) in ^%Folder%. Try again?
^!Goto END
^!Goto RESTART

^!SetScreenUpdate On
:END

H="OTL topics to HTMLs"
^!IfTrue ^$IsOutlineDoc$ START ELSE Next
;Check if the Readme.otl document exists. If not, skip demonstration procedure and show error message
^!IfFileExist ^$GetAppPath$Readme.otl OPENER

^!Open ^$GetAppPath$Readme.Otl
^!IfError Next ELSE START
^!Prompt Error: could not open "^$GetAppPath$Readme.Otl"

:START
^!SetScreenUpdate Off
^!ShowStatus Topics to Individual HTMLs
^!Set %OutlineName%=^$GetName("^##")$
^!Set %KeepOpen%=^?[Keep resulting HTML documents open?==_Yes|No]
^!Set %DocIndex%=^$GetDocIndex$
^!Set %TopicIndex%=0
^!Set %TopicCount%=^$GetTopicCount$
^!Set %KeepNameFormat%=^$GetNameFormat$
^!SetNameFormat ^$GetAppPath$^%OutlineName%%0.2d.html

:LOOPSTART
^!Inc %TopicIndex%
^!If ^%TopicIndex% > ^%TopicCount% EndClip
^!SetDocIndex ^%DocIndex%
^!SetTopicIndex ^%TopicIndex%
^!SetClipboard ^$GetText$
^!ToolBar Paste New
^!Toolbar Document to HTML
^!Jump Text_Start
^!Save AS ^##
^!IfTrue ^%KeepOpen% Skip
^!Close
^!GoTo LoopStart

:OPENER
^!ClearVariables
^!Save AS d:\My Documents\temp.tmp

^!SetWizardLabel Press OK for OTLs here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.otl
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\My Documents\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
^!IfTrue ^$IsEmpty("^%FullPath%")$ ERROR

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\My Documents\temp.tmp
^!GoTo LOOP1

:ERROR
^!StatusClose
^!Skip Error: no files there. Try again?
^!GoTo END
^!GoTo OPENER

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY
^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
^!Inc %Index%
^!If ^%Index% > ^%Count% START
^!Toolbar New Document
^!FocusDoc
^!Open ^%EditList^%Index%%
^!GoTo LOOP2

:ENDCLIP
^!SetNameFormat ^%KeepNameFormat%

:END

H="Password killing"
^!Shell d:progra~1\smallu~1\passwo~1\pwkill.exe

H="Pasteboard utility"
^!Menu File/New
^!FocusDoc
^!InsertText Copy from here and paste collection into Pasteboard: saves automatically.^P^P
^!Menu Document/Use as Paste Board
^!Shell "C:\Program Files\Small Utilities\Pasteboard\Pasteboard.exe"

H="PDF HTML insert"
:TOP
^!ClearVariables

^!Close ALL
^!Save AS d:\Documents\Adrian's Documents\Adrian's Writing\temp.tmp
^!SetWizardLabel Find PDF file to extract text from
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button to navigate=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files
^!SetScreenUpdate Off

^!Set %Type%=*.pdf
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Documents\Adrian's Documents\Adrian's Writing\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ NONE

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L;H=10)Is it here? Click on one=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
;When it chooses a file the index position forces it out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!GoTo LOOP2

:PROCEED

^!Set %GoFile%=^$GetShort(^%FilePathFull%)$
^!CopyFile ^%GoFile% "C:\Documents\Adrian's Documents\Adrian's Writing\Preparations\FromPDF.html"
^!StatusShow File copied for processing
^!Delay 20
^!StatusClose

^!SetClipboard d:\Documents\Adrian's Documents\Adrian's Writing\Preparations\FromPDF.html
^!Continue With the program browse to \My Writing\Preparations to find PDF file, perhaps change the HTML name and destination and wait until operation is complete. Complex pages have more opened.
^!Shell d:\programs\gs\pdftoh~1\pdf2ht~1.exe
^!Continue Is the operation complete?
^!Open d:\Documents\Adrian's Documents\Adrian's Writing\Preparations\FromPDF.html
^!Open d:\Documents\Adrian's Documents\Adrian's Writing\Preparations\FromPDF_ind.html
^!Open d:\C:\Documents\Adrian's Documents\Adrian's Writing\Preparations\FromPDFs.html
^!Prompt Rename to a permanent filename if wished. The main file is FromPDFs.html so others can be deleted.

^!Shell "^?{(T=D)Enter folder name/ Use the button =^$GetExpandedName$}"

H="PDF simple make"
;Get Name of current document
^!Set %oldfilename%=^$GetDocName$
^!SetClipboard=^%oldfilename%
^!Shell d:progra~1\smallu~1\pdfpro~1\pdfpro~1.exe
^!FocusApp PDF Producer*

H="PDF text copying"
:TOP
^!ClearVariables

^!Close ALL
^!Save AS d:\Documents\Adrian's Documents\Adrian's Writing\temp.tmp

^!SetWizardLabel Find PDF file to extract text from
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button to navigate=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files
^!SetScreenUpdate Off

^!Set %Type%=*.pdf
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Documents\Adrian's Documents\Adrian's Writing\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ NONE

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L;H=10)Is it here? Click on one=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
;When it chooses a file the index position forces it out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!GoTo LOOP2

:PROCEED

^!Set %GoFile%=^$GetShort(^%FilePathFull%)$
^!CopyFile ^%GoFile% d:\progra~1\smallu~1\pdftot~1\fred.pdf
^!StatusShow File copied for viewing
^!Delay 20
^!StatusClose

:MAKE
^!Shell d:\progra~1\acroba~1\reader\acrord32.exe d:\progra~1\smallu~1\pdftot~1\fred.pdf
^!Delay 10
^!FocusApp Acrobat Reader*
^!KeyBoard Alt+K &5 SHIFT+V

^!Close ALL
^!Toolbar New Document
^!Menu Document/Use as Paste Board

H="PDF text insert"
:TOP
^!ClearVariables

^!Close ALL
^!Save AS d:\Documents\Adrian's Documents\Adrian's Writing\temp.tmp

^!SetWizardLabel Find PDF file to extract text from
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button to navigate=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files
^!SetScreenUpdate Off

^!Set %Type%=*.pdf
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Documents\Adrian's Documents\Adrian's Writing\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ NONE

:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L;H=10)Is it here? Click on one=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
;When it chooses a file the index position forces it out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!GoTo LOOP2

:PROCEED

^!Set %GoFile%=^$GetShort(^%FilePathFull%)$
^!CopyFile ^%GoFile% d:\progra~1\smallu~1\pdftot~1\fred.pdf
^!StatusShow File copied for manipulation
^!Delay 20
^!StatusShow Text file making

^!Shell "c:\progra~1\smallu~1\pdftot~1\pdftot~1.exe" fred.pdf fred.txt
^!Wait
^!ShellWait "c:\progra~1\smallu~1\pdftot~1\pdftot~1.exe" fred.pdf fred.txt
^!Delay 10
^!StatusClose

:MAKE
^!Open d:\progra~1\smallu~1\pdftot~1\fred.txt
^!IfError EXTRA

^!StatusShow Processing text
^!Jump DOC_START
^!Replace ".^P" >> ".^P^P" [WAS]
^!Jump DOC_START
^!Replace ". ^P" >> ". ^P^P" [WAS]
^!Keyboard CTRL+A
^!Toolbar Join Lines
^!StatusShow Processing text further

:REPLACER1
^!Jump DOC_START
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IfError SPACEDOWN
^!GoTo REPLACER1

:SPACEDOWN
^!Skip Cut spaces down (a long process)?
^!GoTo FINAL
^!StatusShow Processing text further still

:REPLACER2
^!Jump DOC_START
^!Replace " " >> " " [WAS]
^!IfError FINAL
^!GoTo REPLACER2

:EXTRA
^!Continue Cannot get at the text - OK for a different method
^!SetClipboard fred.pdf fred.txt
^!shell d:\progra~1\smallu~1\pdftot~1\
^!ActivateApp
^!Info [L]At the folder (taskbar below) right click on pdftotxt.exe and Send to Command Line and CTRL+V at its end
^!GoTo MAKE

:NONE
^!StatusShow None in this folder
^!Delay 20
^!GoTo TOP

:FINAL
^!StatusClose
^!Save AS d:\Documents\Adrian's Documents\Adrian's Writing\Preparations\Temporary.txt
^!RecycleFile d:\Program Files\Small Utilities\pdftotext\fred.txt
^!RecycleFile d:\Program Files\Small Utilities\pdftotext\fred.pdf
^!SetScreenUpdate On
^!Prompt Save to a permanent filename if inserting more .PDF text.

H="ScrapBook file launch"
^!Skip There is a .bk2 ScrapBook file already open to launch
^!GoTo OPENONE

:PROCEED

^!ClearVariables
^!Set %ThisName%=^$GetDocName$
^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%GoName%
^!SetHintInfo Going to Scrapbook:
^!FocusApp Scrapbook
^!GoTo END

:OPENONE
^!Keyboard CTRL+O #^$GetDocumentPath$# ENTER ALT+T #A#
^!GoTo PROCEED

:END

H="ScrapBook from text"
^!Skip Is there a text file already open to create a .bk2 file?
^!GoTo OPENONE

:PROCEED

^!SetScreenUpdate Off
^!SetClipboard %%X%%X
^!Jump DOC_START RIGHT RIGHT
^!Select WORD
^!SetScreenUpdate On

^!Continue Cancel to close gaps between paragraphs to preserve them in one card; Cancel to highlight or leave highlighted a word. Then run clip again. Or Press OK now.

^!ClearVariables

^!SetWizardLabel ScrapBook folder
^!Set %Directory%=^?{(T=D)Directory choice to SAVE DOCUMENT}
^!SetWizardLabel ScrapBook filename
^!Set %FileName%=^?{Give the new document a MAIN name=_^$GetSelection$|Notes|Scraps}

^!SetScreenUpdate Off

^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Jump DOC_START
^!ToolBar New Document
^!Keyboard CTRL+V

^!Keyboard CTRL+A
^!Menu Modify/Lines/Trim Blanks

:LOOPBACKBIT
^!Jump DOC_START
^!Replace "^P " >> "^P" [WAS]
^!IFError ENDBACKBIT
^!GoTo LOOPBACKBIT
:ENDBACKBIT

^!Keyboard CTRL+END
^!InsertText ^P^P

:LOOPPARAS
^!Jump DOC_START
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IFError ENDPARAS
^!GoTo LOOPPARAS
:ENDPARAS

^!Jump DOC_START
^!Replace "^P^P" >> "???Z???Z" [WAS]

^!Jump DOC_START
^!Replace "^P" >> "%%X%%X" [WAS]

^!Jump DOC_START
^!Replace "???Z???Z" >> "^P^P" [WAS]

:LOOPSPACES
^!Jump DOC_START
^!Replace " " >> " " [WAS]
^!IFError ENDSPACES
^!GoTo LOOPSPACES
:ENDSPACES

:LOOPLINES
^!Jump DOC_START
^!Replace "^P^P" >> "^P" [WAS]
^!IFError ENDLINES
^!GoTo LOOPLINES
:ENDLINES

^!Replace "^P ^P" >> "^P" [WAS]
^!Replace "---" >> "--" [WAS]
^!Replace "___" >> "__" [WAS]

^!Replace "^P-" >> "%%X%%X-" [WAS]
^!Replace "^P_" >> "%%X%%X_" [WAS]

^!StatusShow The easiest way is to Press OK
^!Delay 10
^!SetScreenUpdate On
^!SetWizardLabel Paragraph to Card Numbering
^!Set %Row%=1; %StartInc%=1; %StartTop%=^?{Star&t numbering at=_Top of document^=1|Cursor position^=}; %LeadZero%=^?{Add leading &zeros to small numbers=_Yes|No}; %AddChr%=^?{Add &character after number: period and space shown=_None^=|. }%%X%%X; %StopInc%=^?{&Stop numbering at what line number (enter number if new doc)=_End of Document^=^$GetLineCount$|}; %SkipLine%=^?{Skip numbering of &blank lines=_Yes|No^=}

^!StatusClose
^!SetScreenUpdate Off
^!StatusShow Processing... MUST answer No to any questions!

^!IfTrue ^$IsEmpty("^$GetText$")$ Next else Skip
^!Set %NewDoc%=1

^!Set %StrSize%=^$StrSize(^%StopInc%)$

^!IfFalse ^$IsWordWrap$ Skip_2
^!ToolBar Toggle Word Wrap
^!Set %WrapOff%=1
;
^!IfTrue ^%StartTop% Next else Skip
^!Jump 1

:StartLoop
^!IfTrue ^%NewDoc% NewDoc
^!IfTrue ^%SkipLine% Next else Skip
^!IfTrue ^$IsEmpty("^$GetLine$")$ SkipLine
^!IfTrue ^%LeadZero% Next else Skip_2
^!InsertText ^$StrFill("0";^$Calc(^%StrSize%-^$StrSize("^%StartInc%")$)$)$^%StartInc%^%AddChr%
^!Goto Skip
^!InsertText ^%StartInc%^%AddChr%^P
^!Inc %StartInc%
^!Goto SkipLine
:NewDoc
^!IfTrue ^%LeadZero% Next else Skip_2
^!InsertText ^$StrFill("0";^$Calc(^%StrSize%-^$StrSize("^%StartInc%")$)$)$^%StartInc%^%AddChr%
^!Goto Skip
^!InsertText ^%StartInc%^%AddChr^P
^!Inc %StartInc%

:SkipLine
^!Jump +1
^!IfTrue ^%NewDoc% Skip
^!If ^$GetLineCount$ = ^$GetRow$ Top
^!If ^%StartInc% = ^$Calc(^%StopInc%+1;0)$ Top else StartLoop

:Top
^!IfFalse ^%WrapOff% Skip
^!ToolBar Toggle Word Wrap
^!Jump 1

:LOOPDATE
^!Replace "^P" >> "^P0^P^$GetDate(yyyymmddhhnn)$ "
^!IFError ENDDATE
^!GoTo LOOPDATE
:ENDDATE

^!Jump DOC_START
Scrapbook 2.1 File
^!InsertText ^P
^!InsertText ^P1^P^P0^P^$GetDate(yyyymmddhhnn)$
^!Keyboard CTRL+END
^!Keyboard UP
^!DeleteLine
^!DeleteLine
^!Jump DOC_START
^!Keyboard DOWN
^!DeleteLine
^!Jump DOC_START

^!Set %Back%=^$GetDate(yyyymmddhhnn)$
^!Save AS ^%Directory%^%FileName% ^%Back%.bk2
^!Close Document
^!SetScreenUpdate On
^!StatusClose
^!StatusShow Launching...
^!Delay 10
^!SetScreenUpdate Off
^!Set %GoName%=^$GetShort(^%Directory%^%FileName% ^%Back%.bk2)$
^!Shell ^%GoName%
^!SetScreenUpdate On
^!SetHintInfo Going to Scrapbook:
^!FocusApp Scrapbook
^!GoTo END

:OPENONE
^!Keyboard CTRL+O #^$GetDocumentPath$# ENTER ALT+T #T#
^!GoTo PROCEED

:END

H="Scrapbook to text"
^!ClearVariables
^!Set %docutext%=^$GetDocName$
^!If ^$StrCopyRight("^%docutext%";3)$ = bk2 Skip
^!GoTo OPENER

:MOVEON
^!SetScreenUpdate Off
^!SetClipboard %%X%%X
^!Jump DOC_START RIGHT RIGHT
^!Select WORD
^!SetScreenUpdate On

^!SetScreenUpdate Off

^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Jump DOC_START
^!Toolbar New Document
^!Keyboard CTRL+V
^!Jump DOC_START
^!DeleteLine
^!DeleteLine
^!Replace "^P0^P" >> "^P^P" [WAS]
^!Replace "%%X" >> "^P" [WAS]

^!Jump DOC_START
^!DeleteLine
^!DeleteLine

:LOOP
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IFError LAST
^!GoTo LOOP

:LAST
^!Set %Back%=^$GetDate(yyyy)$^$GetDate(mm)$^$GetDate(dd)$
^!Save AS ^%Directory%^%FileName% ^%Back%.txt
^!SetScreenUpdate On
^!StatusClose
^!GoTo END

:OPENER

^!Set %OpenFile%=^?{(T=O;S=M;F="Open Scrapbook file(*.bk2*)|*.bk2")=^$GetValue(BK2:Files)$}
^!IfSame "^%OpenFile%" "^$GetValue(BK2:Files)$" OPENER
^!IfTrue ^$IsEmpty("^%OpenFile%")$ End
^!Open "^%OpenFile%"
^!GoTo MOVEON

:END

H="StripMail Do it all"
^!SetScreenUpdate Off
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Toolbar New Document
^!Menu Document/Use as Paste Board
^!Shell d:\progra~1\smallu~1\stripm~1\stripm~1.exe
^!SetHintInfo Going to Stripmail:
^!Delay 30
^!FocusApp *StripMail v 0.99h
^!KeyBoard CTRL+D
^!Delay 10
^!FocusApp *StripMail v 0.99h
^!KeyBoard ALT+C
^!FocusApp NoteTab Light*
^!Menu Document/Use as Pasteboard
^!SetScreenUpdate On

H="Swift Paste"
^!Shell D:\Program Files\Swift Paste

H="TreePad"
^!Shell d:progra~1\treepad\treepad.exe

H="TreePad file launch"
^!Skip There is an .hjt TreePad file already open to launch
^!GoTo OPENONE

:PROCEED

^!ClearVariables
^!Set %ThisName%=^$GetDocName$
^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%GoName%
^!SetHintInfo Going to TreePad:
^!FocusApp *! TreePad Lite
^!GoTo END

:OPENONE
^!Keyboard CTRL+O #^$GetDocumentPath$# ENTER ALT+T #A#
^!GoTo PROCEED

:END

H="TreePad from OTL"
^!Close ALL
^!ClearVariables
^!Save AS d:\My Documents\temp.tmp

^!Set %FileName%=^?{Give the new document a new working name=_Outline|Glossary|Readme}

^!SetWizardLabel Press OK for OTLs here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.otl
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\My Documents\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ END

:LOOP1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Toolbar New Document
^!FocusDoc
^!InsertFile ^%EditList^%Index%%
^!GoTo LOOP2

:PROCEED
^!StatusShow Necessary clean

:LOOPPARAS
^!Jump DOC_START
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IFError PROCEEDON
^!GoTo LOOPPARAS

:PROCEEDon
^!StatusShow Conversion process (noisy)

^!Document PREV
^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Program Files\NoteTab\temp.tmp

^!Jump DOC_START
^!DeleteLine
<Treepad version 2.7>
dt=Text
<node>
^!Replace "^PH="" >> "^P"
^!IfError END
^!Keyboard END LEFT DELETE
^!InsertText ^P0

:LOOP3
^!Find "^PH=" [S]
^!IfError FINAL
^!Keyboard END HOME
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertText ^P
^!Replace "^PH="" >> "^P" [S]
^!Keyboard END LEFT DELETE
^!InsertText ^P1
^!Keyboard END DOWN
^!GoTo LOOP3

:FINAL
^!Keyboard CTRL+END
^!InsertText ^P
<end node> 5P9i0s8y19Z
^!Keyboard SHIFT+CTRL+END
^!Replace "^P" >> "" [HAS]

^!Set %Type%=.hjt
^!Save AS ^%Folder%^%FileName%^%Type%
^!StatusShow Launching
^!Set %GoName%=^$GetShort(^%Folder%^%FileName%^%Type%)$
^!Shell ^%GoName%
^!SetHintInfo Going to TreePad:
^!FocusApp *! TreePad Lite

:END

H="TreePad from OTL present"
^!Skip Is an Outline (.otl) file the active document?
^!Clip "TreePad from OTL"

^!ClearVariables

^!Set %FilePathFull%=^$GetDocName$
^!Close ALL
^!SetScreenUpdate OFF

^!Toolbar New Document
^!InsertText ^%FilePathFull%
^!InsertText ^P
^!Keyboard UP HOME
^!Keyboard SHIFTDOWN END LEFT LEFT LEFT LEFT
^!Set %Filepath%=^$GetSelection$
^!DeleteLine

^!InsertFile ^%FilePathFull%

:PROCEED
^!StatusShow Necessary clean

:LOOPPARAS
^!Jump DOC_START
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IFError PROCEEDON
^!GoTo LOOPPARAS

:PROCEEDON
^!StatusShow Conversion process (noisy)

^!Jump DOC_START
^!DeleteLine
<Treepad version 2.7>
dt=Text
<node>
^!Replace "^PH="" >> "^P"
^!IfError END
^!Keyboard END LEFT DELETE
^!InsertText ^P0

:LOOP3
^!Find "^PH=" [S]
^!IfError FINAL
^!Keyboard END HOME
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertText ^P
^!Replace "H="" >> "" [S]
^!Keyboard END LEFT DELETE
^!InsertText ^P1
^!Keyboard END DOWN
^!GoTo LOOP3

:FINAL
^!Keyboard CTRL+END
^!InsertText ^P
<end node> 5P9i0s8y19Z
^!Keyboard SHIFT+CTRL+END
^!Replace "^P" >> "" [HAS]

^!Set %Type%=hjt
^!Save AS ^%Filepath%^%Type%
^!StatusShow Launching
^!Set %GoName%=^$GetShort(^%Filepath%^%Type%)$
^!Shell ^%GoName%
^!SetHintInfo Going to TreePad:
^!FocusApp *! TreePad Lite

:END

H="TreePad from TreePrint "
^!ShowStatus First part...
^!SetScreenupdate Off

^!Jump DOC_START
^!Replace "TreePrint listing of: " >> ""
^!Keyboard END
^!Keyboard CTRL+DELETE
^!Jump DOC_START
<Treepad version 2.7>
dt=Text
<node>

^!Replace "|" >> "" [WAS]
^!SetScreenupdate On

^!StatusShow Processing... Second part: OK the boxes
^!Delay 20

:LOOP5
^!Jump DOC_START
^!Replace " +---" >> ""
^!IfError MID5
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
5
^!GoTo LOOP5
:MID5
^!Jump DOC_START
^!Replace " \---" >> ""
^!IfError END5
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
5
^!GoTo MID5
:END5

:LOOP4
^!Jump DOC_START
^!Replace " +---" >> ""
^!IfError MID4
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
4
^!GoTo LOOP4
:MID4
^!Jump DOC_START
^!Replace " \---" >> ""
^!IfError END4
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
4
^!GoTo MID4
:END4

:LOOP3
^!Jump DOC_START
^!Replace " +---" >> ""
^!IfError MID3
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
3
^!GoTo LOOP3
:MID3
^!Jump DOC_START
^!Replace " \---" >> ""
^!IfError END3
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
3
^!GoTo MID3
:END3

:LOOP2
^!Jump DOC_START
^!Replace " +---" >> ""
^!IfError MID2
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
2
^!GoTo LOOP2
:MID2
^!Jump DOC_START
^!Replace " \---" >> ""
^!IfError END2
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
2
^!GoTo MID2
:END2

:LOOP1
^!Jump DOC_START
^!Replace "+---" >> ""
^!IfError MID1
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
1
^!GoTo LOOP1
:MID1
^!Jump DOC_START
^!Replace "\---" >> ""
^!IfError END1
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!InsertHTML ^P
^!Keyboard END
^!InsertHTML ^P
1
^!GoTo MID1
:END1

^!StatusShow Final part...
^!SetScreenupdate Off
^!Jump DOC_START
^!Replace " " >> "" [WAS]
^!Jump DOC_START
^!Replace "^P " >> "^P" [WAS]
^!SetScreenupdate On

^!Set %FileName%=^?[New TreePad document name=_Files and Folders|From Treeprint|Structure].hjt
^!Set %Directory%=^?{(T=D)Directory choice to SAVE DOCUMENT}
^!Set %Back%=^$GetDate(yyyymmddhhnn)$
^!Save AS ^%Directory%^%FileName% ^%Back%
^!Close Document

^!Set %GoName%=^$GetShort(^%Directory%^%FileName% ^%Back%)$
^!Shell ^%GoName%
^!SetHintInfo Going to TreePad:
^!FocusApp *! TreePad Lite
^!SetScreenUpdate On

H="TreePad present to OTL"
:RESTART

^!Skip Is a TreePad (.hjt) file the active document?
^!Clip "TreePad to OTL"
^!ClearVariables
^!SetScreenUpdate OFF
^!Set %FilePathFull%=^$GetDocName$
^!Jump DOC_START
^!InsertText ^$GetDocName$
^!InsertText ^P
^!Keyboard UP HOME
^!Keyboard SHIFTDOWN END LEFT LEFT LEFT LEFT LEFT
^!Set %FilePath%=^$GetSelection$
^!DeleteLine

:PROCEED

^!SetWordWrap OFF
^!StatusShow Conversion process (noisy)

^!Jump DOC_START
^!InsertText = V4 Outline MultiLine NoSorting TabWidth=30^P
^!DeleteLine
^!DeleteLine

:LOOP3
^!Jump DOC_START
^!Replace "<node>^P" >> "H="" [WAS]
^!IfError CONTINUE
^!GoTo LOOP3

:CONTINUE

^!Jump DOC_START
^!Replace "<end node> 5P9i0s8y19Z" >> "" [WAS]
^!Jump DOC_START
^!Replace "dt=Text" >> "" [WAS]

^!Jump DOC_START
^!Replace "^P0^P" >> ""^P" [WAS]
^!Set %Count%=0

:LOOP4
^!Jump DOC_START
^!Inc %Count%
^!Replace ^P^%Count%^P >> "^P^P [WAS]
^!IfError LOOP5
^!GoTo LOOP4

:LOOP5
^!Jump DOC_START
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IfError FINAL
^!GoTo LOOP5

:FINAL

^!Set %Type%=.otl
^!SetWordWrap On
^!Save AS ^%FilePath%^%Type%
^!Close
^!StatusShow Opening
^!Open ^%FilePath%^%Type%
^!FocusDoc
^!SetScreenUpdate On

:END

H="TreePad start text to "
^!Skip Begins a text structure to make a TreePad file. Is there a document to work on?
^!GoTo OPENONE

^!Continue If the document is not to the furthest right, press Cancel. Then drag its tab to the right. If it is, press OK.

:PROCEED

^!ClearVariables
^!Set %FileName%=^?{Give the new document a MAIN name=_Hot Topic|Temp}.hjt; %Directory%=^?{(T=D)Directory choice to SAVE DOCUMENT}; %Separator%=^?{Type what is used as a paste board separator (or leave blank)=_***|$$$|&&&}

^!SetScreenUpdate Off
^!Jump Doc_START
^!ToolBar New Document
<Treepad version 2.7>
dt=Text
<node>
^!Menu Document/Use as Paste Board
^!Document PREV
^!SetScreenUpdate On
^!Info Highlight a short piece of text that would suit being a title^P^PFive seconds from pressing OK.
^!Delay 50
^!SetScreenUpdate Off
^!Keyboard CTRL+C
^!Document LAST
^!InsertHTML ^P
0
^!Document PREV
^!Keyboard HOME
^!SetScreenUpdate On
^!Info Highlight a medium piece of text for first title's content^P^PTen seconds from pressing OK.
^!Delay 100
^!SetScreenUpdate Off
^!Keyboard CTRL+C
^!Document LAST
^!InsertHTML ^P
<end node> 5P9i0s8y19Z
dt=Text
<node>
^!Document PREV
^!Keyboard HOME
^!SetScreenUpdate On
^!Info [L] Highlight a short piece of text that would suit (for now) being a second indented title^P^PFive seconds from pressing OK.
^!Delay 50
^!SetScreenUpdate Off
^!Keyboard CTRL+C
^!Document LAST
^!InsertHTML ^P
1
^!Document PREV
^!Keyboard HOME
^!SetScreenUpdate On
^!Info Highlight a longer piece of text that would suit (for now) being that title's content^P^PTen seconds from pressing OK. Then pause.
^!Delay 100
^!SetScreenUpdate Off
^!Keyboard CTRL+C
^!Document LAST
^!Menu Document/Use as Paste Board
^!InsertHTML ^P
<end node> 5P9i0s8y19Z
^!Replace "^%Separator%^P" >> "^P" [WAS]

:LOOP
^!Jump DOC_START
^!Replace "^P^P" >> "^P" [WAS]
^!IFError END
^!GoTo LOOP
:END

^!Save AS ^%Directory%^%FileName%
^!StatusShow Do more via copying and pasting
^!Set %GoName%=^$GetShort(^%Directory%^%FileName%)$
^!Shell ^%GoName%
^!SetHintInfo Going to TreePad:
^!FocusApp *! TreePad Lite
^!SetScreenUpdate On

^!GoTo END

:OPENONE
^!Keyboard CTRL+O #^$GetDocumentPath$# ENTER ALT+T #T#
^!GoTo PROCEED

:END

H="TreePad to OTL"
:RESTART

^!Close ALL
^!ClearVariables
^!Save AS d:\My Documents\temp.tmp

^!Set %FileName%=^?{Give the new document a new working name=_From Treepad|Outline|Glossary|Readme}

^!SetWizardLabel Press OK for .hjts here or navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue(DirStuff:Browse)$}

^!StatusShow Finding files...
^!SetScreenUpdate Off

^!Set %Type%=*.hjt
^!Set %Sort%=Name

^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\My Documents\temp.tmp

^!Set %FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$ ERROR

:LOOP1

^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append %Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto LOOP1

:DOARRAY

^!CloseFileFind
^!SetArray %EditList%=^?{(T=L)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set %Index%=0

:LOOP2
^!Inc %Index%
^!If ^%Index% > ^%Count% PROCEED
^!Toolbar New Document
^!FocusDoc
^!InsertFile ^%EditList^%Index%%
^!GoTo LOOP2

:PROCEED

^!SetWordWrap OFF
^!StatusShow Conversion process (noisy)

^!Document PREV
^!FocusDoc
^!Close DISCARD
^!DestroyDoc d:\Program Files\NoteTab\temp.tmp

^!FocusDoc

^!Jump DOC_START
^!InsertText = V4 Outline MultiLine NoSorting TabWidth=30^P
^!DeleteLine
^!DeleteLine

:LOOP3
^!Jump DOC_START
^!Replace "<node>^P" >> "H="" [WAS]
^!IfError CONTINUE
^!GoTo LOOP3

:CONTINUE

^!Jump DOC_START
^!Replace "<end node> 5P9i0s8y19Z" >> "" [WAS]
^!Jump DOC_START
^!Replace "dt=Text" >> "" [WAS]

^!Jump DOC_START
^!Replace "^P0^P" >> ""^P" [WAS]
^!Set %Count%=0

:LOOP4
^!Jump DOC_START
^!Inc %Count%
^!Replace ^P^%Count%^P >> "^P^P [WAS]
^!IfError LOOP5
^!GoTo LOOP4

:LOOP5
^!Jump DOC_START
^!Replace "^P^P^P" >> "^P^P" [WAS]
^!IfError FINAL
^!GoTo LOOP5

:FINAL

^!Set %Type%=.otl
^!SetWordWrap On
^!Save AS ^%Folder%^%FileName%^%Type%
^!Close
^!StatusShow Opening
^!Open ^%Folder%^%FileName%^%Type%
^!FocusDoc
^!SetScreenUpdate On
^!GoTo END

:ERROR
^!Continue No TreePad files there. Try Again?
^!GoTo RESTART

:END

H="Web IE capture"
^!Set %yeartext%=^$GetDate(yyyy)$
^!Set %datetext%=^$GetDate(yyyymmdd hh:nn)$
^!Continue Cancel if IE is not open or OK
^!FocusApp * Microsoft Internet Explorer
^!Delay 10
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Set %pagetext%=^$GetClipboard$
^!Keyboard ALT+D CTRL+C
^!Set %urltext%=^$GetClipboard$
^!Keyboard ALT+V C
^!ActivateApp
^!Delay 10
^!SetScreenUpdate Off
^!Jump DOC_START
^!Find "/title" WIS
^!Keyboard HOME RIGHT RIGHT RIGHT RIGHT RIGHT RIGHT RIGHT SHIFTDOWN END LEFT LEFT LEFT LEFT LEFT LEFT LEFT LEFT LEFT
^!Keyboard CTRL+C
^!Set %titletext%=^$GetClipboard$
^!Keyboard SHIFTUP HOME
^!Close [DISCARD]
^!Toolbar New Document
^!SetScreenUpdate Off
^!InsertText (^%yeartext%), ^%titletext%, [Online], Available World Wide Web, URL: [^%urltext], [Accessed ^%datetext%]^P^P
^!InsertText ^%pagetext%^P^P[End of webpage]
^!FarClip "Processing:Paras regularise"
^!Jump DOC_START

H="Web IE2 capture"
^!ClearVariables
^!Set %yeartext%=^$GetDate(yyyy)$
^!Set %datetext%=^$GetDate(yyyymmdd hh:nn)$
^!Continue Cancel if My IE2 is not open or OK
^!FocusApp MyIE2*
^!Delay 10
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Set %pagetext%=^$GetClipboard$
^!Keyboard ALT+D CTRL+C
^!Set %urltext%=^$GetClipboard$
^!Keyboard ALT+V O
^!ActivateApp
^!Delay 10
^!SetScreenUpdate Off
^!Jump DOC_START
^!Find "/title" WIS
^!Keyboard HOME RIGHT RIGHT RIGHT RIGHT RIGHT RIGHT RIGHT SHIFTDOWN END LEFT LEFT LEFT LEFT LEFT LEFT LEFT LEFT LEFT
^!Keyboard CTRL+C
^!Set %titletext%=^$GetClipboard$
^!Keyboard SHIFTUP HOME
^!Close [DISCARD]
^!Toolbar New Document
^!SetScreenUpdate Off
^!InsertText (^%yeartext%), ^%titletext%, [Online], Available World Wide Web, URL: [^%urltext], [Accessed ^%datetext%]^P^P
^!InsertText ^%pagetext%^P^P[End of webpage]
^!FarClip "Processing:Paras regularise"
^!Jump DOC_START

H="Windows Explorer"
^!FocusApp Exploring*
^!IfError Next Else End
^!explorer.exe

H="WordWeb word"
^!ClearVariables
^!SaveValue WordWeb:Off=0
^!SetClipboard ^%Empty%
^!IfTrue ^$IsEmpty("^$GetSelection$")$ Next else Skip
^!Select Word
^!Set %Word%=^$GetSelection$
^!SetClipboard=^%Word%
^!Shell d:\progra~1\wordweb\wweb32.exe
^!Delay 10
:TRY
^!IfAppOpen "WordWeb*" Skip_2
^!Shell d:\progra~1\wordweb\wweb32.exe
^!Delay 5
^!FocusApp *WordWeb thesaurus/dictionary
^!Delay 5
^!KeyBoard Alt+K #^%Word%# &5 ENTER TAB SPACEBAR
^!FocusDoc
^!Set %NewWord%=^$GetSelection$
^!IfTrue ^%NewWord%="^T" TRYAGAIN
^!GoTo END

:TRYAGAIN
^!Keyboard DELETE
^!GoTo Try

:END

H="WriteMonkey file this"
^!ClearVariables
^!Save
^!Set %ThisName%=^$GetDocName$
^!Set %OtherProg%=C:\Program Files\Small Utilities\WriteMonkey\WriteMonkey.exe
^!Set %GoName%=^$GetShort(^%ThisName%)$
^!Shell ^%OtherProg% ^%GoName%
^!FocusApp *WriteMonkey

H="Yeah Write file this archive"
^!Toolbar Copy All
^!Set %Filehead%=^$GetSelection$
^!SetClipboard ^%Filehead%
^!Shell c:\programs\yw\yw.exe
^!Delay 30
^!FocusApp Yeah Write
^!KeyBoard Alt+K &5 ALT+F &5 N
^!Delay 10
^!KeyboardDelay 100
^!KeyBoard Alt+K CTRL+V
;
^!KeyboardDelay 0
^!FocusApp NoteTab Light*
^!SetScreenUpdate Off
^!Keyboard SHIFTDOWN END
^!Set %Fileinfo%=^$GetSelection$
^!SetClipboard ^%Fileinfo%
^!DeleteLine
^!SetScreenUpdate On

^!FocusApp Yeah Write
^!KeyboardDelay 100
^!FocusApp Yeah Write
^!KeyBoard Alt+K DOWN DOWN ENTER CTRL+V
^!KeyboardDelay 0