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
if
instr
(
tab
.comment,
"
"
)>
0
then
tab
.name =
split
(
tab
.comment,
"
"
)(
0
)
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
oracle_powerdesinger逆向工程 ， PDM 文件 注释到name的完美解决方案 comment2name
