XYplorer Beta Club

Code: Select all

End(GetInfo("CountSelected") < 1, "No item(s) selected.");
	Global($files);
	$files = Report("{Dir |{FullName};{Ext}<crlf>|}", 1);
	Setting("AllowRecursion", 1);
	Sub("_newTXT");
	RegexReplace($files, $files, "^(.*);.*<crlf>", "$1|");
	Delete(1,1,$files);


"_newTXT"
	Global($files, $i);
	$i = $i Like "" ? 1 : $i;
	$token = GetToken($files, $i, "<crlf>");
	End($token Like "",, 1);
	$file = GetToken($token, 1, ";");
	$ext = GetToken($token, 2, ";");
	RegexReplace($newFile, $file, "$ext$", "txt");
	New($newFile);
	$i = $i + 1;
	Sub("_newTXT");