Skip to content

Instantly share code, notes, and snippets.

@radum
Created January 6, 2014 13:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save radum/8282965 to your computer and use it in GitHub Desktop.
Save radum/8282965 to your computer and use it in GitHub Desktop.
Extracts to separate files the Metadata and Routing sections from an IBM Dimensions MDD file.
Dim fso, sourceMDD, routingFile, metadataFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set sourceMDD = CreateObject("MDM.Document")
Set routingFile = fso.CreateTextFile(".\routingFile.txt", True, True)
Set metadataFile = fso.CreateTextFile(".\metadataFile.txt", True, True)
sourceMDD.Open("test.mdd", ,1) 'MDMLib.openConstants.oREAD
routingFile.Write( sourceMDD.Routing.Script )
metadataFile.Write( sourceMDD.Script )
sourceMDD.Close()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment