PowerDesigner 大小写转换

打开一个PDM，在菜单栏找到：Tools – Excute Commands – Edit/Run Script，或者直接按Ctrl+Shift+X调出脚本执行窗口，输入下边的代码就可以了。

下面提供段代码可以把PowerDesigner中的小写字母变为大写字母。

代码如下：

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

Dim mdl ' 当前模型

' 获取当前模型

Set mdl = ActiveModel

If (mdl Is Nothing) Then

MsgBox "没有打开一个模型"

ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then

MsgBox "当前模型不是一个PDM"

Else

'调用处理程序

ProcessFolder mdl

End If

'调用的处理程序

Private sub ProcessFolder(folder)

Dim Tab '要处理的表

for each Tab in folder.Tables

' if not Tab.isShortcut then

' Tab.code = tab.name

'表名处理，前边添加前缀，字母小写

Tab.name= UCase(Tab.name)

Tab.code= UCase(Tab.code)

Dim col ' 要处理的列

for each col in Tab.columns

'列名称和code全部小写，大写诗UCase

col.code= UCase(col.code)

col.name= UCase(col.name)

next

'end if

next

' 处理视图

' Dim view 'running view

' for each view in folder.Views

' if not view.isShortcut then

' view.code = view.name

' end if

' next

' 递归进入 sub-packages

Dim f ' sub folder

For Each f In folder.Packages

if not f.IsShortcut then

ProcessFolder f

end if

Next

end sub

===================================================================

下面提供段代码可以把PowerDesigner中的大写字母变为小写字母。

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

Dim mdl ' 当前模型

' 获取当前模型

Set mdl = ActiveModel

If (mdl Is Nothing) Then

MsgBox "没有打开一个模型"

ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then

MsgBox "当前模型不是一个PDM"

Else

'调用处理程序

ProcessFolder mdl

End If

'调用的处理程序

Private sub ProcessFolder(folder)

Dim Tab '要处理的表

for each Tab in folder.Tables

' if not Tab.isShortcut then

' Tab.code = tab.name

'表名处理，前边添加前缀，字母小写

Tab.name= LCase(Tab.name)

Tab.code= LCase(Tab.code)

Dim col ' 要处理的列

for each col in Tab.columns

'列名称和code全部小写，大写诗UCase

col.code= LCase(col.code)

col.name= LCase(col.name)

next

'end if

next

' 处理视图

' Dim view 'running view

' for each view in folder.Views

' if not view.isShortcut then

' view.code = view.name

' end if

' next

' 递归进入 sub-packages

Dim f ' sub folder

For Each f In folder.Packages

if not f.IsShortcut then

ProcessFolder f

end if

Next

end sub

字段设置小写

\TOOLS\MODEL OPETION\ 中把 TABLE 和 COLOMN 的CODE 值设为大写即可，点击确定，它就是自动把当前模型中的字符统统改正过来哦。

PowerDesigner 大小写转换相关推荐

PowerDesigner表结构和字段大小写转换
原文:https://www.cnblogs.com/zhzhang/p/3946609.html [转]PowerDesigner表结构和字段大小写转换 [转自]http://blog.csdn.n ...
C++ OJ 中多行数据输入（大小写转换、通过移位运算实现2的n次方、多组输入，每行输入数量不一样）
1. 多组输入,输出每行最大值 while(cin>>a>>b) 主要解决的是两个为一组的多组数据输入,当一次只输入一个数据时就用 while(cin>>a) 输入 ...
C++ 字符串字母大小写转换
C++ 字符串字母大小写转换使用algorithm,里面的tolower(转小写)toupper(转大写) #include <iostream> #include <string ...
C++ 笔记（22）— STL string 类（字符串赋值、访问、拼接、查找、翻转、大小写转换）
1. 实例化和赋值 STL string #include <string> #include <iostream>int main () {using namespace s ...
php 英文小写变大写,PHP英文字母大小写转换函数
例1,每个单词的首字母转换为大写:ucwords() 复制代码代码示例: $foo = 'hello world!'; $foo = ucwords($foo); // He ...
黄聪：Python 字符串操作（string替换、删除、截取、复制、连接、比较、查找、包含、大小写转换、分割等）...
去空格及特殊符号 s.strip().lstrip().rstrip(',') 复制字符串 #strcpy(sStr1,sStr2) sStr1 = 'strcpy' sStr2 = sStr1 sS ...
R语言大小写转换函数（tolower, toupper, casefold,chartr)实战
R语言大小写转换函数(tolower, toupper, casefold,chartr)实战目录 R语言大小写转换函数(tolower, toupper, casefold,chartr)实战 # ...
Linux批量文件名大小写转换,Linux中批量把目录内文件名转换大小写用tr
如何将一个目录中所有文件名由大写变为小写我们以目录 tmp 为例 1. 进入 tmp 目录的上一级目录 2. zip -r tmp.zip tmp/* 3. mv tmp tmp-old (这是为了 ...
jS字符串大小写转换实现方式
toLocaleUpperCase 方法:将字符转换为大写 stringVar.tolocaleUpperCase( ) 必选的 stringVar 引用是一个 String 对象,值或文字. //转 ...

PowerDesigner 大小写转换

PowerDesigner 大小写转换相关推荐

最新文章

热门文章