XYplorer Beta Club

Code: Select all

@echo off
if /I %~x1==%~x2 exit
if /I %~x1 NEQ .jpg (if /I %~x2 NEQ .jpg exit)
if /I %~x1 NEQ .rar (if /I %~x2 NEQ .rar exit)
if /I %~x1==.jpg (
copy /b %1+ %2 "%~d1%~p1%~n1.cbr"
) else (
copy /b %2+%1 "%~d2%~p2%~n2.cbr")

Code: Select all

WriteFile('combined.jpg', ReadFile('image.jpg', 'b') . ReadFile('archive.rar', 'b'), 'r', 'b');

Code: Select all

"rar"
   $ext = ".xmp"; // WITH dot!
   $exe = get("regcmd", "rar");
// step;
   $getx = gettoken($exe, -2, ".", 2);
   $getx = gettoken($getx, 2, "=");
   $exe = trim($getx, '"');
   $exe = trim($exe, ' ');
   $exe = "$exe" . ".exe";

   $a = get(selecteditemspathnames);
   foreach($tk, "$a", "<crlf>") {
// step;
   focus;
   $nm = getpathcomponent("$tk", base);

   $tk2 = quote("$tk");

   run "$exe" "x" $tk2, , 2;

   $b = readfile("$nm" . "$ext", b);
// step;
   writefile("NewFile" . "$ext", "$b", a, b);
// step;
   delete 1, 0, "<curpath>\" . "$nm" . "$ext";
   status "done: $nm...";


                                }

   echo "all done, anyway...";
"non-rar"
   $a = get(selecteditemspathnames);
   foreach($tk, "$a", "<crlf>") {
// step;
   focus;
   $nm = getpathcomponent("$tk", base);
   $ext = getpathcomponent("$tk", ext);

   $b = readfile("$tk", b);
// step;
   writefile("NewFile." . "$ext", "$b", a, b);

   status "done: $nm...";


                                }

   echo "all done, anyway...";