Rename to Aid Sorting Candidates

RJM Programming - April, 2018

Existing Filename
in " . $dprefix . "
satisfying " . $asteriskybit . "		Could Rename to Aid
With Numerical File Sorts		Make That Happen?
Relative to This Program Directory:

Filename Prefix (that File Filter does not apply to):

File Filter:

"; foreach (glob($dprefix . $asteriskybit) as $filename) { //echo $filename . "\n"; //$htmlis=str_replace("","\n" . str_replace($dprefix, "", $filename) . "\n",$htmlis); $thisext="." . explode(".", str_replace($dprefix, "", $filename))[-1 + sizeof(explode(".", str_replace($dprefix, "", $filename)))]; $nfields=1; $ncnt=0; $delimis="."; while (substr(str_replace($dprefix, "", $filename),$ncnt,1) >= '0' && substr(str_replace($dprefix, "", $filename),$ncnt,1) <= '9') { $ncnt++; } if (substr(str_replace($dprefix, "", $filename),$ncnt,1) != '.') { $delimis=substr(str_replace($dprefix, "", $filename),$ncnt,1); $nfs=explode(substr(str_replace($dprefix, "", $filename),$ncnt,1), str_replace($dprefix, "", $filename)); $nfields=sizeof($nfs); } $fileis[sizeof($fileis)]=str_replace($dprefix, "", $filename); $categoryis[sizeof($categoryis)]=$thisext . "." . $nfields . ";" . $delimis; $numcis[sizeof($numcis)]=$ncnt; $extarrlongestnumerical[sizeof($extarrlongestnumerical)]=$ncnt; $extarr[sizeof($extarr)]=$thisext; if (strpos($extlist, "," . $thisext . "." . $nfields . ";" . $delimis . ",") === false) { //echo str_replace($dprefix, "", $filename) . " ... " . $thisext . "." . $nfields . ";" . $delimis; //exit; $extlist.=$thisext . "." . $nfields . ";" . $delimis . ","; $ext_nl_list.="" . $ncnt . ","; // count of numbers before delimiter happens $ext_nf_list.="" . $nfields . ","; // count of fields of delimiter below $ext_dl_list.="" . $delimis . ","; // delimiter $ext_fo_list.="" . str_replace($dprefix, "", $filename) . ","; // first filename example //$fileis[sizeof($fileis)]=str_replace($dprefix, "", $filename); //$categoryis[sizeof($categoryis)]=$thisext . "." . $nfields . ";" . $delimis; //$numcis[sizeof($numcis)]=$ncnt; } else { $xxsl=sizeof(explode(",", explode("," . $thisext . "." . $nfields . ";" . $delimis . ",", $extlist)[0])); $vsx=explode(",", $ext_nl_list); if ($vsx[$xxsl] != $ncnt) { //$fileis[sizeof($fileis)]=str_replace($dprefix, "", $filename); //$categoryis[sizeof($categoryis)]=$thisext . "." . $nfields . ";" . $delimis; //$numcis[sizeof($numcis)]=$ncnt; if ($ncnt < $vsx[$xxsl]) { $changesfrom[sizeof($changesfrom)]=str_replace($dprefix, "", $filename); $prefix=""; while ($ncnt < $vsx[$xxsl]) { $prefix.="0"; $ncnt++; } $changesto[sizeof($changesto)]=$prefix . str_replace($dprefix, "", $filename); //echo "0 " . $prefix . str_replace($dprefix, "", $filename) . $xxsl . "
" . explode(",",$ext_fo_list)[$xxsl] . "
" . $thisext . "." . $nfields . ";" . $delimis . "
" . str_replace($dprefix, "", $filename) . " \$vsx[\$xxsl]=" . $vsx[$xxsl] . " and \$ncnt=" . $ncnt . " ... " . $ext_fo_list; // //$ext_nl_list[$xxsl].=";" . $nfields; //exit; } else { $recon=$vsx[0]; for ($ivi=1; $ivi 3) { //echo $thisext . "." . $nfields . ";" . $delimis . " changing from " . $vsx[$ivi] . " to " . $ncnt . "
" . $extlist . "
" . $ext_nl_list . "
to
" . $recon; //exit; //} $ext_nl_list=$recon; //$fileis[sizeof($fileis)]=str_replace($dprefix, "", $filename); //$categoryis[sizeof($categoryis)]=$thisext . "." . $nfields . ";" . $delimis; //$numcis[sizeof($numcis)]=$ncnt; for ($ii=0; $ii" . explode(",",$ext_fo_list)[$xxsl] . "
" . $thisext . "." . $nfields . ";" . $delimis . "
" . str_replace($dprefix, "", $filename) . " \$vsx[\$xxsl]=" . $vsx[$xxsl] . " and \$ncnt=" . $ncnt . " ... " . $ext_fo_list; // //$ext_nl_list[$xxsl].=";" . $nfields; //exit; } } } $cnt++; } foreach (glob($dprefix . $asteriskybit) as $filename) { //$htmlis=str_replace("","\n" . str_replace($dprefix, "", $filename) . "\n",$htmlis); $found=false; $newf=""; for ($iu=(-1 + sizeof($changesfrom)); $iu>=0; $iu--) { if (!$found) { if ($fileis[$recnt] == $changesfrom[$iu] && $changesto[$iu] != $fileis[$recnt] && trim($changesto[$iu]) != "" && strpos($changesto[$iu],".") !== false) { //$newf=$putthisback . $changesto[$iu]; $newf=""; } } } if ($fileis[$recnt] != '') { $htmlis=str_replace("","\n" . $putthisback . $fileis[$recnt] . "" . $newf . "\n",$htmlis); $recnt++; } } //echo sizeof($fileis); echo $htmlis; ?>