急求：如何把PD中comment转为name

楼主lvhen999（）2006-08-02 20:46:23 在 软件工程/管理 / Power Designer 提问

求教如何能把PD中comment批量转为name。。。。因急用，望大家能告知。小弟在这里谢谢了 问题点数：20、回复次数：2Top

  #.FJHOSS~"_VRXZG/BRChttp://www.itwz.net

1 楼phpgene（）回复于 2006-08-21 19:18:05 得分 0

些个vbscript脚本吧!!!     用google搜索一下,网上好像有这个脚本Top

  #.FJHOSS~"_VRXZG/BRChttp://www.itwz.net

2 楼amwggyy504（小黄）回复于 2006-08-23 09:22:01 得分 0

'******************************************************************************  
  '*   File:   name2comment.vbs  
  '*   Purpose:   Database   generation   cannot   use   object   names   anymore    
  '   in   version   7   and   above.  
  '   It   always   uses   the   object   codes.  
  '  
  '   In   case   the   object   codes   are   not   aligned   with   your    
  '   object   names   in   your   model,   this   script   will   copy    
  '   the   object   Name   onto   the   object   comment   for    
  '   the   Tables   and   Columns.  
  '  
  '*   Title:   把对象name拷入comment属性中  
  '*   Version:   1.0  
  '*   Author：wangnc  
  '*   执行方法：PD11   --   Open   PDM   --   Tools   --   Execute   Commands   --   Run   Script  
  '******************************************************************************  
   
  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  
   
  '   This   routine   copy   name   into   code   for   each   table,   each   column   and   each   view  
  '   of   the   current   folder  
  Private   sub   ProcessFolder(folder)  
  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  
  col.name=tab.comment  
  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  
 

Tags(标签):急求：