PowerDesigner脚本：删除无用的Data Items

发布: 2007-7-02 11:08 | 作者: admin | 来源: | 查看: 16次 | 进入软件测试论坛讨论

@#*****************************************************************************
@#文件：Delete useless data items.vbs
@#版本：1.0
@#版权：floodzhu (floodzhu@hotmail.com)，2005.1.6
@#功能：遍历概念模型，把无用的Data Items删除。
@#*****************************************************************************
dim index
index = 0

dim model @#current model
set model = ActiveModel

If (model Is Nothing) Then
   MsgBox "当前没有活动的模型。"
ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
   MsgBox "当前模型不是概念模型。"
Else
   View model
   MsgBox index & "个无用字段被删除。"
End If

@#*****************************************************************************
@#函数：View
@#功能：递归遍历
@#*****************************************************************************
sub View(folder)
   dim item
   for each item in folder.DataItems
      if not item.IsShortCut then
         Visit item
      end if
   next

   @#对子目录进行递归
   dim subFolder
   for each subFolder in folder.Packages
      View subFolder
   next
end sub

@#*****************************************************************************
@#函数：Visit
@#功能：处理节点
@#*****************************************************************************
sub Visit(node)
if node.UsedBy="" then
      node.delete
      index = index + 1
   end if
end sub