simply script ascii to hex
Posted: 24 Jun 2022 09:42
hi there, i need a simply script to rename a selected file to hex value and viceversa
any tips?
any tips?
Forum for XYplorer Users and Developers
https://www.xyplorer.com/xyfc/
Code: Select all
"Text to Hex (Rename base)"
$items = get("selecteditemspathnames");
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
renameitem($hexdump, $item);
}
"Hex to Text (Rename base)"
$items = get("selecteditemspathnames");
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$hexdump = hexdump($itemName, 1, "ri");
renameitem($hexdump, $item);
}
-
"Text to Hex (Rename all)"
$items = get("selecteditemspathnames");
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
renameitem($hexdump, $item, 3);
}
"Hex to Text (Rename all)"
$items = get("selecteditemspathnames");
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, "ri");
renameitem($hexdump, $item, 3);
}
Code: Select all
"Text to Hex (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, "ri");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
-
"Text to Hex (Rename all)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
$newNames .= "$hexdump<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename all)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, "ri");
$newNames .= "$hexdump<crlf>";
}
rename l, $newNames, , $items;
Code: Select all
"Text to Hex (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, "ri");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
Code: Select all
"Without 00 (English only):"
-
"Text to Hex (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " 00 ", "");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$case = "1";
$pos = "";
$newBase = "";
while ($pos++ < strlen($itemName)) {
$word = gettoken($itemName, $pos, "");
$next = gettoken($itemName, $pos + 1, "");
if $case == "2" {$case = "1"}
if $case == "0" {$case = "2"}
if($case == "1") {$newBase .= "$word$next" . " 00 "; $case = "0";}
}
$hexdump = hexdump($newBase, 1, "ri");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
-
"Text to Hex (Rename all)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " 00 ", "");
$newNames .= "$hexdump<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename all)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$case = "1";
$pos = "";
$newBase = "";
while ($pos++ < strlen($itemName)) {
$word = gettoken($itemName, $pos, "");
$next = gettoken($itemName, $pos + 1, "");
if $case == "2" {$case = "1"}
if $case == "0" {$case = "2"}
if($case == "1") {$newBase .= "$word$next" . "00"; $case = "0";}
}
$hexdump = hexdump($newBase, 1, "ri");
$newNames .= "$hexdump<crlf>";
}
rename l, $newNames, , $items;
-
"Support non-English:"
-
"Text to Hex (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename base)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2");
$itemEXT = regexreplace($item, "(.*\\)(.*)(....)", "$3");
$hexdump = hexdump($itemName, 1, "ri");
$newNames .= "$hexdump$itemEXT<crlf>";
}
rename l, $newNames, , $items;
-
"Text to Hex (Rename all)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, r);
$hexdump = replace($hexdump, " ", "");
$newNames .= "$hexdump<crlf>";
}
rename l, $newNames, , $items;
"Hex to Text (Rename all)"
$items = get("selecteditemspathnames");
$newNames = "";
foreach($item, $items, "<crlf>", e) {
$itemName = regexreplace($item, "(.*\\)(.*)(....)", "$2$3");
$hexdump = hexdump($itemName, 1, "ri");
$newNames .= "$hexdump<crlf>";
}
rename l, $newNames, , $items;