批量将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