PowerDesigner技巧集5 ---- 用vbscript让txt文本中的内容导入PDM模型

如下的脚本实现用vbscript让txt文本中的内容导入PDM模型

Option ExplicitDim system, fileSet system = CreateObject("Scripting.FileSystemObject") Dim ForReading, ForWriting, ForAppendingdim strdim titledim firstForReading   = 1 ' 设置文件只读 ForWriting   = 2 ' 设置文件写入ForAppending = 8 ' 设置文件追加Set file = system.OpenTextFile("E:\Users\hxw\Desktop\VBScript\tab.txt", ForReading)'打开文本文档Dim noLineDim Tab  '定义一个表，vbscript中变量没有那么严格的类型，但此变量将来将用来表示tableValidationMode = TrueDim mdl ' 定义当前激活的模型，也就是mdlDim Coldim dm, dmstrDim SSSDim isNewTableSet mdl = ActiveModel '获取当前激活模型set Tab = mdl.Tables.CreateNewisNewTable = Truefirst=file.readline '读文档按行读title=split(first) '以空格分隔划分入数组,获取的是表的属性，可以获取更多属性，根据实际情况而定tab.name=title(0) 'nametab.code=title(1) 'codetab.comment=title(2) 'commentDo While file.AtEndOfStream <> True '循环读取文档的每一行   SSS = file.ReadLine   str=split(SSS)   If SSS <> "" Then isNewTable = False   Else    isNewTable = True   End If   If isNewTable = True Thenfirst=file.readline '读文档按行读  title=split(first)set Tab = mdl.Tables.CreateNew  '创建新表，这是读到空行时的表现，自己用来警示tab.name=title(0) 'nametab.code=title(1) 'codetab.comment=title(2) 'commentElseset Col = tab.Columns.CreateNew '创建一行字段Col.name = str(0) '依次设置属性，同表的属性，字段熟悉也可以设置更多，根据实际情况Col.Code = str(0)col.datatype = str(2)col.comment = str(3)   End IfLoopfile.Close

tab.txt的内容如下：

表名1 表code1 表comments1
字段名1 mycode1 VARCHAR2(32) 说明1
字段名2 mycode2 VARCHAR2(256) 说明2

表名2 表code2 表comments2
字段名1 mycode1 VARCHAR2(32) 说明1
字段名2 mycode2 VARCHAR2(256) 说明2