pdm 将注释信息转换为列名

最新推荐文章于 2023-10-19 10:47:34 发布

fighting_1982

最新推荐文章于 2023-10-19 10:47:34 发布

阅读量367

点赞数

CC 4.0 BY-SA版权

分类专栏： pdm 文章标签： pdm

本文链接：https://blog.youkuaiyun.com/badaaasss/article/details/85992295

pdm 专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何使用PowerDesigner的脚本功能，将物理数据模型中的备注信息转换为表和列的名称，通过执行特定的VBA脚本实现自动化转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如何将pdm中的备注转换为列名？首先打开Powerdesigner-Tools-execute-edit/run scripts

然后执行下面的脚本即可。

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