XYplorer Beta Club

Code: Select all

    $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 = input("Convert tag delimiter", "Only single character delimiters are possible.<crlf>'|,<,>,* and ?' are not allowed as a replacement character!", , , , 250, 150);
    if (regexmatches($delim, "(\|<|>|\*|\?)")) { status "$delim is not allowed as a replacement delimiter, aborted!", "8B4513", "stop"; end 1==1; }
    if (strlen($delim) > 1) { status "The delimiter can only be a SINGLE character, aborted!", "8B4513", "stop"; end 1==1; }

    $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?")) {
        writefile($tagFile, $tagFileHeader . "Data:<crlf>" . $newTags);
    }

Code: Select all

    + Tag Search: Added tweak to allow partial matches in tag search. There are 
      three values:
        
        TagsFindPartialMatch=0      match the whole tag (factory default)
                                    e.g. pattern "rock" matches tag "rock"
        
        TagsFindPartialMatch=1      match any words in tag
                                    e.g. pattern "rock" matches tag "rock and roll"
        
        TagsFindPartialMatch=2      match any part of tag
                                    e.g. pattern "rock" matches tag "rocking" or "sprock"
                                    
      The tweak affects Quick Search as well as Find Files | Tags. It affects 
      only tags, not labels or comments.
      If a pattern has wildcards and there is NO verbatim flag (/v), then the 
      tweak is ignored and matching is done against the present wildcards.

Code: Select all

    * Tags: Experimentally added a tweak to customize the separator between the 
      tags of an item. The factory default is , (comma):
      Rules:
        - just one character is allowed, not more
        - but not any of these: <>|*?
      Example:
        TagsSeparator=;
      Notes:
      - If you currently use multiple tags per item they will not be parsed 
        correctly after tweaking the separator.
      - If you share your tags with other users this is the recipe for disaster. 
        Don't even think of using this tweak!