Forum for XYplorer Users and Developers
https://www.xyplorer.com/xyfc/
Code: Select all
$src = inputfolder(<curpath>, 'pick root folder');
$lst = formatlist(folderreport('dirs', 'r', $src, 'r', , '|'), 'v', '|'); //invert dirlist so deeper folders are processed first
$lst = $lst.'|'.$src ; //inclusive of parent folder
$pattern = input('Enter the string to remove', 'optionally enter a replacement: string/replace. Suffix \ to replace case-sensitively,eg, StR/RepLaCe\',,'s');
$remstr = gettoken($pattern, 1, '/');
$rplstr = gettoken($pattern, 2, '/');
rename 's', $remstr . '/' . $rplstr, , $lst, 1;
//comment out the rename command (the line above) before uncommenting following codeblock.
//vica versa, comment out the following codeblock before uncommenting the rename command.
/*
foreach ($itm, $lst, '|') {
$newname = replace(gettoken($itm, -1, '\'), $remstr, $rplstr);
renameitem($newname, $itm, 1+2+4); //prompt on name-collision
}
*/
#1001; //refreshCode: Select all
$src = inputfolder(<curpath>, 'Pick root folder');
$lst = formatlist(folderreport('items', 'r', $src, 'r', , '|'), 'v', '|'); //invert dirlist so deeper folders are processed first
$lst = $lst.'|'.$src ; //inclusive of parent folder
$patterns = input('Enter the string to remove', "Optionally enter a replacement: string/replace. Suffix \ to replace case-sensitively, eg.: StR/RepLaCe\<crlf 2>Separate additional patterns with a | character", ,'s');
if ($patterns) {
if (gettoken($patterns, "count", "|") == 1) {
$remstr = gettoken($patterns, 1, '/');
$rplstr = gettoken($patterns, 2, '/');
rename 's', $remstr . '/' . $rplstr, , $lst, 1;
} else {
foreach ($itm, $lst, '|') {
$newname = $itm;
foreach($pattern, $patterns, "|") {
$remstr = gettoken($pattern, 1, '/');
$rplstr = gettoken($pattern, 2, '/');
$newname = replace(gettoken($newname, -1, '\'), $remstr, $rplstr);
}
renameitem($newname, $itm, 1+2+4); //prompt on name-collision
}
}
#1001; //refresh
}
Code: Select all
$src = inputfolder(<curpath>, 'Pick root folder');
$lst = formatlist(folderreport('items', 'r', $src, 'r', , '|'), 'v', '|'); //invert dirlist so deeper folders are processed first
$lst = $lst.'|'.$src ; //inclusive of parent folder
$patterns = input('Enter the string to remove', "Optionally enter a replacement: string/replace. Suffix \ to replace case-sensitively, eg.: StR/RepLaCe\<crlf 2>Separate additional patterns with a | character", ,'s');
if ($patterns) {
$unrenamedItems = "";
if (gettoken($patterns, "count", "|") == 1) {
$remstr = gettoken($patterns, 1, '/');
$rplstr = gettoken($patterns, 2, '/');
rename 's', $remstr . '/' . $rplstr, , $lst, 1;
} else {
foreach ($itm, $lst, '|') {
$newname = $itm;
foreach($pattern, $patterns, "|") {
$remstr = gettoken($pattern, 1, '/');
$rplstr = gettoken($pattern, 2, '/');
$newname = replace(gettoken($newname, -1, '\'), $remstr, $rplstr);
}
$output = renameitem($newname, $itm, 1+2+4); //prompt on name-collision
if !($output) { $unrenamedItems = $unrenamedItems . "$itm<crlf>"; }
}
}
if ($unrenamedItems) { text "These items could not be renamed:<crlf 2>$unrenamedItems"; }
#1001; //refresh
}
Code: Select all
$src = inputfolder(<curpath>, 'Pick root folder');
$lst = formatlist(folderreport('items', 'r', $src, 'r', , '|'), 'v', '|'); //invert dirlist so deeper folders are processed first
$lst = $lst.'|'.$src ; //inclusive of parent folder
$patterns = input('Enter the string to remove', "Optionally enter a replacement: string/replace. Suffix \ to replace case-sensitively, eg.: StR/RepLaCe\<crlf 2>Separate additional patterns with a | character", ,'s');
if ($patterns) {
$unrenamedItems = "";
foreach ($itm, $lst, '|') {
$newname = $itm;
foreach($pattern, $patterns, "|") {
$remstr = gettoken($pattern, 1, '/');
$rplstr = gettoken($pattern, 2, '/');
$newname = replace(gettoken($newname, -1, '\'), $remstr, $rplstr);
}
$output = renameitem($newname, $itm, 1+2+4); //prompt on name-collision
if !($output) { $unrenamedItems = $unrenamedItems . "$itm<crlf>"; }
}
if ($unrenamedItems) { text "These items could not be renamed:<crlf 2>$unrenamedItems"; }
#1001; //refresh
}
Code: Select all
$src = inputfolder(<curpath>, 'Pick root folder');
$lst = formatlist(folderreport('items', 'r', $src, 'r', , '|'), 'v', '|'); //invert dirlist so deeper folders are processed first
$lst = $lst.'|'.$src ; //inclusive of parent folder
$patterns = input('Enter the string to remove', "Optionally enter a replacement: string/replace. Suffix \ to replace case-sensitively, eg.: StR/RepLaCe\<crlf 2>Separate additional patterns with a | character", ,'s');
if ($patterns) {
$count = 0;
$countAll = gettoken($lst, "count", "|");
$unrenamedItems = "";
foreach ($itm, $lst, '|') {
$oldname = gettoken($itm, -1, '\');
foreach($pattern, $patterns, "|") {
$remstr = gettoken($pattern, 1, '/');
$rplstr = gettoken($pattern, 2, '/');
$newname = replace(gettoken($oldname, -1, '\'), $remstr, $rplstr);
}
if ($newname != $oldname) {
$output = renameitem($newname, $itm, 1+2+4); //prompt on name-collision
if !($output) { $unrenamedItems = $unrenamedItems . "$itm<crlf>"; }
else { $count++; }
}
}
#1001; //refresh
$message = ($unrenamedItems) ? "<crlf 3>These items could not be renamed:<crlf 2>$unrenamedItems" : "";
text "Items renamed: $count of $countAll$message";
}
Nothing we can do about until Don changes the renameitem() function...I would have to click continue an infinite number of times before I finally got a listing of the locked files.
Fixed.When I was testing this, I noticed that when you have multiple renames using the "|", it only seems to change the last one of the list
Added.Also, could this be made to let you choose whether you want to perform the action on Folders, Files or Folders and Files?
Code: Select all
$src = inputfolder(<curpath>, 'Pick root folder');
$type = inputselect("Choose if you want to process files, folders or both...", "Files|Folders|Files & Folders", "|", 4+32+128, , 350, 300);
if ($type == 1) { $type = "files"; }
elseif ($type == 2) { $type = "dirs"; }
elseif ($type == 3) { $type = "items"; }
$lst = formatlist(folderreport($type, 'r', $src, 'r', , '|'), 'v', '|') . "|$src"; // Invert dirlist so deeper folders are processed first + include root folder
$patterns = input('Enter the string to remove', "Optionally enter a replacement: string/replace. Suffix \ to replace case-sensitively, eg.: StR/RepLaCe\<crlf 2>Separate additional patterns with a | character", ,'s');
if ($patterns) {
$count = 0;
$countAll = gettoken($lst, "count", "|");
$unrenamedItems = "";
foreach ($itm, $lst, '|') {
$oldname = gettoken($itm, -1, '\');
$newname = $oldname;
foreach($pattern, $patterns, "|") {
$remstr = gettoken($pattern, 1, '/');
$rplstr = gettoken($pattern, 2, '/');
$newname = replace($newname, $remstr, $rplstr);
}
if ($newname != $oldname) {
$output = renameitem($newname, $itm, 1+2+4); //prompt on name-collision
if !($output) { $unrenamedItems = $unrenamedItems . "$itm<crlf>"; }
else { $count++; }
}
}
#1001; //refresh
$message = ($unrenamedItems) ? "<crlf 3>These items could not be renamed:<crlf 2>$unrenamedItems" : "";
text "Items renamed: $count of $countAll$message";
}
