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

17163Re: Running letters

Expand Messages
  • ebbtidalflats
    Nov 30, 2007
    • 0 Attachment
      OOPS!

      I had to replace my previous post -- hope nobody tried it.

      Here it is again, typo corrected:


      When you have the answer, but not the question,
      you must be in the "Jeopardy" zone.


      But as long as we're talking Jeopardy, here is another answer,
      straight from my personal clipbar. Win 2000 Monopoly Dollars,
      if ring in first, AND come up with the answer:

      ^!Set %string%=^$StrSplit("^%String%";1;1)$
      ^!Set %string%=^$StrReplace("^%nl%";"^%SPACE%";"^%String%";1;1)$

      Insert after line 1 of the code below ;)


      Eb


      --- In ntb-clips@yahoogroups.com, "Flo" <flo.gehrke@...> wrote:
      >
      > Hi,
      >
      > Isn't this a nice solution? Unfortunately, I haven't found a use for
      > it so far...
      >
      >
      > ^!Set %String%=Long live NoteTab!
      > ^!Set %Repeat%=0
      >
      > :Start
      > ^!Set %IndexLeft%=^$StrSize(^%String%)$
      > ^!Set %IndexRight%=0
      >
      > :Loop
      > ^!Set %Left%=^$StrCopyRight("^%String%";^%IndexLeft%)$
      > ^!Set %Right%=^$StrCopy("^%String%";1;^%IndexRight%)$
      > ^!StatusShow ^%Left% - ^%Right%
      > ^!Delay 5
      > ^!Dec %IndexLeft%
      > ^!Inc %IndexRight%
      > ^!If ^%IndexRight% <=^$StrSize(^%String%)$ Loop Else Next
      > ^!Inc %Repeat%
      > ^!If ^%Repeat%=3 End
      > ^!Goto Start
      >
      >
      > Enjoy!
      > Flo
      >
    • Show all 2 messages in this topic