1、根据条件更改字符类型.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 code for each table, each column
'of the current folder
Private sub ProcessFolder(folder)
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.name = tab.comment
Dim col 'running column
for each col in tab.columns
col.name= MID(col.comment,instr(col.comment,"-")+1) '列的名字取自注释中“-“的后半部分
if instr(col.comment,"所得")<>0 then
col.DataType= "VARCHAR2(10000)" '注释中包含“所得”字样的