XYplorer Beta Club

Code: Select all

//Combine selected files in order
"Concatenate Files"
	$itemCount = get("CountSelected");
	if ($itemCount < 2){
		msg "Please select two or more files to concatenate.", 0 + 48;
	}
	else {
		//No modifier keys pressed - use defaults
		$outputFileExt = getpathcomponent("<selitem>", "ext");
		
		//Initialise variables used in loop
		$outputFilePath = <curpath> . "\" . <date yyyy-mm-dd-hh-mm-ss> . ".$outputFileExt";
		$index = 0;

		//Process files
		foreach($token, <get selecteditemspathnames |>) {
			$index = $index + 1;
			$fileContent = readfile("$token");
			writefile("$outputFilePath", $fileContent, "a");
		}
		status "Concatenated file generation complete - $outputFilePath";
	}

Code: Select all

a.txt    = 120594130 bytes
b.txt    =  14565900 bytes
join.txt = 119423500 bytes

Code: Select all

$outputFile = getpathcomponent("<selitem>", "ext");

$copycmd = "Copy /b ";
foreach($token, <get selecteditemspathnames |>)
{
  $index = $index + 1;
  $copycmd = $copycmd + "+" + "$token";
}
$copycmd = $copycmd + " " + $outputFile

execute $copycmd;

Code: Select all

    $itemCount = get("CountSelected");
    $outputFileExt = getpathcomponent("<selitem>", "ext");
    $outputFilePath = <curpath> . "\" . <date yyyy-mm-dd-hh-mm-ss> . ".$outputFileExt";
    $copycmd = "";
    foreach($token, <get selecteditemspathnames |>) {
        $copycmd = ($copycmd) ? $copycmd . " + " . quote($token) : quote($token);
    }
    $copycmd .= " " . quote($outputFilePath);
    run """cmd"" /c copy /b $copycmd", , , 0;