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

RE: [Clip] Re: More Fun With rundll and rundll32.exe

Expand Messages
  • Raymond Fitzgerald
    Hi Eb, ... I m not qualified to comment here, but I m willing to bet there s a logical technical explanation. ... Don t see why not--try these two. Note that
    Message 1 of 1 , Apr 5, 2000
    • 0 Attachment
      Hi Eb,

      You're welcome. Maybe this'll help some too:

      >>H=Delimiter ^p
      >>...
      >>
      >>What I'm getting from all this is that we can use the token in setting the
      >>delimiter, but when the array is actually set, it needs the real thing.
      >
      >
      >I believe you're right. Though I think this should
      >NOT be so.

      I'm not qualified to comment here, but I'm willing to bet there's a logical
      technical explanation.

      >I think we should be able to assign array LHS to array
      >RHS even if they have different delimiters, i.e.
      >
      >^!SetArray %LHS%=^%RHS%
      >
      >and still have the elements ordered as before.

      Don't see why not--try these two. Note that version 1 works even with ^t,
      ^p, and ^p^p, while version 2, like the "Sample delimiters" clip from
      yesterday, doesn't work with those tokens (but does with their variable
      counterparts):

      H="SetArray LHS=RHS v1"
      SetArray LHS=RHS v1
      ^!SetArray %RHS%=a;b;c
      ^!SetWizardTitle "Delimiter should be the default"
      ^!Info [L]Array RHS has ^%RHS0% items:^p^p^%RHS%
      :CHOOSE
      ^!SetWizardTitle "Choose new delimiter"
      ; long line follows!
      ^!Set %D%=^?{(H=8)==Default (;)^=;|_Vbar|Space^="
      "|^t|%tab%^=^%tab%|^p|^p^p|%nl%^=^%nl%}
      ; end of long line
      ^!If ^%D%=Vbar ^!Set %D%=|
      ^!SetListDelimiter ^%D%
      ^!SetArray %LHS%=^$StrReplace(";";"^%D%";"^%RHS";False;False)$
      ^!SetWizardTitle "Delimiter should be: ^%D%"
      ^!Info [L]Array LHS has ^%LHS0% items:^p^p^%LHS%
      ^!Goto Choose
      ; end of clip

      H="SetArray LHS=RHS v2"
      ^!SetArray %RHS%=a;b;c
      ^!SetWizardTitle "Delimiter should be the default"
      ^!Info [L]Array RHS has ^%RHS0% items:^p^p^%RHS%
      :CHOOSE
      ^!SetWizardTitle "Choose new delimiter"
      ; long line follows
      ^!Set %D%=^?{(H=8)==Default (;)^=;|_Vbar|Space^="
      "|^t|%tab%^=^%tab%|^p|^p^p|%nl%^=^%nl%}
      ; end of long line
      ^!If ^%D%=Vbar ^!Set %D%=|
      ^!SetListDelimiter ^%D%
      ^!Set %Max%=^%RHS0%
      ^!Set %Nr%=1
      ^!Set %LHS%=^%RHS1%
      :LOOP
      ^!Inc %Nr%
      ^!If ^%Nr% > ^%Max% SetArray
      ^!Append %LHS%=^%D%^%RHS^%Nr%%
      ^!Goto Loop
      :SETARRAY
      ^!SetArray %LHS%=^%LHS%
      ^!SetWizardTitle "Delimiter should be: ^%D%"
      ^!Info [L]Array LHS has ^%LHS0% items:^p^p^%LHS%
      ^!Goto Choose
      ; end of clip

      Cheers,
      Ray
    Your message has been successfully submitted and would be delivered to recipients shortly.