pborcl研究2

自动生成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变量中。