执行方法:Open PDM -- Tools -- Execute Commands -- Run Script
- 代码一:将Name中的字符COPY至Comment中
'******************************************************************************
'*File: name2comment.vbs
'*Purpose: Database generation cannot use object names anymore
'in version 7 and above.
'It always uses the object codes.
'
'In case the object codes are not aligned with your
'object names in your model, this script will copy
'the object Name onto the object Comment for
'the Tables and Columns.
'
'*Title:
'*Version: 1.0
'*Company: Sybase Inc.
'******************************************************************************Option
Explicit
ValidationMode= True
InteractiveMode= im_Batch Dim
mdl ' the current model '
get the current active model
Setmdl = ActiveModel
If(mdl Is Nothing) Then
MsgBox "There is no current Model "
ElseIfNot mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox "The current model is not an Physical Data model. "
Else
ProcessFolder mdl
EndIf '
This routine copy name into comment for each table, each column and each view
'of the current folder
Privatesub ProcessFolder(folder)
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.comment = tab.name
Dim col ' running column
for each col in tab.columns
col.comment= col.name
next
end if
next Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.comment = view.name
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
endsub
--------------------------------------------
- 代码二:将Comment中的字符COPY至Name中
OptionExplicit
ValidationMode= True
InteractiveMode= im_Batch Dim
mdl ' the current model '
get the current active model
Setmdl = ActiveModel
If(mdl Is Nothing) Then
MsgBox "There is no current Model "
ElseIfNot mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox "The current model is not an Physical Data model. "
Else
ProcessFolder mdl
EndIf 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 = 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
endsub
-----------------------------------------------------------------------