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

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

2009-12-03 15:06

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