oracle_powerdesinger逆向工程 ， PDM 文件 注释到name的完美解决方案 comment2name

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