用VBScript将WORD字典表或TXT导入PowerDesigner来批量生成表

  最近一个项目要做彻底改版，数据库需要重构。结果收到一堆WORD的字典表，按上面的要求开库建表。类似于这种：

正常情况下，接下来就是手指运动，Ctrl+C和Ctrl+V在Word和PowerDesigner之间运动。手都酸了，于是就想：有没有办法批量导入呢？

于是GOOGLE一下，发现了一篇参考文章：http://www.cnblogs.com/pc-funning/archive/2009/01/21/1379537.html.然后就自己开始捣鼓捣鼓。。。

先把word内容贴到Excel里，然后再把Excel另存为用制表符分隔的CSV文件，然后再用txt打开此CSV文件，再整理了一下格式。

但是用制表符分隔时，总有错误，一怒之下，就把所有制表符用“|”代替之。结果，好了，导入无误。

我的TXT格式如下：

表名|说明

字段名(也是Code名)|数据类型|数据长度|默认值|字段说明

Bank|银行表
BankID|int|4|1|
BankName|nvarchar|50||银行名称
BankImage|varchar|100|N'Blank.jpg'|银行图片
BankState|bit|1|0|可用：0否，1是

vbscript如下：

Option Explicit

Dim system, file
Set system = CreateObject("Scripting.FileSystemObject") 


Dim ForReading, ForWriting, ForAppending
dim str
dim tittle
dim first
ForReading   = 1 ' 设置文件只读 
ForWriting   = 2 ' 设置文件写入
ForAppending = 8 ' 设置文件追加


Set file = system.OpenTextFile("D:\table.txt", ForReading)'打开文本文档
Dim noLine
Dim Tab  '定义一个表，vbscript中变量没有那么严格的类型，但此变量将来将用来表示table
ValidationMode = True
Dim mdl ' 定义当前激活的模型，也就是mdl
Dim Col
dim dm, dmstr
Dim SSS
Dim isNewTable

Set mdl = ActiveModel '获取当前激活模型

    set Tab = mdl.Tables.CreateNew
    isNewTable = True

    first=file.readline '读文档按行读
    tittle=split(first,"|") '以空格分隔划分入数组,获取的是表的属性，可以获取更多属性，根据实际情况而定
    tab.name=tittle(0) 'name
    tab.code=tittle(0) 'code
    tab.comment=tittle(1) 'comment

Do While file.AtEndOfStream <> True '循环读取文档的每一行
   SSS = file.ReadLine
   str=split(SSS,"|")

   If SSS <> "" Then
     isNewTable = False
   Else
    isNewTable = True
   End If
   
   If isNewTable = True Then
    first=file.readline '读文档按行读
     tittle=split(first,"|")
    set Tab = mdl.Tables.CreateNew  '创建新表，这是读到空行时的表现，自己用来警示
     tab.name=tittle(0) 'name
     tab.code=tittle(0) 'code
    msgbox(tittle(0))
     tab.comment=tittle(1) 'comment
   Else
    set Col=tab.Columns.CreateNew '创建一行字段
    Col.name = str(0) '依次设置属性，同表的属性，字段熟悉也可以设置更多，根据实际情况
    Col.Code= str(0)
    '这里的判断主要是因为我的txt还有一个数据类型长度的值，但这些类型是不能指定长度的。

    ’如果你的txt整理成：字段名(也是Code名)|数据类型（数据长度）|字段说明;那么下面的判断和异常处理都免了。

    '因为我拿到的word字典表就是这个样子，也没有办法，如果每个字段去整理出来，那就。。。

    if LCase(str(1))<>"int" and Lcase(str(1))<>"bit" and Lcase(str(1))<>"datetime" and Lcase(str(1))<>"tinyint" and Left(Lcase(str(1)),7)<>"decimal" then
     on error resume next
    col.datatype=str(1)+"("+str(2)+")"
    if err<>0 then
     msgbox(str(0)+"-"+str(1)+":"+Err.Description )
    end if
    else
    col.datatype=str(1)
    end if
    col.Comment=str(4)
    col.defaultValueDisplayed=str(3)
   End If
Loop
file.Close

Ctrl+Shift+X调出脚本执行窗口，执行一下，pdf里新增了一大堆表，心情大好。但是有些设定还是需要去手动去做，如键，关系等等。

--------------------------------------------

如蒙转载或引用，请保留以下内容：
Joe's Blog:http://www.cnblogs.com/Joe-T/