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

Re: [Clip] Copying between clip and text

Expand Messages
  • Larry Thomas
    ... I decided that I needed two clips to do this. I hope you are not disapointed. The first clip sets the headline variable to the selection and the second
    Message 1 of 9 , Jul 29, 2003
    • 0 Attachment
      At 10:15 AM 7/29/03 -0400, you 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$ and then have your clip unselect the headline
      >>and select the story summary and ^!Set %Summary%=^$GetSelection$ then
      >>switch documents and ^!InsertText ^%Headline% into the place where the
      >>headline goes and ^!InsertText ^%Summary% into the place where the summary
      >>goes.
      >
      >
      >This looks good, however, I am not sure how to implement it.
      >
      >Lee

      I decided that I needed two clips to do this. I hope you are not
      disapointed. The first clip sets the headline variable to the selection
      and the second sets the summary variable to the article summary and creates
      the web document entry. If you select no text, nothing will appear in the
      wizards and nothing will be inserted except what you type. If you select
      text before running each clip, the text will appear in the wizards and you
      can accept it or replace it or edit it as you wish and it will appear in
      the final web entry. You must run the Articles Headings clip first and
      then run the Articles Finish Doc to finish up your article. I hope that
      this is what you were wanting. It is in two clips but at least you do not
      have to switch back and forth. And you should be able to modify it if you
      do not want the finished doc to be pasted into a new document. I wrote it
      as two clips because I could not figure just off hand how to get the clip
      to stop and let me make a second selection for the summary and I had no
      idea how you are selecting the headlines and articles from your source so I
      could not know how to make one clip that would make the selections itself.
      Sorry.


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

      H="HTML Articles Finish Doc"
      ;lrt@... e¿ê
      ;07/29/2003, 10:33:27 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>
      _____[Copy above this line]______
      | right click over the clipbook |
      | and choose "Add from Clipboard" |
      ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
      You can remove the commented long lin markers after you Modify/Join the
      long line. They are just there to tell you that you have a long line that
      may be broken in the email transit.

      After you join the long line, just select the clips between the begnning
      and ending markers and copy them to the clipboard. Then go to the library
      where you want them and clip on the clip just above where you want to
      install them and right click on it and select "Add from Clipboard" and they
      should be installed and ready to test run.


      Regards,

      Larry
      lrt@... e¿ê
    • 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 2 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 3 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 4 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.