PDM/CDM中进行搜索

Option   Explicit

ValidationMode   =   True

InteractiveMode =   im_Batch

Dim   mdl   '当前model

'获取当前活动model

Set   mdl   =   ActiveModel

dim isCdm

isCdm=0

If   (mdl   Is   Nothing)   Then

MsgBox   "There   is   no   current   Model "

ElseIf   mdl.IsKindOf(PdCDM.cls_Model)  or mdl.IsKindOf(PdPDM.cls_Model)   Then

If   mdl.IsKindOf(PdCDM.cls_Model) Then

isCdm=1

end if

If   mdl.IsKindOf(PdPDM.cls_Model)  Then

isCdm=0

end if

dim search

search= inputbox("输入要在PDM/CDM查找的字符，如要进行模糊查找，以%开始")

search=lcase(search)

ProcessFolder   mdl,isCdm

Else

MsgBox "文件类型不支持"

End   If

Private   sub   ProcessFolder(folder,isCdm)

dim tab

dim col

dim collect

if isCdm=0 then

set collect=folder.tables

else

set collect=folder.Entities

end if

for   each   tab   in  collect

if   not   tab.isShortcut   then

if  lcase(tab.code)=search or (mid(search,1,1)="%" and instr(lcase(tab.code),mid(search,2)) >0) then

output "[表]:  "+ folder.parent.name+"--->"+folder.name+"--->"+tab.name

end  if

dim subcollect

if isCdm=1 then

set  subcollect=tab.Attributes

else

set subcollect=tab.columns

end if

for each col in subcollect

if lcase(col.code)=search or (mid(search,1,1)="%" and instr(lcase(col.code),mid(search,2)) >0)  then

output "[字段]:  "+folder.parent.name+"--->"+folder.name+"--->"+tab.name+"--->"+col.name

end if

next

end if

next

'递归遍历子文件夹

Dim   f   '子文件夹

For   Each   f   In   folder.Packages

if   not   f.IsShortcut   then

ProcessFolder   f, isCdm

end   if

Next

end   sub