Needed to change some things, Rob and the others might want to consider for their version of this script.
. 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.
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
Linear Mode
