PowerDesigner 中將Comment(註釋)及Name(名稱)內容互相COPY的VBS程式碼
[@more@]
'******************************************************************************
'* 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
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
' This routine copy name into comment for each table, each column and each view
' of the current folder
Private sub 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
end sub
按住:ctrl+shift+x
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts
程式碼一:將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
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
' This routine copy name into comment for each table, each column and each view
' of the current folder
Private sub 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
end sub
程式碼二:將Comment中的字元COPY至Name中
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 = 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
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 = 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
【轉】PowerDesigner 中將Comment(註釋)及Name(名稱)內容互相COPY的VBS程式碼
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10130206/viewspace-1037246/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- PowerDesigner 中將Comment(註釋)及Name(名稱)內容互相COPY的VBS程式碼(轉)
- PowerDesigner 同步Name到Comment 及 同步 Comment 到Name
- (轉)PowerDesigner 把Comment寫到name中 和把name寫到Comment中 pd7以後版本可用
- PowerDesigner中通過VBS指令碼修改模型資訊指令碼模型
- Oracle comment新增註釋Oracle
- 如何拿到註解@ApiModelProperty(value = “單位名稱“, name = “orgName“)中的value值;API
- 《Oracle comment on註釋資訊方法論》Oracle
- 整理課程中將程式碼部署上線(Heroku)的內容
- Oracle PL/SQL程式碼中的註釋OracleSQL
- IDEA Plugins:Show Comment(快捷顯示註釋)安裝及使用IdeaPlugin
- php中抓取網頁內容的程式碼PHP網頁
- 語種名稱程式碼
- Myclipse中修改類註釋顯示作者名稱與當前日期
- PowerDesigner中name和code取消自動關聯
- 有趣的程式碼註釋
- 如何把程式碼中的註釋批次刪除
- 程式碼註釋中的5要與3不要
- 註釋與反註釋Comment/Uncomment selected code in Visual C++ (轉)C++
- IDEA中修改程式碼中的註釋顏色Idea
- MongoDB db.serverStatus()輸出內容中文註釋MongoDBServer
- CSS程式碼註釋CSS
- php程式碼註釋PHP
- 程式碼才是最好的註釋
- 註釋程式碼的13技巧
- v$lock.type中的內容解釋
- ajax讀取檔案中內容的程式碼例項
- 怎樣使用程式碼得到bean:message 中的內容?Bean
- 請停止程式碼註釋
- javascript如何註釋程式碼JavaScript
- 正規表示式刪除Java程式碼中的註釋Java
- 使用VBS建立快捷方式的程式碼
- vbs指令碼獲取Am註冊路徑資訊指令碼
- swift中的名稱空間及動態載入類Swift
- 如何檢視Oracle RAC叢集的叢集名稱(CLUSTER NAME)Oracle
- JAXB名稱空間及名稱空間字首處理
- 程式設計師是否有義務做好程式碼的註釋?你做好程式碼註釋了嗎?程式設計師
- 將 Visual Studio .net 程式碼註釋 英文轉為中文
- 用python寫一個指令碼,讀取srt檔案中的內容,並列印出重複的內容,且將不重複的內容儲存到新檔案中Python指令碼