PowerDesigner脚本：删除无用的Data Items

PowerDesigner脚本：删除无用的Data Items

PowerDesigner脚本：删除无用的Data Items '*****************************************************************************

'文件：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