'***************************************************************************** '文件:delete useless data items.vbs '版本:1.0 '版權:floodzhu ([email protected]),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
'***************************************************************************** '函數(shù):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
'***************************************************************************** '函數(shù):visit '功能:處理節(jié)點 '***************************************************************************** sub visit(node) if node.usedby="" then node.delete index = index + 1 end if end sub