powerdesign中运行脚本
来源:互联网 发布:拆分盘股权源码 编辑:程序博客网 时间:2024/05/03 14:26
Option Explicit
'-----------------------------------------------------------------------------
' 魔尊年少时制作 http://pc-funning.cnblogs.com/
' 随便修改增强,希望能做记录,做注释,保留出处
' 2009-11-2最后整理
'-----------------------------------------------------------------------------
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 dm, dmstr
Dim SSS
Dim newTable
Dim oldTable
Dim col
Set mdl = ActiveModel '获取当前激活模型
msgbox mdl
first = file.readline
on error goto 0
Do While file.AtEndOfStream <> True '循环读取文档的每一行
tittle = split(first)
oldTable = tittle(3)
str=tittle
for each Tab in mdl.tables
MsgBox Tab.isshortcut
newTable = Tab.code
if(newTable = oldTable) then
msgbox newTable
for each col in Tab.columns
if col.code = str(1) then
col.name = str(0)
end if
if file.AtEndOfStream<>True then
first = file.readline
on error goto 0
str = split(first)
end if
next
end if
next
Loop
file.Close
- powerdesign中运行脚本
- powerdesign,如何解决PDM生成sql脚本的过程中,无法生成外键约束
- mysql中运行脚本
- powerDesign
- powerDesign
- PowerDesign
- PowerDesign
- PowerDesign
- PowerDesign中新建外键
- 用Powerdesign把mysql脚本转为sqlserver脚本
- c#中运行sql脚本
- ubuntu中运行python脚本
- ubuntu中运行python脚本
- LoadRunner12_脚本中运行JavaScrip
- PowerDesign中设置Columns的default值
- Ajax中无法运行RegisterStartupScript脚本
- 在htm中运行php脚本
- 在AHK中运行Lua脚本文件
- 载入静态页面时刷新
- 解释与编译
- 反射
- 发布网站成功后,上传到服务器后,IE中出现错误"服务器应用程序不可用"
- 简单的汉诺塔问题
- powerdesign中运行脚本
- ADO.Net 2.0 速度极快的批量更新方法
- java过滤器对ext异步请求跳转
- Linux下PCI设备驱动程序开发基本框架
- SQL Server 2000在windows 7下新建表
- sockets编程之概括
- 腾讯的价值那是相当的大!
- 工欲善其事 必先利其器
- SQL Server中的CTE