"Find Tagged Items|:find" goto input ("Find Tagged Items","Find all the tagged items in the following folder and its subfolders (no trailing backslash)",,s,,600,400)."\?:lbl:?* or tags:?* or cmt:?* /r"; msg ("The List now shows all the items that can be processed during the next phase.
Please select the items that you want to be processed.
No processing will take place unless you actively select the next step from the script.",1); "Transfer Tags from XYplorer to Forks|:fore" foreach ($item,,) { $info = report ("{Label}{Tags}{Comment}",$item); //collects the tags of each selected item, placing a new line between them writefile ("$item:$sig.dat",$info,,"tu"); //writes the gathered info in the fork of each selected item, in UTF }; - "Find Items with Fork|:find" $path = input ("Find Items with Fork","Find all the items having a fork in the following folder and its subfolders (no trailing backslash)",,s,,600,400); $items = folderreport (items,r,$path,r,,); foreach ($item,$items,) { if (exists ("$item:$sig.dat") != 0) { tag ($sig,$item,1,0) //add a $sig tag to each item having a fork }; }; goto "$path\?:tags:"$sig" /r"; //show every item having a fork msg ("The List now shows all the items that can be processed during the next phase.
Please select the items that you want to be processed.
No processing will take place unless you actively select the next step from the script.",1); "Transfer Tags from Forks to XYplorer|:back" foreach($item,,) { $info = readfile("$item:$sig.dat","t"); //read the info in the fork of each selected item, in UTF $label = gettoken($info,1,); //puts the 1. line of the file in the label variable tag($label,$item,0); //attaches the content of the label variable as a label $tags = gettoken($info,2,); //puts the 2. line of the file in the tags variable tag($tags,$item,1,1); //attaches the content of the tags variable as a tag/list of tags $comment = gettoken($info,3,); //puts the 3. line of the file in the comment variable tag($comment,$item,2); //attaches the content of the comment variable as a comment }; "Delete Fork from Items|:del" foreach($item,,) { deletefile "$item:$sig.dat"; //UNDOCUMENTED [http://www.xyplorer.com/xyfc/viewtopic.php?f=7&t=8587#p76625]: delete the fork };