'********************************************************** ************************************ 'File: Delete Useless Data Items.vbs' Version: 1.0' Copyright: Floodzhu (Floodzhu @ Hotmail. COM), 2005.1.6 'Features: Traverse the concept model, delete the useless Data items. '********************************************************** *************************** DIM INDEXINDEX = 0
DIM MODEL 'CURRENT MODELSET Model = ActiveModel
IF (Model Is Nothing) THEN MSGBOX "There is currently no active model." Elseif Not Model.iskindof (pdcdm.cls_model) Then Msgbox "The current model is not a conceptual model." Else View Model MsgBox Index & "is deleted." END IF
'********************************************************** **************************** The function: view 'function: recursive traversal "*********** *********************************************************** *************** SUB View (Folder) DIM ITEM for Each Items Item.DataItems if not item.isshortcut the Visit Item End if Next 'to recursively Dim Subfolder for Each Subfolder in Folder.Packages View Subfolder Next End Sub
'********************************************************** *************************** The function: Visit 'function: processing node' *********** *********************************************************** *************** SUB VISIT (Node) if node.usedby = "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
