powerdesigner导出SQL时大写转换

最新推荐文章于 2024-03-11 09:35:27 发布

转载最新推荐文章于 2024-03-11 09:35:27 发布 · 130 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/duanxz/p/4396395.html

本文介绍如何通过VBS脚本自动化地修改物理模型中的代码大小写，避免手动修改带来的繁琐和错误。适用于需要批量处理模型代码格式化的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

打开物理模型，点击菜单“Tools->Execute Commands -> Edit/Run Script..."，或者快捷键（Ctrl+Shift+X）执行下面vbscript脚本

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 code 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.code = tab.name
         Dim col ' running column
         for each col in tab.columns
            col.code= UCase(col.code)
         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

   ' 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

就可以将code从小写转为大写.就可以不必粘贴过来再改了.

转载于:https://www.cnblogs.com/duanxz/p/4396395.html