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 |