PowerDeign 如何将oracle数据库中comments 转化为name,就是生成注解

1、 从oracle 到 PDM文件 逆向工程中 ，需要注意 去掉“” ，这个百度下很多帖子，用于去掉引号

2、 从注释copy到name运行脚本会有个问题就是 ，有些注释太长，不美观

解决方案， vb脚本判断注释中是否含有 空格，如果含有去 以空格 spilt后的数组的第一个 为 name, 要求 写注释时 描述性文字 在字段名字后 要以空格 分开 例如

code : flag 。库中 comment: 标志位 : 【1、有效】 【0 、无效】 默认【1】

这样逆向工程出来的效果

3 运行脚本 如下 [运行方法 ，选中pdm文件中的表 ctrl+shift+X ，粘贴 复制 run ]

commet2namePerfect.vbs

'****************************************************************************** '* File:     commet2namePerfect.vbs '* Title:    commet to Name Conversion '* Purpose:  To  '
'* Model:    Physical Data Model for  Reverse Enginner '* Category: Naming Standards '* Author:   cphmvp '* Created:  Nov 22, 2013 '* Mod By:  '* Modified:  '* Version:  1.0 '* Comment:  '*  v1.0 - Must have Conversion Tables assigned as a model option '****************************************************************************** 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 if len(tab.comment) <> 0 then tab.name = tab.comment end if On Error Resume Next Dim col 'running column for each col in tab.columns if len(col.comment) <>0 then col.name =col.comment end if if instr(col.comment," ")>0 then col.name =split(col.comment," ")(0) end if On Error Resume Next next end if next end sub