pborcl研究2

转载于 2020-10-31 16:53:02 发布 · 259 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://itmed.blog.sohu.com/93680052.html

pb 专栏收录该内容

4 篇文章

订阅专栏

该博客介绍了一个用于自动生成PBR文件的流程，包括获取工作空间中所有PBL列表，使用Data Window导入对象名，根据对象类型调用LibraryExport函数导出不同类型的项目元素，如Application、DataWindow、Function等，最终将对象信息保存到syntax变量中。

自动生成pbr文件的东东，思路如下

1.用GetLibraryList() 得到WorkSpace中所有PBL列表，并进行分解

2.创建数据窗口，用dw_1.ImportString(LibraryDirectoryEx(pbl, DirAll!))将用某PBL中所有对象名导入到dw_1

3.作出类型判断：
choose case dw_1.GetItemString(j, "type")
case "Application"; syntax = LibraryExport(pbl, name, ExportApplication!)
case "DataWindow"; syntax = LibraryExport(pbl, name, ExportDataWindow!)
case "Function"; syntax = LibraryExport(pbl, name, ExportFunction!)
case "Menu"; syntax = LibraryExport(pbl, name, ExportMenu!)
case "Pipeline"; syntax = LibraryExport(pbl, name, ExportPipeline!)
case "Project"; syntax = LibraryExport(pbl, name, ExportProject!)
case "Query"; syntax = LibraryExport(pbl, name, ExportQuery!)
case "Structure"; syntax = LibraryExport(pbl, name, ExportStructure!)
case "UserObject"; syntax = LibraryExport(pbl, name, ExportUserObject!)
case "Window"; syntax = LibraryExport(pbl, name, ExportWindow!)
case else
end choose

4.具体对象的相关信息，保存在syntax变量中。