Code: Select all
$media = get("genericfiletype", "{:media}", "|");
perm $sterm;
$s = trim(input("Everything", "\word boundaries<crlf>hold Shift key search media files","$sterm"), , "l");
$sterm = "$s";
if (regexmatches($s, "^\\")) { $s = regexreplace($s, "^\\", "regex:\b"); }
if (<get "shift"> == 1) { $s= "$s $media" }
end !($s); end ($s == "regex:\b");
$s = "!<shell:windows\WinSxS\|*.lnk|size:0> $s";
$s = replacelist("$s", "^,&,<,>,|,-,", "^^,^&,^<,^>,^|,""-""", ",");
$s = RegExReplace("$s", "\|+$", "");
$s = runret("cmd /c chcp 65001&&es.exe -no-result-error $s", %winsysdir%, 65001);
$s = RegExReplace("$s", "Active code page: 65001.?<crlf>", "");
if regexmatches("$s", "Error \d+:") {msg $s;end true}
if not (regexmatches(<get "tabs" <crlf>>, "paper:es$")) {tab("new", "paper:es");}
goto "paper:es", 1;
paperfolder(, , , "oi1");paperfolder(, , , "op0");
paperfolder(, , , "oe1");
paperfolder("es", $s, , "ns");
paperfolder(, , , "oe0"); //Explicit Save OFF
//goto inputselect(, $s, <crlf>, 1+4096), 1;