PowerDesigner的CDM模型将低驼峰命名法则的每个大写字母前加_符

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 < 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 k

k=2

Do While k < len(acode)

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

acode = left(acode,k-1) + "_" + mid(acode,k)

k =k+ 1

End If

k =k+ 1

Loop

col.code=acode

col.name=acode

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