打开物理模型,点击菜单“Tools->Execute Commands -> Edit/Run Script...",或者快捷键(Ctrl+Shift+X)执行下面vbscript脚本
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
Private sub ProcessFolder(folder)
On Error Resume Next
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
' 获取分组命名,不需要就删除调用的函数
tab.name = getParameterType(tab.code)+ tab.comment
Dim col ' running column
for each col in tab.columns
if col.comment="" then
else
col.name= col.comment
end if
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.name = view.comment
end if
next
' go into the sub-packages
Dim f ' running folder
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub
'获取分组命名的参数
Function getParameterType(tablecode)
dim type_code
dim type_
'拆分字符串
type_code = Split(tablecode,"_")
select case type_code(1)
case "HIS" type_ = "历史"
case "PRM" type_ = "参数"
case "COD" type_ = "代码"
case "CFG" type_ = "配置"
case "SYS" type_ = "系统"
case "BUF" type_ = "缓存"
case "QUE" type_ = "队列"
case "LOG" type_ = "日志"
case "IDX" type_ = "索引"
case "ERR" type_ = "错误"
case "TMP" type_ = "临时"
case "SUB" type_ = "子表"
case "FLN" type_ = "文件名"
case "AUD" type_ = "审计"
case "CM" type_ = "通信"
case "CFG" type_ = "配置"
case "FLW" type_ = "客流"
case "STA" type_ = "设备状态"
case "TRD" type_ = "线程"
case "EC" type_ = "ES通讯"
case "EVN" type_ = "事件"
end select
type_code = "("+type_+")"
getParameterType= type_code
End Function
提示
OP_COD_PARM_TYPE
(代码)参数类型
备注:教学参考http://www.w3school.com.cn/vbscript/index.asp