XYplorer Beta Club

Code: Select all

   $a = "1,2,3,4,5";
 step;
   foreach ($tk, $a, ",") {
 $tst = $tk;
 $b = replace($a, 2, "");
 unset $a;
 $a = $b;
 status "next " . '$tst value CANNOT be 2!';

                            }

Code: Select all

$a = "1,2,3,4,5";

    $cnt = gettoken($a, "count", ",");
    while($i++ < $cnt) {
        $tst = gettoken($a, $i, ",");
        $a = replace($a, 2, "");
    }

Code: Select all

"Dynamic Foreach() loop"
 // an alternative loop to foreach that
 // can keep up with tokenlist updates.
    $a = '1,2,3,4,5';
    $s = ',';
    $c = gettoken($a, 'count', $s);
    while ($i++ < $c) {
        $c      = gettoken($a, 'count', $s);
        if  ($i > $c) { break; }
        status  gettoken($a, $i, $s);
        $a      = '1,,3,4,5,6';
        //$a    = '1,2,3';
    }

Code: Select all

   $re = "";
   $a = <<<hrdc
c:\test\sub\file.txt
c:\stuff\soft\FirefoxPortable\Other
c:\stuff\soft\App
c:\stuff\soft\FirefoxPortable\FirefoxPortable.exe
c:\test\sub2\Other\prog.exe
hrdc;

   $a = formatlist($a, sde, <crlf>);
    $cnt = gettoken($a, "count", "<crlf>");
    while($i++ < $cnt) {
        $tst = gettoken($a, $i, "<crlf>");
        $tst = gettoken($tst, -2, "\", , 1);
        $tst = replace("$tst", "\", "\\");
                $a = regexreplace("$a", "$tst" . ".*$",  "$tst" . "<crlf>"); // here is the key!
                       }

   $a = regexreplace("$a", "\\{2,}", "\");
      $a = regexreplace($a, "\x0A", "");
      $a = regexreplace($a, "\x0D{1,}", "<crlf>");
   $a = formatlist($a, sde, <crlf>);
   text $a;