Save Linked Document to File

[Uffe]

Hi all,


OK, maybe I'm just being stupid here, but -

I've never had much use for Linked documents before, preferring to keep any generated documents in an external version-control repository.

But now I'm playing around with the create-document-to-artifact feature (new in 9.2), and I'm loving it. Only thing is, I'd like to do both: keep the most recently generated document in EA, and track it in my version-control repository.

So is there a way of dumping a Linked Document to a file?

Cheers,


/Uffe

[Geert Bellekens]

Uffe,

IIRC the linked documents are stored as a zipped rtf blob in the database.
So I guess if you unzip the contents, and write that to a file it should yield a usable .rtf file.

Geert

[Shaggy Man]

Is help you following EA API?

Element.SaveLinkedDocument()
Element.GetLinkedDocument()

[Geert Bellekens]

I guess we should always first RTFM

Geert

[Uffe]

Erhm, yes...    

But I did primarily mean from the GUI, and the concensus on that seems to be no.
So a script to the rescue. To make up for my laziness in not RTFMing, here's a snippet that's intended to be pasted into a Diagram script.

Enjoy!

/Uffe

Code: [Select]

if not selectedConnector is nothing then
    ' A connector is selected
    Session.Prompt "This script requires a single «document» Artifact to be selected", promptOK
elseif selectedObjects.Count <> 1 then
    ' Multiple diagram objects are selected
    Session.Prompt "This script requires a single «document» Artifact to be selected", promptOK
else
    ' A single diagram object is selected
    dim selectedElement as EA.Element
    set selectedElement = Repository.GetElementByID(selectedObjects.GetAt(0).ElementID)
    if (selectedElement.Type <> "Artifact" or selectedElement.Stereotype <> "document") then
        Session.Prompt "This script requires a single «document» Artifact to be selected", promptOK
    else
        dim fileName, fileDialog, dialogResult
        set fileDialog = CreateObject("UserAccounts.CommonDialog")
        fileDialog.Filter = "RTF Files|*.rtf|All Files|*.*"
        fileDialog.FilterIndex = 1
        if fileDialog.ShowOpen then
            selectedElement.SaveLinkedDocument(fileDialog.fileName)
        end if
    end if
end if

[Eve]

From the GUI is easy too.

Open the document.
Right click
File | Export.