Iterate Through a .EAP File

This is an example of the VB.Net code to iterate through a .eap file starting at the Model level, after the repository has been opened.

Sub DumpModel()

     Dim idx as Integer

     For idx=0 to m_Repository.Models.Count-1

          DumpPackage("",m_Repository.Models.GetAt(idx))

     Next

End Sub

''output Package name, then element contents, then process child Packages

Sub DumpPackage(Indent as String, Package as Object)

     Dim idx as Integer

     Console.WriteLine(Indent + Package.Name)

     DumpElements(Indent + "", Package)

     For idx = 0 to Package.Packages.Count-1

          DumpPackage(Indent + "", Package.Packages.GetAt(idx))

     Next

End Sub

''dump element name

Sub DumpElements(Indent as String, Package as Object)

     Dim idx as Integer

     For idx = 0 to Package.Elements.Count-1

          Console.WriteLine(Indent + "::" + Package.Elements.GetAt(idx).Name)

     Next

End Sub