• 【转】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
  • 相关阅读:
    Atitit 编程语言编程方法的进化演进 sp  COP ,AOP ,SOP
    Atitit 2016年attilax事业成就表
    Atitit 知识管理的重要方法 数据来源,聚合,分类,备份,发布 搜索
    Atitit webservice发现机制 WS-Discovery标准的规范attilax总结
    Atitit 多元化战略 适合我们发展 的核心业务attilax总结
    Atitit HTTP 认证机制基本验证 (Basic Authentication) 和摘要验证 (Digest Authentication)attilax总结
    Atitit. 提升存储过程与编程语言的可读性解决方案v3 qc25.docx
    Atitit zxing二维码qr码识别解析
    Atitit Data Matrix dm码的原理与特点
    Atitit 常用二维码对比(QR、PDF417、DM、汉信码 Aztec code maxicode
  • 原文地址:https://www.cnblogs.com/jimeper/p/2749347.html
Copyright © 2020-2023  润新知