【powerdesigner】将数据库表中Common转为PDM表中Name

文章非原创,仅记录以供查询

.vbs

-- 以下text 可直接复制,黏贴至 script中,或另存为.vbs后缀文本,并打开运行,即可;

Option   Explicit      

ValidationMode   =   True      

InteractiveMode   =   im_Batch      

    

Dim   mdl   '   the   current   model       

    

'   get   the   current   active   model       

Set   mdl   =   ActiveModel      

If   (mdl   Is   Nothing)   Then      

      MsgBox   "There   is   no   current   Model "      

ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then      

      MsgBox   "The   current   model   is   not   an   Physical   Data   model. "      

Else      

      ProcessFolder   mdl      

End   If      

    

Private   sub   ProcessFolder(folder)      

On Error Resume Next     

      Dim   Tab   'running     table       

      for   each   Tab   in   folder.tables      

            if   not   tab.isShortcut   then      

                  tab.name   =   tab.comment     

                  Dim   col   '   running   column       

                  for   each   col   in   tab.columns      

                  if col.comment="" then     

                  else    

                        col.name=   col.comment      

                  end if    

                  next      

            end   if      

      next      

    

      Dim   view   'running   view       

      for   each   view   in   folder.Views      

            if   not   view.isShortcut   then      

                  view.name   =   view.comment      

            end   if      

      next      

    

      '   go   into   the   sub-packages       

      Dim   f   '   running   folder       

      For   Each   f   In   folder.Packages      

            if   not   f.IsShortcut   then      

                  ProcessFolder   f      

            end   if      

      Next      

end   sub