XYplorer Beta Club

Posted: **10 Jul 2017 08:17**

Hello, I need a script to apply a tag to selected folders and its subfolders, it should goes as deep as it could.
It will be great too if it has an option to apply tags to files and folders, or folders only.

Thanks in advance

Posted: **10 Jul 2017 09:29**

Options:
D = Directories only
D+F + Directories and files

You switch options by clicking on the "Option: <current type>" menu entry!

Code: Select all

"_Initialize"
    perm $P_TagOptions;
    if (!$P_TagOptions) { $P_TagOptions = "D"; }

"Option: $P_TagOptions"
    if ($P_TagOptions == "D") { $P_TagOptions = "D+F"; }
    elseif ($P_TagOptions == "D+F") { $P_TagOptions = "D"; }
    else { $P_TagOptions = "D"; }
    load "*", "Apply tag", "s";

"Apply tag"
    $notes = ($P_TagOptions == "D") ? "Directories only": "Directories AND files";
    $tag = input("Enter the tag to apply", "Tags will apply to:<crlf 2>$notes");
    if (!$tag) { status "No tag entered, aborted", , "alert"; end true; }

    $selItems = get("SelectedItemsPathNames");
    // Directories only
    if ($P_TagOptions == "D") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        $items = formatlist($selFolders . <crlf> . quicksearch("/d", $selFolders), "sed", <crlf>);
    // Directories and files
    } elseif ($P_TagOptions == "D+F") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        $selFiles = formatlist($selItems, "sedF", <crlf>, "!$selFolders");
        $items = formatlist($selFiles . <crlf> . $selFolders . <crlf> . quicksearch("", $selFolders), "sed", <crlf>);
    }

    if ($items) {
        tagitems("tags", $tag, $items);
        status "All items tagged...", , "ready";
    }

function GetFoldersOnly($items, $inSep="|", $outSep="|") {
    $list = "";
    foreach($item, $items, $inSep, "e") {
        if (exists($item) == 2) { $list = $list . $item . $outSep; }
    }
    return formatlist($list, "sed", $outSep);
}

Posted: **10 Jul 2017 12:45**

Many Thanks

Posted: **11 Jul 2017 11:21**

If you wouldn't mind I have more requests:
- I need a script to remove all (labels) from selected folders contents (files and folders). I appreciate if you could explain it so I could modify it to apply it on comments or tags
- Another script to remove all (labels) from selected folders contents (Folders Only).

In this case I need scripts to be separated to be able to assign them with keyboard shortcuts.

Thanks in advance

Posted: **11 Jul 2017 11:30**

The script already contains all necessary parts to accomplish these things.
You only need to rearrange it / rip out unnecessary stuff if you want to split it for different functionality
tagitems() is able to remove tags / labels / comments as well

Posted: **11 Jul 2017 14:03**

highend wrote:The script already contains all necessary parts to accomplish these things.
You only need to rearrange it / rip out unnecessary stuff if you want to split it for different functionality
tagitems() is able to remove tags / labels / comments as well

I tried a lot of things by now, Finally I get it worked on folders but unfortunately it didn't work on both of folders and files.

This is the script I used to target folders only

Code: Select all

"Apply tag"
    $notes = ($P_TagOptions == "D") ? "Directories only": "Directories AND files";
    if (!$tag) { status "No tag entered, aborted", , "alert"; end true; }

    $selItems = get("SelectedItemsPathNames");
    // Directories only
    if ($P_TagOptions == "D") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        $items = formatlist($selFolders . <crlf> . quicksearch("/d", $selFolders), "sed", <crlf>);

    if ($items) {
        tagitems("label", "", $items);
        status "All items tagged...", , "ready";
    }

function GetFoldersOnly($items, $inSep="|", $outSep="|") {
    $list = "";
    foreach($item, $items, $inSep, "e") {
        if (exists($item) == 2) { $list = $list . $item . $outSep; }
    }
    return formatlist($list, "sed", $outSep);
}

I tried the following script to target both files and folders but it didn't work

Code: Select all

"Option: $P_TagOptions"
    if ($P_TagOptions == "D") { $P_TagOptions = "D+F"; }
    elseif ($P_TagOptions == "D+F") { $P_TagOptions = "D"; }
    else { $P_TagOptions = "D"; }

"Apply tag"
    $notes = ($P_TagOptions == "D") ? "Directories only": "Directories AND files";
    if (!$tag) { status "No tag entered, aborted", , "alert"; end true; }

    $selItems = get("SelectedItemsPathNames");
    // Directories only
    if ($P_TagOptions == "D") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        $items = formatlist($selFolders . <crlf> . quicksearch("/d", $selFolders), "sed", <crlf>);
    // Directories and files
    } elseif ($P_TagOptions == "D+F") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        $selFiles = formatlist($selItems, "sedF", <crlf>, "!$selFolders");
        $items = formatlist($selFiles . <crlf> . $selFolders . <crlf> . quicksearch("", $selFolders), "sed", <crlf>);
    }

    if ($items) {
        tagitems("label", "", $items);
        status "All items tagged...", , "ready";
    }

function GetFoldersOnly($items, $inSep="|", $outSep="|") {
    $list = "";
    foreach($item, $items, $inSep, "e") {
        if (exists($item) == 2) { $list = $list . $item . $outSep; }
    }
    return formatlist($list, "sed", $outSep);
}

Posted: **11 Jul 2017 14:12**

Without any options to change, unlabeling files and folders is simply...

Code: Select all

    $selItems = get("SelectedItemsPathNames");
    $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
    $selFiles = formatlist($selItems, "sedF", <crlf>, "!$selFolders");
    $items = formatlist($selFiles . <crlf> . $selFolders . <crlf> . quicksearch("", $selFolders), "sed", <crlf>);

    if ($items) {
        tagitems("label", "", $items);
        status "All items untagged...", , "ready";
    }
    
function GetFoldersOnly($items, $inSep="|", $outSep="|") {
    $list = "";
    foreach($item, $items, $inSep, "e") {
        if (exists($item) == 2) { $list = $list . $item . $outSep; }
    }
    return formatlist($list, "sed", $outSep);
}

Posted: **11 Jul 2017 16:25**

Thanks for the new script, it looks like what I need except I got this message "Call to undefined function: getfoldersonly" every time I tried to run it.
Am I doing anything wrong?

Posted: **11 Jul 2017 16:44**

You didn't add the function ... part?

Posted: **11 Jul 2017 19:39**

highend wrote:You didn't add the function ... part?

No, I didn't. I add it now and it is working ......... Thank you very much

Posted: **08 Oct 2017 16:30**

Hello all,
Now, I'm using the following script to remove any label from selected folders and sub-folders.

Code: Select all

"Apply tag"
    $notes = ($P_TagOptions == "D") ? "Directories only": "Directories AND files";

    if (!$tag) { status "No tag entered, aborted", , "alert"; end true; }

    $selItems = get("SelectedItemsPathNames");
    // Directories only
    if ($P_TagOptions == "D") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        $items = formatlist($selFolders . <crlf> . quicksearch("lbl:** /d", $selFolders), "sed", <crlf>);

    if ($items) {
        tagitems("label", "", $items);
        status "All items tagged...", , "ready";
    }

function GetFoldersOnly($items, $inSep="|", $outSep="|") {
    $list = "";
    foreach($item, $items, $inSep, "e") {
        if (exists($item) == 2) { $list = $list . $item . $outSep; }
    }
    return formatlist($list, "sed", $outSep);
}

My question here, how could I modify it to remove labels from the sub-folders (as deep as it goes) of the selected folders only.

Thanks in advance

Posted: **08 Oct 2017 16:52**

I don't understand...

You mean all existing labels from all subfolders but not the label from the selected folders?

Posted: **08 Oct 2017 18:47**

highend wrote:I don't understand...

You mean all existing labels from all subfolders but not the label from the selected folders?

Lets assume I am selecting

C:\folder1
C:\folder2
C:\folder3

I want to set labels for all sub-folders in those folders but not them. so, folder1, folder2, and folder3 labels shouldn't be changed while its contents will.

Note: I am hoping that it works whether I am selecting the folders or using the current path
For example in this case, I will not select any folder, but I am in C:\example\ directory
I expect that it will leave the folders in the current path untouched while changing itssub-folders

Unchanged
C:\example\folder1
C:\example\folder2
C:\example\folder3

I hope that I explained it clearly. Thanks in advance

Posted: **08 Oct 2017 19:06**

Code: Select all

"Apply tag"
    $notes = ($P_TagOptions == "D") ? "Directories only": "Directories AND files";

    if (!$tag) { status "No tag entered, aborted", , "alert"; end true; }

    $selItems = get("SelectedItemsPathNames");
    // Directories only
    if ($P_TagOptions == "D") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        // Selected folders
        if ($selFolders) {
            $items = formatlist(quicksearch("lbl:** /d", $selFolders), "sed", <crlf>);
        // No selected folders, use folders in <curpath>
        } else {
            $items = formatlist(quicksearch("lbl:** /d", listfolder(<curpath>, , 2, <crlf>)), "sed", <crlf>);
        }
    }

    if ($items) {
        tagitems("label", "", $items);
        status "All items tagged...", , "ready";
    }

Posted: **08 Oct 2017 21:34**

highend wrote:

Code: Select all

"Apply tag"
    $notes = ($P_TagOptions == "D") ? "Directories only": "Directories AND files";

    if (!$tag) { status "No tag entered, aborted", , "alert"; end true; }

    $selItems = get("SelectedItemsPathNames");
    // Directories only
    if ($P_TagOptions == "D") {
        $selFolders = GetFoldersOnly($selItems, <crlf>, <crlf>);
        // Selected folders
        if ($selFolders) {
            $items = formatlist(quicksearch("lbl:** /d", $selFolders), "sed", <crlf>);
        // No selected folders, use folders in <curpath>
        } else {
            $items = formatlist(quicksearch("lbl:** /d", listfolder(<curpath>, , 2, <crlf>)), "sed", <crlf>);
        }
    }

    if ($items) {
        tagitems("label", "", $items);
        status "All items tagged...", , "ready";
    }

I don't know what's wrong, but unfortunately it doesn't work. It shows that"All items tagged..." but no label changed at all

XYplorer Beta Club

Script request: Apply tags to selected folders and its subfolders

Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders

Re: Script request: Apply tags to selected folders and its subfolders