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

Re: [Clip] Wizard1,Wizard2+

Expand Messages
  • dandiebolt@yahoo.com
    I wanted something along these lines: H= Example Wizard #1: First Name= ^?[FirstName] Wizard #1: LastName= ^?[LastName] Wizard #1: Phone= ^?[Phone] ...
    Message 1 of 3 , Mar 2, 2001
      I wanted something along these lines:

      H="Example"
      Wizard #1: First Name="^?[FirstName]"
      Wizard #1: LastName="^?[LastName]"
      Wizard #1: Phone="^?[Phone]"

      :Loop
      ^!Set %Field1%=^?{Field #1}; %Field2%=^?{Field #2};; %Field3%=^?
      {Field #3};
      ^!IfCancel Fini
      Wizard #2: Field1^%Field1%, Field2=^%Field2%, Field3=^%Field3%

      ^!Goto Loop
      :Fini
      The End


      I am using IfCancel to detect the termination of thr list.

      I have made my problem statement to the list very simple,
      but suffice it to say my application is XML related and I
      have hierarchy to indent. I can use the technique of the
      above clip, but now I am facing an ubindent problem with
      the outer delimiter (The End). If the field info was
      indented and I have AutoIndent turned on, how would I
      unindent one level the closing text"The End".

      Thanks in advance.


      --- In ntb-clips@y..., Stephen <stephen@b...> wrote:
      > Hi,
      > Is this what you want?
      >
      >
      > H="Input Phone List"
      > ^!Set %firstname%=^?{What is the first name?}; %lastname%=^?{What
      is the
      > last name?}; %phone%=^?{What is the phone number?}
      > ;^!Append %temp%=|^%firstname% ^%lastname%, Phone: ^%phone%
      > ^!Append %temp%=^%NL%^%firstname% ^%lastname%, Phone: ^%phone%
      > ^!Clip "Check Phone List"
      >
      >
      > H="Check Phone List"
      > ;^!SetListDelimiter |
      > ;^!SetArray %temp%=^?{(T=A;H=10)Which values do you want to
      > keep=^%temp%}
      > ;^!Set %keepgoin%=^?{Do you wish to add another Phone Number?
      ==_Yes|No}
      > ^!Set %keepgoin%=^?{Do you wish to add another Phone Number?
      ==_Yes|No};
      > %temp%=^?{(T=W;H=10)Check and edit these values=^%temp%}
      > ^!IfSame ^%keepgoin% No SKIP
      > ^!Clip "Input Phone List"
      > ^!Set %temp%=^$StrReplace("|";"^%NL%";"^%temp%";FALSE;FALSE)$
      > ^%temp%^%NL%
      > ^!ClearVariable %temp%
      >
      > I did not use any square bracket wizards, only curly braces, but I
      > believe it does what you want it to do
      >
      > Stephen
    • Stephen
      Hi Dandiebolt If the rest of the clip is doing what you need, put this code at the end of it, replacing your The End The End ^!Find
      Message 2 of 3 , Mar 3, 2001
        Hi Dandiebolt
        If the rest of the clip is doing what you need,
        put this code at the end of it, replacing your "The End"


        <!--Mark1-->
        <!--Mark2-->The End
        ^!Find "<!--Mark1-->" TSW
        ^!Set %thecolumn%=^$GetCol$; %therow%=^$GetRow$
        ^!Find "<!--Mark2-->" TSW
        ^!Jump SELECT_END
        ^!SelectTo ^%therow%:^%thecolumn%
        ^!Keyboard DELETE
        ^!Keyboard ENTER


        There may be fancier ways to get rid of the unwanted white space, but
        this works and is pretty straightforward.

        Goo'luck
        Stephen
      Your message has been successfully submitted and would be delivered to recipients shortly.