hi Rob, I've tried that one also...
of2omnioutlinerpro does not bring the folder names over (but it fixes the problem with the missing note) of2opml does bring folder names, but has the missing note bug. I could paypal you a token $20 for a fix, if that is of any motivation. (I really don't understand why all the omni things don't import export to eachother already!) thanks for your great and generous work with the scripts! |
1 Attachment(s)
Will you send it to me, instead? Rob's asleep :-)
I've attached a modified version of OF2OPML that handles project notes in the same fashion as action notes. |
hi!
got the revised script from Palmer. works! going to send you $20, just need your email for paypal, so PM it to me I guess... also going to send $20 to RobTrew for original applescript work. thanks! now that I have a correct opml I can look at other organizer options like Curio. still seems choices are limited, but unless I can solve my hanging problems with omnifocus I have to switch. again thanks to both of you. the payment is just a token for your generous work. |
[QUOTE=Shotster;105575]Hope it works for you.[/QUOTE]
Thanks! I didn't get a notification on your reply, so sorry for my late reply. I'm mainly interested in your replacement method, because German has a couple of weird characters as well. When I got a working version I plan to share my results. Again, thanks. Andreas |
[QUOTE=whpalmer4;106737]Will you send it to me, instead? Rob's asleep :-)
I've attached a modified version of OF2OPML that handles project notes in the same fashion as action notes.[/QUOTE] Thank you ! Meanwhile, I've updated the [URL="http://web.me.com/robinfrancistrew/Site/OF2Omnioutliner.html"]OF2OO script[/URL], which should now export folders. (As it's based on GUI selections, to export folders with tasks as well as the projects, you need to choose 'group by folders' in the content panel, and select the folders required - their descendant trees will be picked up automatically). [COLOR="White"]--[/COLOR] |
Needed to change some things, Rob and the others might want to consider for their version of this script.
I got a list of entities from [URL="http://www.w3schools.com/tags/ref_entities.asp"]this page[/URL]. A short regex (s/(.)\t(.*)\t.*/set retVal to stringReplace("$1", "$2", retVal)/) to get working AS code. I found a bug in the replacement code which can be fixed by adding considering case. Here's the entire script. Thanks to everyone involved! [CODE]-- Indicative draft Ver 0.001 -- Saves anything selected in Omnifocus (Project or Context View) As an OPML -- Including the following fields: DONE, NOTE, CONTEXT, PROJECT, START, DUE, COMPLETED, DURATION, FLAGGED} -- Note that the whole sub-tree is copied, so only 'parent' elements need to be selected. property pPROJECT : "project" property pTASK : "task" property pINBX_TASK : "inbox task" property pITEM : "item" property pOPMLHeadToExpand : " <?xml version=\"1.0\" encoding=\"utf-8\"?> <opml version=\"1.0\"> <head> <title>Selected in OF</title> <expansionState>" property pOPMLHeadFromExpand : "</expansionState> </head> <body> " property pOPMLTail : " </body> </opml>" property pNodeStart : "<outline " property pLeafClose : "/>" property pParentClose : "</outline>" on run set strOPML to MakeOPML(SelectedInOF()) if strOPML ≠ "" then set oFile to choose file name with prompt "Save as OPML" default name "Untitled.opml" default location (path to desktop) as alias WriteText2Path(strOPML, POSIX path of oFile) end if end run -- READ SELECTED OmniFocus CONTENT TREE(S) TO NESTED APPLESCRIPT LISTS - Ver.04 on SelectedInOF() tell application "OmniFocus" tell front window set blnContext to ((selected view mode identifier) is not equal to pPROJECT) repeat with oPanel in {content, sidebar} set lstNodes to value of (selected trees of oPanel where class of its value ≠ item) set lngNodes to count of lstNodes if lngNodes > 0 then exit repeat end repeat set blnAll to (lngNodes < 1) if blnAll then set lstNodes to value of (trees of content where class of its value ≠ item) end tell repeat with i from 1 to length of lstNodes tell item i of lstNodes if (its class) is not folder then if (number of tasks) > 0 then --set item i of lstNodes to {name, completed, my ListSubNodes(its tasks, blnContext, blnAll), note, "", "", start date, due date, completion date, estimated minutes, flagged} set item i of lstNodes to {name, completed, my ListSubNodes(its tasks, blnContext, blnAll), note, "", "", start date, due date, completion date, estimated minutes, flagged} else set item i of lstNodes to {name, completed, {}, note, "", "", start date, due date, completion date, estimated minutes, flagged} end if else if (number of projects) > 0 then set item i of lstNodes to {name, false, my ListSubNodes(its projects, blnContext, blnAll), note, "", "", missing value, missing value, missing value, missing value, false} else set item i of lstNodes to {name, false, {}, note, "", "", missing value, missing value, missing value, missing value, false} end if end if end tell end repeat return {lstNodes, blnContext} end tell end SelectedInOF on ListSubNodes(lstNodes, blnAll) using terms from application "OmniFocus" repeat with i from 1 to length of lstNodes tell item i of lstNodes set oProj to its containing project if oProj is not missing value then set strProject to name of oProj else set strProject to "" end if set oContext to its context if oContext is not missing value then set strContext to name of oContext else set strContext to "" end if if (number of tasks) > 0 then set item i of lstNodes to {name, completed, my ListSubNodes(its tasks, blnAll), note, strProject, strContext, start date, due date, completion date, estimated minutes, flagged} else set item i of lstNodes to {name, completed, {}, note, strProject, strContext, start date, due date, completion date, estimated minutes, flagged} end if end tell end repeat return lstNodes end using terms from end ListSubNodes -- BUILD OPML on MakeOPML({lstTasks, blnContext}) if (length of lstTasks > 0) then set {lngIndex, strExpand, strOutline} to my Tasks2OPML(-1, lstTasks, tab) set strOPML to pOPMLHeadToExpand & strExpand & pOPMLHeadFromExpand & strOutline & pOPMLTail return strOPML end if end MakeOPML on Tasks2OPML(lngIndex, lstTasks, strIndent) set {strExpand, strOut} to {"", ""} repeat with oTask in lstTasks set {strName, blnDone, lstChiln, strNote, strProject, strContext, dteStart, dteDue, dteDone, lngMins, blnFlagged} to oTask if strNote ≠ "" then set strOut to strOut & pNodeStart & Attr("text", strName) & Attr("_note", strNote) else set strOut to strOut & pNodeStart & Attr("text", strName) end if if blnDone then if (dteDone is not missing value) then set strOut to strOut & Attr("_status", "checked") & Attr("Completed", short date string of dteDone & space & time string of dteDone) end if if strProject ≠ "" then set strOut to strOut & Attr("Project", strProject) if strContext ≠ "" then set strOut to strOut & Attr("Context", strContext) tell dteStart to if it is not missing value then set strOut to strOut & my Attr("Start", short date string & space & time string) tell dteDue to if it is not missing value then set strOut to strOut & my Attr("Due", short date string & space & time string) if lngMins > 0 then set strOut to strOut & Attr("Duration", ((lngMins / 60) as string) & "h") if blnFlagged then set strOut to strOut & Attr("Flagged", "2") set lngIndex to lngIndex + 1 if (length of lstChiln > 0) then set strExpand to strExpand & "," & (lngIndex) as string set {lngIndex, strSubExpand, strSubOutln} to Tasks2OPML(lngIndex, lstChiln, strIndent & tab) if strSubExpand ≠ "" then set strExpand to strExpand & "," & strSubExpand set strOut to strOut & ">" & return & ¬ strIndent & strSubOutln & return & ¬ strIndent & pParentClose else set strOut to strOut & pLeafClose & return end if end repeat if strExpand begins with "," and length of strExpand > 1 then set strExpand to text 2 thru -1 of strExpand return {lngIndex, strExpand, strOut} end Tasks2OPML on Attr(strName, strValue) --strName & "=\"" & strValue & "\" " strName & "=\"" & attributeValue(strValue) & "\" " end Attr on WriteText2Path(strText, strPosixPath) set f to (POSIX file strPosixPath) open for access f with write permission write strText as «class utf8» to f close access f end WriteText2Path on attributeValue(str) set retVal to stringReplace("&", "&", str) set retVal to stringReplace("\"", """, retVal) set retVal to stringReplace("<", "<", retVal) set retVal to stringReplace(">", ">", retVal) set retVal to stringReplace(" ", " ", retVal) -- additions for all sorts of characters and umlauts set retVal to stringReplace("À", "À", retVal) set retVal to stringReplace("Á", "Á", retVal) set retVal to stringReplace("Â", "Â", retVal) set retVal to stringReplace("Ã", "Ã", retVal) set retVal to stringReplace("Ä", "Ä", retVal) set retVal to stringReplace("Å", "Å", retVal) set retVal to stringReplace("Æ", "Æ", retVal) set retVal to stringReplace("Ç", "Ç", retVal) set retVal to stringReplace("È", "È", retVal) set retVal to stringReplace("É", "É", retVal) set retVal to stringReplace("Ê", "Ê", retVal) set retVal to stringReplace("Ë", "Ë", retVal) set retVal to stringReplace("Ì", "Ì", retVal) set retVal to stringReplace("Í", "Í", retVal) set retVal to stringReplace("Î", "Î", retVal) set retVal to stringReplace("Ï", "Ï", retVal) set retVal to stringReplace("Ð", "Ð", retVal) set retVal to stringReplace("Ñ", "Ñ", retVal) set retVal to stringReplace("Ò", "Ò", retVal) set retVal to stringReplace("Ó", "Ó", retVal) set retVal to stringReplace("Ô", "Ô", retVal) set retVal to stringReplace("Õ", "Õ", retVal) set retVal to stringReplace("Ö", "Ö", retVal) set retVal to stringReplace("Ø", "Ø", retVal) set retVal to stringReplace("Ù", "Ù", retVal) set retVal to stringReplace("Ú", "Ú", retVal) set retVal to stringReplace("Û", "Û", retVal) set retVal to stringReplace("Ü", "Ü", retVal) set retVal to stringReplace("Ý", "Ý", retVal) set retVal to stringReplace("Þ", "Þ", retVal) set retVal to stringReplace("à", "à", retVal) set retVal to stringReplace("á", "á", retVal) set retVal to stringReplace("â", "â", retVal) set retVal to stringReplace("ã", "ã", retVal) set retVal to stringReplace("ä", "ä", retVal) set retVal to stringReplace("å", "å", retVal) set retVal to stringReplace("æ", "æ", retVal) set retVal to stringReplace("ç", "ç", retVal) set retVal to stringReplace("è", "è", retVal) set retVal to stringReplace("é", "é", retVal) set retVal to stringReplace("ê", "ê", retVal) set retVal to stringReplace("ë", "ë", retVal) set retVal to stringReplace("ì", "ì", retVal) set retVal to stringReplace("í", "í", retVal) set retVal to stringReplace("î", "î", retVal) set retVal to stringReplace("ï", "ï", retVal) set retVal to stringReplace("ð", "ð", retVal) set retVal to stringReplace("ñ", "ñ", retVal) set retVal to stringReplace("ò", "ò", retVal) set retVal to stringReplace("ó", "ó", retVal) set retVal to stringReplace("ô", "ô", retVal) set retVal to stringReplace("õ", "õ", retVal) set retVal to stringReplace("ö", "ö", retVal) set retVal to stringReplace("ø", "ø", retVal) set retVal to stringReplace("ù", "ù", retVal) set retVal to stringReplace("ú", "ú", retVal) set retVal to stringReplace("û", "û", retVal) set retVal to stringReplace("ü", "ü", retVal) set retVal to stringReplace("ý", "ý", retVal) set retVal to stringReplace("þ", "þ", retVal) set retVal to stringReplace("ÿ", "ÿ", retVal) set retVal to stringReplace("ß", "ß", retVal) return retVal end attributeValue on stringReplace(find, replace, subject) considering case set prevTIDs to text item delimiters of AppleScript set text item delimiters of AppleScript to find set subject to text items of subject set text item delimiters of AppleScript to replace set subject to "" & subject set text item delimiters of AppleScript to prevTIDs end considering return subject end stringReplace[/CODE] |
For the longer table of higher-code substitutes you could also use numeric encoding.
Something like this, perhaps: [CODE]on Encode(str) set lstChars to characters of str repeat with i from 1 to length of lstChars set lngCode to id of item i of lstChars if lngCode > 127 then set item i of lstChars to ("&#" & lngCode as string) & ";" end repeat lstChars as Unicode text end Encode[/CODE] |
I have updated [URL="http://forums.omnigroup.com/showpost.php?p=100455&postcount=4"]the original code[/URL] to version 2.0 to allow for encoding of special characters and diacritics.
(I've used a Python library function for the syntactically significant characters, and numerically encoded anything else above 127) |
Updated the [URL="http://forums.omnigroup.com/showpost.php?p=100455&postcount=4"]original code in post 4[/URL] removing pre-header space, and adding post-attribute space, for better compatibility with apps like Tree and iThoughts.
|
All times are GMT -8. The time now is 05:06 PM. |
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc.