在用PowerDesigner时，常常在NAME或Comment中写中文在Code中写英文，Name只会显示给我们看，Code会使用在代码中，但Comment中的文字会保存到数据库TABLE的Description中，有时候我们写好了Name再写一次Comment很麻烦，以下两段代码就可以解决这个问题。
在PowerDesigner中PowerDesigner->Tools->Execute Commands->Edit/Run Scripts（Ctrl Shift X），然后将下面的脚本粘贴进去，并运行，即可

代码一:将Name中的字符COPY至Comment中
'******************************************************************************
'* 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:
'* Version:   1.0
'* Company:   Sybase Inc.
'******************************************************************************
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 comment 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.comment = tab.name
      Dim col ' running column
      for each col in tab.columns
        col.comment= col.name
      next
    end if
  next

  Dim view 'running view
  for each view in folder.Views
    if not view.isShortcut then
      view.comment = view.name
    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

代码二:将Comment中的字符COPY至Name中
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl ' the current model

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

代码三：将Name中的字符COPY至Comment中（优化）
'把pd中那么name想自动添加到comment里面
'如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失.

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl ' the current model

' This routine copy name into comment 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
         if trim(tab.comment)="" then '如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.
       tab.comment = tab.name
         end if
      Dim col ' running column
      for each col in tab.columns
        if trim(col.comment)="" then '如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.
         col.comment= col.name
        end if
      next
    end if
  next

  Dim view 'running view
  for each view in folder.Views
    if not view.isShortcut and trim(view.comment)="" then
      view.comment = view.name
    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

原文地址： http://my.oschina.net/chwencong/blog/52652

Powerdesigner表名及字段的大小写转换脚本

用PowerDesigner设计表结构时，若一不小心在写表结构和字段的时候用了大小写混合或者小写。PowerDesigner则在生成SQL时会自动在表名上使用双引号。例如：

/*==============================================================*/
/* Table: "test"                                                */
/*==============================================================*/
create table "test" (
   "username"           varchar2(24),
   "full_name"          varchar2(24)
);
ORACLE会认为该表和字段使用小写字母命名，但是ORACLE默认是使用大写字母的，这样会导致有些用法用不了(比如修改字段名，数据修改等)。下面提供段脚本代码可以把PowerDesigner中的小写字母变为大写字母。

使用方法：进入PowerDesigner，打开需要转换的PDM，在菜单栏找到：Tools – Excute Commands – Edit/Run Script，或者直接按Ctrl+Shift+X调出脚本执行窗口，输入下边的代码就可以了。

代码如下：
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' 当前模型
' 获取当前模型
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "没有打开一个模型"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
   MsgBox "当前模型不是一个PDM"
Else
'调用处理程序
   ProcessFolder mdl
End If
'调用的处理程序
Private sub ProcessFolder(folder)
   Dim Tab '要处理的表
   for each Tab in folder.Tables
    ' if not Tab.isShortcut then
        ' Tab.code = tab.name
        '表名处理，前边添加前缀，字母小写
        Tab.name= UCase(Tab.name)
        Tab.code= UCase(Tab.code)
         Dim col ' 要处理的列
         for each col in Tab.columns
            '列名称和code全部小写，大写诗UCase
            col.code= UCase(col.code)
            col.name= UCase(col.name)
         next
      'end if
   next
' 处理视图
' Dim view 'running view
'   for each view in folder.Views
   '   if not view.isShortcut then
       ' view.code = view.name
    ' end if
' next
   ' 递归进入 sub-packages
   Dim f ' sub folder
   For Each f In folder.Packages
      if not f.IsShortcut then
         ProcessFolder f
      end if
   Next
end sub

PowerDesigner列名、注释内容互换[

Powerdesigner表名及字段的大小写转换脚本

猜你喜欢