powerdesigner 概念模型(CDM)中Code下划线后首字母大写

Posted 2020-12-23 yixingzhou

（1）打开powerDesigner概念模型文件（cdm）点击工具选择edit/Run Script 进入。

 

（2）将vbs脚本文件粘贴点击run运行

 

 （3）powerdesigner 概念模型(CDM)中Code下划线后首字母大写 脚本

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

Dim mdl ‘当前model

‘获取当前活动model

Set mdl = ActiveModel

If (mdl Is Nothing) Then

MsgBox "There is no current Model "

ElseIf Not mdl.IsKindOf(PdCDM.cls_Model) Then ‘如果是处理pdm，这里换成PdPDM.cls_Model

MsgBox "The current model is not an Physical Data model. "

Else

ProcessFolder mdl

End If

 

Private sub ProcessFolder(folder)

Dim item ‘要处理的对象

‘先处理每个实体或类的Name和Code，相当于每张表的表名

for each item in folder.Entities

if not item.isShortcut then

Dim ecode

ecode = item.code

Dim i

i=2

‘Do While i < 3

Do While i < len(ecode)

If mid(ecode,i,1)=ucase(mid(ecode,i,1)) and mid(ecode,i-1,1)=lcase(mid(ecode,i-1,1)) and mid(ecode,i-1,1)<>"_" and mid(ecode,i,1)<>"_" Then ‘连续大写字母不用加_

ecode = left(ecode,i-1) + "_" + mid(ecode,i)

i =i+ 1

End If

i =i+ 1

Loop

‘item.code=ecode

‘item.name=ecode

 

dim col

‘处理当前实体下的每个属性，相当于每张表的字段

for each col in item.Attributes

Dim acode

acode = col.code

Dim a
Dim b
a = split(acode, "_")

b = ubound(a)

for i = 0 to b

Dim c

if i<>0 then

c=c+ucase(mid(a(i),1,1))+right(a(i),len(a(i))-1)
‘MsgBox right(a(i),len(a(i))-1)
‘MsgBox ucase(mid(a(i),1,1))+right(a(i),len(a(i)-1))

else

c=c+a(i)
‘MsgBox a(i)

end if

next

‘MsgBox c
col.code=c

c=""

‘col.name=c
next

end if

‘再处理每个folder下的关系的名称

dim rel
for each rel in folder.relationships
if not rel.isshortcut then
rel.name =rel.code
end if
next

next

 

‘递归遍历子文件夹

Dim f ‘子文件夹

For Each f In folder.Packages

if not f.IsShortcut then

ProcessFolder f

end if

Next

end sub