XYplorer Beta Club

Code: Select all

//Display the Length Property # of the current system.
"Find Length Property : showProp"
	Global($prop);
	Sub("_getProp");
	$prop = $prop == 100 ? "Could not find length property for the current item." : "The Length Property is #$prop.";
	Echo($prop);

//Brute Force through Properties to find the length.
"_getProp"
	Global($prop);
	$prop = 1;
	while ($prop < 100) {
		$test = RegExReplace(Property("#$prop", "<curitem>"), "^[0-9]+:[0-9]+:[0-9]+$", ":::MATCH:::");
		if ($test Like ":::MATCH:::") { break; }
		$prop++;
	}

"Calculate Length of Selection"
	/* Find the Property number corresponding to the length.
		You can remove the next three lines if you replace "$prop" below
		with the number returned by "Find Length Property".
	*/
	Global($prop);
	Sub("_getProp");
	End($prop == 100, "Could not find length property of:<crlf><curitem>");

	//Convert the length of each item to seconds and sum them.
	Global($sec);
	$result = Report('Eval(RegExReplace(Property("#' . $prop . '","{FullName}"),"^([0-9]+):([0-9]+):([0-9]+)$","$1*3600+$2*60+$3"))+',1,'Global($sec);$sec=Eval(','0);');
	Load("$result",,"s");

	//Convert from seconds back to hh:mm:ss
	$hrs = '00';
	$min = '00';

	if ($sec >= 3600) {
		$hrs = GetToken($sec / 3600, 1, '.');
		$sec = $sec - $hrs*3600;
		$hrs = $hrs < 10 ? "0$hrs" : $hrs;
	}

	if ($sec >= 60) {
		$min = GetToken($sec / 60, 1, '.');
		$sec = $sec - $min*60;
		$min = $min < 10 ? "0$min" : $min;
	}

	$sec = $sec < 10 ? "0$sec" : $sec;

	Echo("Total Length: $hrs:$min:$sec");