批量将PowerDesigner中表字段由小写变成大写,并且去掉字段名的引号

通过以下VB脚本即可批量修改,在工具=>执行命令下的编辑/运行脚本,或者通过Ctrl + Shift + X运行以下脚本即可:

“******************* ****************************
 '文件:powerdesigner.ucase.VBs
 '版本:1.0
 '功能:遍历物理模型中的所有表,将表名,表代码,字段名,字段代码全部由小写改成大写;
 '并将序列的名称和代码由小写改成大写。
 '用法:打开物理模型,运行本脚本(Ctrl + Shift + X)
 '备注:
 '********************************************** *******************************
 dim
 model'current model set model = ActiveModel
If(model Is Nothing)Then
 MsgBox“There是不是当前模型“
 ElseIf不是model.IsKindOf(PdPDM.cls_Model)Then
 MsgBox”当前模型​​不是物理数据模型。“
 其他
 ProcessTables模型
 ProcessSequences模型
 End If
“******************* ****************************
 '函数:ProcessSequences
 '功能:递归遍历所有的序列
 '********* ************************************************** ******************
 子ProcessSequences(文件夹)
 “处理模型中的序列:小写改大写
 暗淡序列
 用于folder.sequences每个序列
 sequence.name =用Ucase(序列。 name)
 sequence.code = UCase(sequence.code)
 next
 end sub
'********************************** *******************************************
 '函数:ProcessTables
 '功能:递归遍历所有的表
 “************ *********************************
 子ProcessTables(文件夹)
 '处理模型中的表
 dim表
 对于folder.tables中的每个表,
 如果不是table.IsShortCut then 
ProcessTable table
 end if
 next
 '对子目录进行递
 昏暗子文件夹
 for folder.Packages
 ProcessTables subFolder
 next 
end sub
'*********** ************************************************** ****************
 '函数:ProcessTable
 '功能:遍历指定表的所有字段,将字段名由小写改成大写,
 '字段代码由小写改成大写
 '表名由小写改成大写 
“************ *********************************
 子ProcessTable(表)
 暗淡山口
 用于table.Columns每个COL
 “将字段名由小写改成大写
 col.code = UCase(col.code)
 col.name = UCase(col.name)
 next 
table.name = UCase(table.name)
 table.code = UCase(table.code)
 end sub



你可能感兴趣的:(学习日记)