XYplorer Beta Club

Code: Select all

//rewrites tag database with modified tag separator at ini\Settings\TagsSeparator
//--changes from highend's original --
// some invisible handholding, updated disallowed separators list, reopens inputbox in case of invalid input,
// and most importantly, set the new tweak!  :wink: 
    savesettings;
    $tagFile = "<xydata>\tag.dat";
    $tagFileContent = readfile($tagFile);
    $tagFileHeader  = gettoken($tagFileContent, 1, "Data:<crlf>");
    $tagFileTags    = gettoken($tagFileContent, 2, "Data:<crlf>");

    $tagFileVer = regexreplace($tagFileContent, "(XYplorer File Tags v)(\d+)", "$2");
    if ($tagFileVer < 3) { status "tag.dat file must be of version 3 (or later), aborted!", "8B4513", "stop"; end 1==1; }
    $delim = '';
    while ((strlen($delim)!=1) || (regexmatches($delim, "(\|\<|\>|\*|\?)"))){
        $delim = input("Type new tag delimiter here", "Only single character delimiters are possible.<crlf>'<>|*?' are not allowed!", , , , 250, 150);
        if (regexmatches($delim, "(\|\<|\>|\*|\?)")) { status "$delim is not allowed as a replacement delimiter!", "8B4513", "stop"; }
        if (strlen($delim) > 1) { status "The delimiter can only be a SINGLE character!", "8B4513", "stop"; }
    }

    $newTags = "";
    foreach($entry, $tagFileTags, "<crlf>") {
        if !($entry) { continue; }
        $tags = gettoken($entry, 3, "|");
        if ($tags) {
            $newTags = $newTags . regexreplace($entry, "^(.*?\|\d+\|)([^\|]*)(.*(?=$))", "$1" . replace($tags, ",", $delim) . "$3") . "<crlf>";
        } else { $newTags = $newTags . $entry . "<crlf>"; }
    }
    if (confirm("Write the converted tag.dat file back?<crlf 2>(Advice: press OK)")) {
        writefile($tagFile, $tagFileHeader . "Data:<crlf>" . $newTags);
    }
    setkey $delim, 'TagsSeparator', 'Settings';
    echo "XYplorer will automagically restart now, don't worry.",' ',,0;
    exit 'nr';