Code: Select all
$str = "<clipboard>";
//after Capital there MUST be a lower case
while(1)
{
$test = regexreplace($str, "[A-Z][A-Z]", "XXX", 1);
if ($test==$str){break;}
else{
$a = regexreplace($str, "(.*)([A-Z])([A-Z])(.*)", "$1", 1 );
$b = regexreplace($str, "(.*)([A-Z])([A-Z])(.*)", "$2", 1 );
$c = recase(regexreplace($str, "(.*)([A-Z])([A-Z])(.*)", "$3", 1 ), "lower");
$d = regexreplace($str, "(.*)([A-Z])([A-Z])(.*)", "$4", 1 );
$str = $a$b$c$d;
}
}
$str = recase("$str", "title", 1);
$str = replace($str," ","");
$str = RegexReplace($str, '[()"{}\[\]]', '_');
$str = RegexReplace($str, '[-'':=\\/<>ῳ|*^$#@~’,]', '_');
$str = replace($str,"!","I");
$str = replace($str,"?","G");
$str = replace($str,"&","And");
$str = replace($str,"+","Plus");
$str = RegexReplace($str, "any excessive expression which must be deleted - ", "");
//start a sentence with capitals
$str = recase( substr($str, 0, 1), "upper") . substr($str, 1);
//make capitals after "_"
while(1)
{
$test = regexreplace($str, "_[a-z]", "XXX", 1);
if ($test==$str){break;}
else{
$a = regexreplace($str, "(.*?)_([a-z])(.*)", "$1", 1 ) . "_";
$b = recase(regexreplace($str, "(.*?)_([a-z])(.*)", "$2", 1 ), "upper");
$c = regexreplace($str, "(.*?)_([a-z])(.*)", "$3", 1 );
$str = $a$b$c;
}
}
//make capitals after numbers
while(1)
{
$test = regexreplace($str, "\d[a-z]", "XXX", 1);
if ($test==$str){break;}
else{
$a = regexreplace($str, "(.*?\d+)([a-z])(.*)", "$1", 1 );
$b = recase(regexreplace($str, "(.*?\d+)([a-z])(.*)", "$2", 1 ), "upper");
$c = regexreplace($str, "(.*?\d+)([a-z])(.*)", "$3", 1 );
$str = $a$b$c;
}
}
//regEx to get rid of underscores when they are followed by any extension: File_.exe >> File.exe.
$str = regexreplace($str, "(.+)_(\..+)", "$1$2");
$str = replace($str,".","");
copytext $str; //to clipboard
status "Clipboard: '$str'!";
XYplorer Beta Club
