Iterar a través del Archivo EAP 

Superior  Previo  Próximo

Objetos Públicos

' ' asume  que el repositorio ya se abrió

 

' ' comienza al nivel de modelo

Sub DumpModel() 

  Dim idx as Integer 

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

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

  Next 

End Sub 

 

' da salida al nombre del paquete, luego los elementos de contenido y luego procesa los paquetes hijos 

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 

 

' ' vuelca el nombre de los elementos

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