zoukankan      html  css  js  c++  java
  • 配置显示注释comment

    显示操作

    调出执行命令的接口

    从comment替换name

    [java] view plain copy
     
    1. Option   Explicit   
    2. ValidationMode   =   True   
    3. InteractiveMode   =   im_Batch  
    4.   
    5. Dim   mdl   '   the   current   model  
    6.   
    7. '   get   the   current   active   model   
    8. Set   mdl   =   ActiveModel   
    9. If   (mdl   Is   Nothing)   Then   
    10.       MsgBox   "There   is   no   current   Model "   
    11. ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
    12.       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "   
    13. Else   
    14.       ProcessFolder   mdl   
    15. End   If  
    16.   
    17. Private   sub   ProcessFolder(folder)   
    18. On Error Resume Next  
    19.       Dim   Tab   'running     table   
    20.       for   each   Tab   in   folder.tables   
    21.             if   not   tab.isShortcut   then   
    22.                   tab.name   =   tab.comment  
    23.                   Dim   col   '   running   column   
    24.                   for   each   col   in   tab.columns   
    25.                   if col.comment="" then  
    26.                   else  
    27.                         col.name=   col.comment   
    28.                   end if  
    29.                   next   
    30.             end   if   
    31.       next  
    32.   
    33.       Dim   view   'running   view   
    34.       for   each   view   in   folder.Views   
    35.             if   not   view.isShortcut   then   
    36.                   view.name   =   view.comment   
    37.             end   if   
    38.       next  
    39.   
    40.       '   go   into   the   sub-packages   
    41.       Dim   f   '   running   folder   
    42.       For   Each   f   In   folder.Packages   
    43.             if   not   f.IsShortcut   then   
    44.                   ProcessFolder   f   
    45.             end   if   
    46.       Next   
    47. end   sub  
     
  • 相关阅读:
    BZOJ 1726: [Usaco2006 Nov]Roadblocks第二短路
    BZOJ 1708: [Usaco2007 Oct]Money奶牛的硬币
    BZOJ 1642: [Usaco2007 Nov]Milking Time 挤奶时间
    BZOJ 1611: [Usaco2008 Feb]Meteor Shower流星雨
    BZOJ 1610: [Usaco2008 Feb]Line连线游戏
    BZOJ 1609: [Usaco2008 Feb]Eating Together麻烦的聚餐
    BZOJ 1607: [Usaco2008 Dec]Patting Heads 轻拍牛头
    BZOJ 1606: [Usaco2008 Dec]Hay For Sale 购买干草
    BZOJ 1083: [SCOI2005]繁忙的都市
    STL set的用法
  • 原文地址:https://www.cnblogs.com/bug1024/p/8473740.html
Copyright © 2011-2022 走看看