FiXiT_UpLoadeR Prep

January 6, 2006 on 8:32 pm | In Administrative Clips, Notetab Clips | No Comments

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%
^!Set %top_row%=^$GetRow$
^!InsertCode ^%fixit%
^!Set %bottom_row%=^$GetRow$
^!InsertCode ^%marker%
^%nl%
^!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("&quot;";"^%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

No Comments yet »

RSS feed for comments on this post. TrackBack URI

Leave a comment

XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Powered by WordPress with Pool theme design by Borja Fernandez.
Entries and comments feeds. Valid XHTML and CSS. ^Top^

Bad Behavior has blocked 355 access attempts in the last 7 days.