遍历.EAP文件

这是VB.Net代码的示例，该代码在打开存储库后从模型级别开始遍历.eap文件。

子DumpModel（）

昏暗的IDX为整数

对于idx = 0到m_Repository.Models.Count-1

DumpPackage（“”，m_Repository.Models.GetAt（idx））

下一个

结束子

''输出包名称，然后元素内容，然后处理子包

Sub DumpPackage（以字符串形式缩进，以对象形式封装）

昏暗的IDX为整数

Console.WriteLine（缩进+ Package.Name）

DumpElements（缩进+“”，包）

对于idx = 0到Package.Packages.Count-1

DumpPackage（缩进+“”，Package.Packages.GetAt（idx））

下一个

结束子

''转储元素名称

Sub DumpElements（缩进为字符串，打包为对象）

昏暗的IDX为整数

对于idx = 0到Package.Elements.Count-1

Console.WriteLine（缩进+“ ::” + Package.Elements.GetAt（idx）.Name）

下一个

结束子