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

Re: [Clip] Copying between clip and text

Expand Messages
  • Larry Thomas
    Hi Lee, Sorry, I am getting frustrated here. I appearently did not select enough of my clip when I did my last post and the ending paragraph marker got
    Message 1 of 9 , Jul 29, 2003
    • 0 Attachment
      Hi Lee,

      Sorry, I am getting frustrated here. I appearently did not select enough
      of my clip when I did my last post and the ending <p> paragraph marker got
      left off. Here is the corrected clip. Same as the other but with the last
      line included this time.

      ______[Copy below this line]_______
      H="HTML Articles Headings"
      ;lrt@... e¿ê
      ;07/29/2003, 11:23:04 AM
      ^!Set %Headline%=^$GetSelection$
      ^!Set %Headline%=^?{Enter Headline=^%Headline%}

      H="HTML Articles Finish Doc"
      ;lrt@... e¿ê
      ;07/29/2003, 11:23:04 AM
      ^!Set %Summary%=^$GetSelection$
      ^!Set %Summary%=^?{(T=W)Enter Story Summary=^%Summary%}
      ^!Toolbar New Document
      ;
      ;----------------------[begin long line]---------------------------
      <b><font color="#000080" font face="Arial, Helvetica, Sans
      Serif">^%Headline%</font></b><br>
      ;-----------------------[end long line]----------------------------
      ;
      <div class="featuretext">^%Summary%</div>
      <p>
      _____[Copy above this line]______
      | right click over the clipbook |
      | and choose "Add from Clipboard" |
      ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

      Regards,

      Larry
      lrt@... e¿ê
    • hsavage
      ... Lee, Here s another implementation using 1, somewhat larger clip. You collect the Headline text, then, the Feature text, then, open a new file and insert
      Message 2 of 9 , Jul 29, 2003
      • 0 Attachment
        Lee Underwood wrote:

        > At 7/29/03 08:26 AM -0500, Larry Thomas wrote:
        >
        >> At 01:43 AM 7/29/03 -0400, you wrote:
        >>
        >> You can use variables for this. Just select your headline and ^!Set
        >> %Headline%=^$GetSelection$
        >
        > This looks good, however, I am not sure how to implement it.
        >
        > Lee
        >

        Lee,

        Here's another implementation using 1, somewhat larger clip. You
        collect the Headline text, then, the Feature text, then, open a new file
        and insert the html code plus your selections.

        The doc is renamed with a .htm extension and automatically viewed in the
        browser.

        The clip below is in 2 forms, 1 is uuencoded, I've added a clip to
        decode it. Copy the encoded text to a new file, be sure to include the
        'begin 600' line through the 'end' line.

        After copying, place the cursor anywhere within the encoded text and run
        the clip.

        After decoding, aside from the file copy, the decoded text is in the
        clipboard, you can add it directly into a clipbook from the clipboard

        The 2nd form is straight clip language text. 1 long line, I think only
        1, that would ordinarily get wrapped in email, I purposely broke in 2
        places using a series of 'XXX'. Just add to a clipbook, remove the
        'XXX' and the carriage return that follows the X's and you should have a
        workable clip.

        hrs



        H="UUDECODE"
        ;_Modified~Updated~Created_7/27/03_7:57:07p
        ;_hsavage@...
        ^!Clearvariables
        ^!SetScreenUpdate 0
        ^!SetWordWrap 0
        ^!SetDebug 0
        ^!Set %ct%=^$DecToChar(164)$^$DecToChar(169)$
        :UUDECODE
        ^!Find "begin 600" TIBSA
        ^!Set %begin%=^$GetRow$
        ^!Find "end" TISA
        ^!Set %end%=^$GetRow$
        ^!Jump LINE_END
        ^!SelectTo ^%begin%:1
        ^!Replace "begin 600^p" >> "begin 600 ^p" TIHSA
        ^!SetCode %text%=^$StrUUDecode(^$StrTrim(^$GetSelection$)$)$
        ^!SetCode %text%=^$StrReplace("^%ct%";"^";^%text%;0;0)$
        ^!SetClipboard ^%text%
        ^!InsertCode ^%text%
        ^!SetCursor ^%begin%:1
        ^!SetView ^%begin%:1
        ^!SetWordWrap ^%ww%


        begin 600
        M2#TB4$%35$4@2$5!1$Q)3D4O4U5-34%262(-"CM?36]D:69I961^57!D871E
        M9'Y#<F5A=&5D7S<O,CDO,#-?,3`Z,3,Z-3=A#0H[7VAS879A9V5`<&]B;W@N
        M8V]M#0JDJ2%#;&5A<G9A<FEA8FQE<PT*I*DA4V5T5V]R9%=R87`@,`T*I*DA
        M4V5T("5W:&%T)3U#=')L*T,-"CNDJ2%3970@)7=H870E/:2I/WM314Q%0U0@
        M5$\@0T]062!/4B!#550@5$585#T]7T-/4%FDJ3U#=')L*T-\0U54I*D]0W1R
        M;"M8?0T*I*DA4V5T("5T<F%I;&5R)3TB0W1R;"!#;VYT:6YU97,@+2!#=')L
        M*T%L="!T;R!3=&]P(@T*.E-405)4#0JDJ2%3=&%T=7-3:&]W("=214%$(%-4
        M05154R!&3U(@24Y35%)50U1)3TY3("T@0W1R;"!#;VYT:6YU97,N+BX-"J2I
        M(41E;&%Y(#$-"J2I(4EF1F%L<V4@I*DD27-#=')L2V5Y1&]W;B0@4VMI<%\M
        M,0T*I*DA4W1A='5S0VQO<V4-"J2I(5-E="`E8W1M)3TP#0JDJ2%3970@)6AI
        M;G0E/2)314Q%0U0@)TA%041,24Y%5$585"<B#0JDJ2%3971#;&EP8F]A<F0@
        MI*DE16UP='DE#0JDJ2%';W1O($-430T*.D-433$-"J2I(4ME>6)O87)D(*2I
        M)7=H870E#0JDJ2%3970@)6AE861L:6YE=&5X="4]I*DD1V5T0VQI<&)O87)D
        M)`T*I*DA4V5T("5H:6YT)3TB4T5,14-4("=&14%455)%5$585"<B#0JDJ2%'
        M;W1O($-430T*.D-433(-"J2I(4ME>6)O87)D(*2I)7=H870E#0JDJ2%3970@
        M)69E871U<F5T97AT)3VDJ21'971#;&EP8F]A<F0D#0JDJ2%!8W1I=F%T94%P
        M<"`-"J2I(4UE;G4@1FEL92].97<-"J2I(5)E;F%M941O8R`B1F5A='5R92!3
        M=6UM87)Y+FAT;2(-"J2I(4EN<V5R=%1E>'0@/&(^/&9O;G0@8V]L;W(](B,P
        M,#`P.#`B(&9O;G0@9F%C93TB07)I86PL($AE;'9E=&EC82P@4V%N<R!397)I
        M9B(^I*DE;FPEI*DE:&5A9&QI;F5T97AT)3PO9F]N=#X\+V(^/&)R/CQB<CZD
        MJ25N;"4\9&EV(&-L87-S/2)F96%T=7)E=&5X="(^I*DE9F5A='5R971E>'0E
        M/"]D:78^#0JDJ2%);G-E<G1(5$U,(*2I4#QP/J2I4`T*I*DA365N=2!4;V]L
        M<R]6:65W($EN($)R;W=S97(-"CI#5$T-"CNOKZ^OKZ^OKZ^OKZ]<#0JDJ2%)
        M;F,@)6-T;24-"J2I(4EF(*2I)6-T;24@/B`R($58250-"CI%5TP-"J2I(5-E
        M=$AI;G1);F9O(*2I)6AI;G0E+""DJ213=')5<'!E<BBDJ25T<F%I;&5R)2DD
        M#0JDJ2%$96QA>2`Q#0JDJ2%)9D9A;'-E(*2I)$ES0W1R;$ME>41O=VXD($57
        M3`T*I*DA1&5L87D@,0T*I*DA2694<G5E(*2I)$ES0W1R;$ME>41O=VXD(%-K
        M:7!?+3$-"J2I(5-T871U<T-L;W-E#0JDJ2%3;W5N9""DJ21'971,:6)R87)Y
        M4&%T:"1M<V=P;W!U<"YW878-"J2I(4=O=&\@0U1-I*DE8W1M)0T*.U]?7U]?
        (7U]?7U]?7R\
        `
        end


        H="PASTE HEADLINE/SUMMARY"
        ;_Modified~Updated~Created_7/29/03_10:13:57a
        ;_hsavage@...
        ^!Clearvariables
        ^!SetWordWrap 0
        ^!Set %what%=Ctrl+C
        ^!Set %trailer%="Ctrl Continues - Ctrl+Alt to Stop"
        :START
        ^!StatusShow 'READ STATUS FOR INSTRUCTIONS - Ctrl Continues
        ^!Delay 1
        ^!IfFalse ^$IsCtrlKeyDown$ Skip_-1
        ^!StatusClose
        ^!Set %ctm%=0
        ^!Set %hint%="SELECT 'HEADLINETEXT'"
        ^!SetClipboard ^%Empty%
        ^!Goto CTM
        :CTM1
        ^!Keyboard ^%what%
        ^!Set %headlinetext%=^$GetClipboard$
        ^!Set %hint%="SELECT 'FEATURETEXT'"
        ^!Goto CTM
        :CTM2
        ^!Keyboard ^%what%
        ^!Set %featuretext%=^$GetClipboard$
        ^!ActivateApp
        ^!Menu File/New
        ^!RenameDoc "Feature Summary.htm"
        ^!InsertText <b><font color="#000080" font face="Arial, XXX
        Helvetica, Sans Serif">^%nl%^%headlinetext%</font></b><br>XXX
        <br>^%nl%<div class="featuretext">^%featuretext%</div>
        ;
        ^!InsertHTML ^P<p>^P
        ^!Menu Tools/View In Browser
        :CTM
        ;¯¯¯¯¯¯¯¯¯¯¯¯\
        ^!Inc %ctm%
        ^!If ^%ctm% > 2 EXIT
        :EWL
        ^!SetHintInfo ^%hint%, ^$StrUpper(^%trailer%)$
        ^!Delay 1
        ^!IfFalse ^$IsCtrlKeyDown$ EWL
        ^!Delay 1
        ^!IfTrue ^$IsCtrlKeyDown$ Skip_-1
        ^!StatusClose
        ^!Sound ^$GetLibraryPath$msgpopup.wav
        ^!Goto CTM^%ctm%
        ;____________/
      • Alan C.
        ... Oops, upon 2nd look, you had earlier said paste the headline--I instead thought you were typing that into the first wizard from your original clip, ie,
        Message 3 of 9 , Jul 29, 2003
        • 0 Attachment
          On Tue, 29 Jul 2003 01:43:28 -0400, Lee Underwood wrote:
          >The only problem is that I have to highlight all of the text. So now I have
          >to paste it all into the "headline" part of the clip, and edit that, which
          >doesn't work very well.

          Oops, upon 2nd look, you had earlier said "paste" the headline--I instead thought you were typing that into the first wizard from your original clip, ie, as in: "type" the headline into the wizard and get the news pasted in.
          --

          My only reason for reply here right now is I'm unsure if the possibility of an array has been mentioned.

          If your it appears to me that you have two inputs to take from one doc and get those two inputs into a 2nd doc.

          if your 1. headline and your 2. news or summary or whatever it is

          If those two have enough flexibility so as to somehow "delimit" with a delimiter of some sort in between # 1 and # 2 then you could SetDelimiter then SetArray

          Doing so would grab it all (both your headline and your news) in just one swoop. You'd have a two item array. For example, given the array variable name

          %inputs%

          then in this case

          ^%inputs1%

          contains your headline

          ^%inputs2%

          contains your news

          This does not use the clipboard. Those are variables. As per the above example, each numeral index (the 1 or 2 at end of variable name), just dump from each of those into the appropriate place in your output doc.

          Regards the delimiter lots of possibilities here. Could use two or three blank lines (between headline and news) such as

          setdelimiter ^p^p

          or

          setdelimiter ^p^p^p

          --
          Alan.
        Your message has been successfully submitted and would be delivered to recipients shortly.