[SC] Variable name contain <var>

[binocular222]

This is my general idea but does not works:

Code: Select all

  $Count = 100;
  while($Count <= 104){
    perm $c$Index;
    $c$Index = gettoken(get("MenuCaption", $c$Index, 1), 2, "<tab>");
    Incr $Index;
  }
  echo $c100

How to quickly declare a lot of variables (i.e: $c100, $c101,...,$c1077)?

[bdeshi]

creates permavars $c100,$c101... with values of 100,101...

Code: Select all

  $count = 100;
  while($count <= 104) {
    $var = '$c'.$count;
    //text "variable created: $var";
    //$value = gettoken(get("MenuCaption", $count, 1), 2, "<tab>");
    $value = $count; //dummy values
    load("perm $var = $value;",, s);
    $count++;
  }

[binocular222]

Genius! You should have joined this community sooner.
But XY take a significant time to process such as large demand.

Code: Select all

  $count = 100;
  while($count <= 250) {
    $var = '$c'.$count;
    $value = gettoken(get("MenuCaption", $count, 1), 2, "<tab>");
    load("perm $var = $value;",, s);
    $count++;
  }
  echo $c105

@Don: anything unusual with perm?

[bdeshi]

Thanks! I guess I should've discovered XYplorer sooner


BTW, don't know what you're doing, but you probably want to use this instead:

Code: Select all

$value = quote(gettoken(get("MenuCaption", $count, 1), 2, "<tab>"));

[admin]

OK, that was a very inspiring thread.

1) I discovered the bug that made it so slow.
2) I added a deference operator that will make this stuff much faster.

BTW, you should quote that value:

Code: Select all

OLD: load("perm $var = $value;",, s);
NEW: load("perm $var = ""$value"";",, s);

But this is now obsolete anyway. This script should look like this in the next version:

Code: Select all

  $count = 100;
  while($count <= 250) {
    $var = '$c'.$count;
    $value = gettoken(get("MenuCaption", $count, 1), 2, "<tab>");
    perm *$var = $value;
    $count++;
  }
  echo $c105;

[binocular222]

Thanks Don, now I can build a custom menu of frequently-used-XYnative command such as

Code: Select all

"_Initialize"
  if(isset($c101) == 0) {
    $count = 100;
    while($count <= 1077) {
      $Command = '$c'.$count;
      $KBshortcut = gettoken(get("MenuCaption", $count, 1), 2, "<tab>");
      perm *$Command = $KBshortcut;
      $count++;
    }
  };

"Minitree $c489|:minitree" #489
"Toggle Fav Folder $c566|:favs" #566
"Branch view $c311|:flatview" #311
"$HiddenFile|:showhidden" #493; status "Hidden files: " . get("#493", "Show", "Hide") . " | System files: " . get("#494", "Show", "Hide")
"$SystemFile|:showsystem" #494; status "Hidden files: " . get("#493", "Show", "Hide") . " | System files: " . get("#494", "Show", "Hide")

[bdeshi]

XY can construct dynamic variables now!!!!
Don, you are a genie with unlimited wishes!

[admin]

The line is missing:

Code: Select all

perm *$Command = $KBshortcut;

Don't see a bug after adding the line.

[binocular222]

Yeah, sorry, I found my mistake.
But why not expand the dereference operator to normal variable, not just global/perm?

[FluxTorpedoe]

XY can construct dynamic variables now!!!!
Don, you are a genie with unlimited wishes!

Yeahhh! This one is terrific!
And yet another old wish auto-granted… Fertile week indeed!

[bdeshi]

@binocular222, Works with normal variables too!

[admin]

Where is this cemetry of old Flux wishes? Seems to be a gold mine...

[admin]

Yeah, sorry, I found my mistake.
But why not expand the dereference operator to normal variable, not just global/perm?

I did. Check out the change log...

[FluxTorpedoe]

Where is this cemetry of old Flux wishes? Seems to be a gold mine...

Well, there's lots more where that came from…
This week's were voiced via forum or PM, but I've a nice bunch waiting for you… undisclosed — to spare me a shameful status!

[admin]

Keep them if you can. I enjoy getting ideas myself much more than being fed with the ideas of others.