FiXiT_UpLoadeR Prep
This clip is made to convert clips for posting at fixit.com so they will display and users can easily download and not be required to make any changes to start using them.
I like this clip because it does the minimum number of changes to get a good display, also, it can be used to convert a single clip or a complete clipbook.
All conversion is done in set variables and a new blank file, the original remains unchanged.
FiXiT_4_CLIPS
<>------------Marker------------<>
H="FiXiT_4_CLIPS"
;_ Modified-Updated~Created_20060113
;_ hrs ø hsavage·pobox·com_01:50:13p
;
^!Clearvariables
^!SetWordWrap 0
^!Set %qu%=^$DecToChar(34)$
^!Set %and%=^$DecToChar(38)$
^!Set %marker%=<>------------Marker------------<>^%nl%
;
^!StatusShow Select Text Before Continuing, Read STATUS BAR For INFO!
^!SetHintInfo Press CTRL To CONTINUE, SHIFT+CTRL To END!!
; - loops while selecting text, press Ctrl to Continue
^!Delay 1
^!IfFalse ^$IsCtrlKeyDown$ SKIP_-1
^!IfTrue ^$Calc(^$IsShiftKeyDown$*^$IsCtrlKeyDown$)$ EXIT
^!IfTrue ^$IsCtrlKeyDown$ SKIP_-1
;
^!SetCode %fixit%=^$StrReplace("^%and%quot;";"|*and_quote*|";"^$GetSelection$";0;0)$
^!Menu File/New
^!SetCode %fixit%=^$StrReplace("|*and_quote*|";"^%and%amp;quot;";"^%fixit%";0;0)$
^!SetCode %fixit%=^$StrReplace("^%qu%";"^%and%quot;";"^%fixit%";0;0)$
;
^!InsertText Title if Needed^%nl%^%nl%^%nl%
^!Set %top%=^$GetRow$
^!InsertCode ^%nl%^%marker%^%nl%
^!Set %top_row%=^$GetRow$
^!InsertCode ^%fixit%
^!Set %bottom_row%=^$GetRow$
^!InsertCode ^%marker%
^!InsertText Number of Valid Clip-lines=^$Calc(^%bottom_row%-^%top_row%)$
^!SelectTo ^%top%:1
^!Save AS "^$GetSpecialPath(DeskTop)$FiXiT_CLIPS.htmL"
^!Jump 1
<>————Marker————<>
Number of Valid Clip-lines=34
<>————Marker————<>
This clip is more for clips containing HTML code, other wise same as above.
FiXiT_4_HTML
<>------------Marker------------<>
H="FiXiT_4_HTML"
;_ Modified-Updated~Created_20060113
;_ hrs ø hsavage·pobox·com_01:58:10p
;
^!Clearvariables
^!SetWordWrap 0
^!Set %qu%=^$DecToChar(34)$
^!Set %and%=^$DecToChar(38)$
^!Set %md%=^$DecToChar(183)$
^!Set %marker%=<>------------Marker------------<>^%nl%
;
^!StatusShow Select Text Before Continuing, Read STATUS BAR For INFO!
^!SetHintInfo Press CTRL To CONTINUE, SHIFT+CTRL To END!!
; - loops while selecting text, press Ctrl to Continue
^!Delay 1
^!IfFalse ^$IsCtrlKeyDown$ SKIP_-1
^!IfTrue ^$Calc(^$IsShiftKeyDown$*^$IsCtrlKeyDown$)$ EXIT
^!IfTrue ^$IsCtrlKeyDown$ SKIP_-1
;
^!SetCode %fixit%=^$StrReplace("^%and%quot;";"|*and_quote*|";"^$GetSelection$";0;0)$
^!Menu File/New
^!InsertCode ^%fixit%
^!Menu Modify/Characters To HTML/ALL Special Characters
^!SetCode %fixit%=^$StrReplace(""";"^%and%amp;quot;";"^$GetSelection$";0;0)$
^!SetCode %fixit%=^$StrReplace("|*and_quote*|";"^%and%amp;quot;";"^$GetSelection$";0;0)$
^!SetCode %fixit%=^$StrReplace("^%and%middot;";"^%md%";"^%fixit%";0;0)$
;
^!InsertText Title if Needed^%nl%^%nl%^%nl%
^!Set %top%=^$GetRow$
^!InsertCode <code>^%nl%^%marker%
^!Set %top_row%=^$GetRow$
^!InsertCode ^%fixit%
^!Set %bottom_row%=^$GetRow$
^!InsertCode ^%marker%</code>^%nl%
^!InsertText Number of Valid Clip-lines=^$Calc(^%bottom_row%-^%top_row%)$
^!SelectTo ^%top%:1
^!Save AS "^$GetSpecialPath(DeskTop)$FiXiT_HTML.htmL"
^!Jump 1
<>------------Marker------------<>
Number of Valid Clip-lines=38