Code: Select all
$s = popupmenu("test1|test2");
runret ("cmd /k ""chcp 65001 & ""<xyscripts>\es"" -s $s > ""<xydata>\S-Everything.txt"" &exit""", , 1);
writefile("<xypaper>\S-Everything.txt", readfile("<xydata>\S-Everything.txt", t, , 65001), , "tu");
delete 0, 0, "<xydata>\S-Everything.txt"; if (tab("get", "path") != "paper:S-Everything") {
tab("new", "paper:S-Everything");};delete 0, 0, "<xydata>\S-Everything.txt";
XYplorer Beta Club