powerDesign经验谈(2)-注释、名称互转

2023-10-19 14:37

本文主要是介绍powerDesign经验谈(2)-注释、名称互转,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

目录

    • 1. 注释转名称comment2name
    • 2. 注释转名称name2conmment

powerdesigner的常用操作:

在实际的工作中经常会用到将“注释和name”互转,具体如下:

  1. 菜单运行: Tools --> Execute Commads -->Edit/Run Script…

1. 注释转名称comment2name

'1、注释转名称(包含表名、视图名)
Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_BatchDim   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 NextDim   Tab   'running     table for   each   Tab   in   folder.tables if   not   tab.isShortcut   then tab.name   =   tab.commentDim   col   '   running   column for   each   col   in   tab.columns if col.comment="" thenelsecol.name=   col.comment end ifnext end   if nextDim   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
'1、注释转名称(包含仅字段名)
Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_BatchDim   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 NextDim   Tab   'running     table for   each   Tab   in   folder.tables if   not   tab.isShortcut   thenDim   col   '   running   column for   each   col   in   tab.columns if col.comment="" thenelsecol.name=   col.comment end ifnext 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

2. 注释转名称name2conmment

'******************************************************************************  
'* File:   name2comment.vbs  
'* Title:  Name to Comment Conversion  
'* Model:  Physical Data Model  
'* Objects: Table, Column, View  
'* Author: steveguoshao  
'* Created: 2013-11-29  
'* Mod By:   
'* Modified: 
'* Version: 1.0  
'* Memo:   Modify from name2code.vbs  
'******************************************************************************  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  

这篇关于powerDesign经验谈(2)-注释、名称互转的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/240442

相关文章

vscode中文乱码问题,注释,终端,调试乱码一劳永逸版

忘记咋回事突然出现了乱码问题,很多方法都试了,注释乱码解决了,终端又乱码,调试窗口也乱码,最后经过本人不懈努力,终于全部解决了,现在分享给大家我的方法。 乱码的原因是各个地方用的编码格式不统一,所以把他们设成统一的utf8. 1.电脑的编码格式 开始-设置-时间和语言-语言和区域 管理语言设置-更改系统区域设置-勾选Bata版:使用utf8-确定-然后按指示重启 2.vscode

在 Qt Creator 中,输入 /** 并按下Enter可以自动生成 Doxygen 风格的注释

在 Qt Creator 中,当你输入 /** 时,确实会自动补全标准的 Doxygen 风格注释。这是因为 Qt Creator 支持 Doxygen 以及类似的文档注释风格,并且提供了代码自动补全功能。 以下是如何在 Qt Creator 中使用和显示这些注释标记的步骤: 1. 自动补全 Doxygen 风格注释 在 Qt Creator 中,你可以这样操作: 在你的代码中,将光标放在

单细胞降维聚类分群注释全流程学习(seruat5/harmony)

先前置几个推文~ 单细胞天地: https://mp.weixin.qq.com/s/drmfwJgbFsFCtoaMsMGaUA https://mp.weixin.qq.com/s/3uWO8AP-16ynpRQEnEezSw 生信技能树: https://mp.weixin.qq.com/s/Cp7EIXa72nxF3FHXvtweeg https://mp.weixin.qq.

数据结构——双链表实现和注释浅解

关于双链表的基础部分增删查改的实现和一点理解,写在注释里~  前言              浅记   1. 哨兵位的节点不能被删除,节点的地址也不能发生改变,所以是传一级指针 2. 哨兵位并不存储有效数据,所以它并不是有效节点 3. 双向链表为空时,说明只剩下一个头节点(哨兵位)  List.h #pragma once#include<

Oracle 查看表空间名称及大小和删除表空间及数据文件方法

--1、查看表空间的名称及大小  SELECT t.tablespace_name, round(SUM(bytes / (1024 * 1024)), 0) ts_size  FROM dba_tablespaces t, dba_data_files d  WHERE t.tablespace_name = d.tablespace_name  GROUP BY t.tablespace_na

Java应用对接pinpoint监控工具的时候,应用名称长度超出限制而导致接入失败

一、背景 java应用需要接入pinpoint,同一个虚拟机上的其他应用接入成功,唯独本应用不行。 首先排除是pinpoint agent的问题,因为其他应用都正常。 然后,我就对比二者的启动脚本。 -javaagent:/opt/pinpoint/pinpoint-bootstrap.jar -Dpinpoint.agentId=DA301004_17 -Dpinpoint.applic

【JavaScript】方法属性的匿名函数是匿名函数么(附:获取当前执行函数名称的方法)

var ninja = {shout: function(){console.log("hello");}}   有些人可能认为,将匿名函数赋值给名为shout的属性也就相当于给它取了名字,其实这是不正确的理解。shout是属性的名称,而不是函数自身的名称。这一点可以通过检查函数的name属性来验证。 下面是一些测试实例,请自行思考(前两个均为匿名函数):

A-loam源码注释-头文件lidarFactor.hpp

本篇博客是A-loam学习的笔记,用于SLAM初学者一起学习。 lidarFactor.hpp #include <ceres/ceres.h> #include <ceres/rotation.h> #include <eigen3/Eigen/Dense> #include <pcl/point_cloud.h> #include <pcl/point_types.h> #include

02 Shell Script注释和debug

Shell Script注释和debug 一、ShellScript注释 ​ # 代表不解释不执行 ​ 语法:# # 创建myshell.sh文件[root@localhost ~]# vi myshell.sh # 写入内容#!/bin/bash# 打印hello world(正确)echo "hello world"echo "hello 2" # 注释2(正确)echo

排查 MyBatis XML 配置中的 IF 语句与传值名称不匹配的 Bug

文章目录 本文档只是为了留档方便以后工作运维,或者给同事分享文档内容比较简陋命令也不是特别全,不适合小白观看,如有不懂可以私信,上班期间都是在得 前言,在改一个bug得时候发现一个有意思得问题,就是mybatis得xml中if判断得问题,传值名字不匹配依旧可以进行判断,如下图 传值userName,但是有意思得事情出现了,进了if,并且没有报错,尝试了两次都是这