PowerDesigner技巧集7 —- 利用comment產生name

利用PD的反向工程, 匯出來的物理視圖, 這時會發現Name與code一樣都成英文了, 這與我們平常的習慣相悖, 通常更喜歡name是簡單的中文說明. 此時可以利用vbscript指令碼實現將comment生產name. 指令碼如下:

Option ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl ' the current model' get the current active modelSet mdl = ActiveModelIf (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 mdlEnd If' This routine copy name into code for each table, each column and each view' of the current folderPrivate sub ProcessFolder(folder)   Dim Tab 'running table   for each Tab in folder.tables      if not tab.isShortcut then if Len(tab.comment) > 0 then            tab.name = tab.comment end if         Dim col ' running column         for each col in tab.columns   if Len(col.comment) > 0 then             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   Dim myuser 'running user   for each myuser in folder.Users      if not myuser.isShortcut then         if not Len(myuser.comment) > Len(myuser.name) then            myuser.comment = myuser.name         end if      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   Nextend sub