• 【转】PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码


    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
  • 相关阅读:
    如何节省 1TB 图片带宽?解密极致图像压缩
    微信亿级用户异常检测框架的设计与实践
    一文带你深度解析腾讯云直播答题方案
    kafka数据迁移实践
    揭密微信跳一跳小游戏那些外挂
    从蓝光到4K,腾讯视频高码率下载背后的技术
    GridControl列自动匹配宽度
    access的逻辑类型
    NPOI Excel类
    Access sql语句创建表及字段类型
  • 原文地址:https://www.cnblogs.com/jimeper/p/2749347.html
Copyright © 2020-2023  润新知