powerdesigner导出字段信息的vba脚本

淡淡的烟草味﹌ 2022-08-18 03:24 239阅读 0赞

导出字段等信息（在pd中执行如下脚本，部分地方需要修改）

Option Explicit  
ValidationMode = True  
InteractiveMode = im\_Batch  
  
'on error resume next  
  
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    
   Dim col 'running column  
   Dim v\_datatype,v\_length,v\_precision,v\_primarykey,v\_null,v\_flag  
   Dim text  
   Dim system, file  
   Set system = CreateObject("Scripting.FileSystemObject")  
  
  ' Open mode constants...  
  Dim ForReading, ForWriting, ForAppending  
  ForReading   = 1 ' Open a file for reading only. You can't write to this file.  
  ForWriting   = 2 ' Open a file for writing.  
  ForAppending = 8 ' Open a file and write to the end of the file.  
  
  
  Set file = system.OpenTextFile("E:\\export.log", ForAppending, true)  
   for each tab in folder.tables  
      if not tab.isShortcut Then  
           IF instr(tab.code,"cust")>0 THEN  
           for each col in tab.columns  
                if col.Primary=true then '主键判断  
                     v\_primarykey = 1  
                     v\_null= 0  
                else  
                     v\_primarykey = 0  
                     v\_null= 1  
                end if  
                 
                v\_dataType = uCase(Col.DataType)  
                v\_length = col.length  '取数据类型长度  
                v\_precision= col.precision  '取数据类型精度  
                 
                if  instr(v\_dataType,"VARCHAR")>0 Then   '数据类型判别  
                     v\_dataType = 12  
                elseif instr(v\_dataType,"DECIMAL")>0 Then  
                     v\_dataType = 3  
                elseif  instr(v\_dataType,"INTEGER")>0 Then  
                     v\_dataType = 4  
                end if  
                 
                'if v\_dataType = 4 then  
                '     v\_length =16  
                '     v\_precision = 3  
                'end if  
                 
              
                text = tab.code&":"&col.code&":"&v\_datatype&":"&v\_length&":"&v\_precision&":"&v\_primarykey&":"&v\_null&":"&col.code&":"&v\_flag&vbCrLf  
                    file.Write text  
             
               next  
               end if  
      end if  
   Next  
   file.Close  
   output "处理结束!"  
end sub