vbs调用CST
来源:互联网 发布:win qt 串口编程 编辑:程序博客网 时间:2024/04/28 22:55
代码4:VBS调用CST进行运算
Dim app
Set app = CreateObject("CSTStudio.Application")
Dim mws
Set mws = app.OpenFile("D:/VBS/1.cst")
'mws.Visible = False
With mws
.DeleteResults
.Rebuild
.Solver.Start
.Save
End With
mws.Quit
代码5:VBS调用CST进行运算
Dim fs
Set fs =createobject("scripting.filesystemobject")
Dim ts
Set ts=fs.opentextfile("opt.txt",1,true)
Dim path
path=ts.readall
ts.close
'msgbox path
Dim app
Set app = CreateObject("CSTStudio.Application")
Dim mws
Set mws = app.OpenFile(path)
Dim chang
Dim kuan
Dim gao
'Dim result(30)
Set ts=fs.opentextfile("chang1.txt",1,true)
chang=ts.readline
'msgbox chang
ts.close
Set ts=fs.opentextfile("kuan1.txt",1,true)
kuan=ts.readline
'msgbox kuan
ts.close
Set ts=fs.opentextfile("gao1.txt",1,true)
gao=ts.readline
'msgbox gao
ts.close
With mws
.DeleteResults
.StoreParameter "Lg", chang
.StoreParameter "Ls", kuan
.StoreParameter "Lcross", gao
.Rebuild
.Solver.Start
.Save
End With
mws.Quit
Dim app
Set app = CreateObject("CSTStudio.Application")
Dim mws
Set mws = app.OpenFile("D:/VBS/1.cst")
'mws.Visible = False
With mws
.DeleteResults
.Rebuild
.Solver.Start
.Save
End With
mws.Quit
代码5:VBS调用CST进行运算
Dim fs
Set fs =createobject("scripting.filesystemobject")
Dim ts
Set ts=fs.opentextfile("opt.txt",1,true)
Dim path
path=ts.readall
ts.close
'msgbox path
Dim app
Set app = CreateObject("CSTStudio.Application")
Dim mws
Set mws = app.OpenFile(path)
Dim chang
Dim kuan
Dim gao
'Dim result(30)
Set ts=fs.opentextfile("chang1.txt",1,true)
chang=ts.readline
'msgbox chang
ts.close
Set ts=fs.opentextfile("kuan1.txt",1,true)
kuan=ts.readline
'msgbox kuan
ts.close
Set ts=fs.opentextfile("gao1.txt",1,true)
gao=ts.readline
'msgbox gao
ts.close
With mws
.DeleteResults
.StoreParameter "Lg", chang
.StoreParameter "Ls", kuan
.StoreParameter "Lcross", gao
.Rebuild
.Solver.Start
.Save
End With
mws.Quit
- vbs调用CST
- VBS调用EXCEL、CST与HFSS等
- VBS调用封装CST中的易错地方
- vbs调用WebService
- C++调用VBS
- VBS的语音调用
- QTP调用.VBS
- Java调用VBS
- vb 调用 VBS
- VBS调用mswinsck.ocx
- 关于VBS调用MSWinsock控件
- 关于VBS调用MSWinsock控件
- 关于VBS调用MSWinsock控件
- VBS之CreateObject调用对象
- CRT调用VBS脚本实例
- java 调用 vbs 操作excel
- js_Xmlwriter的vbs的调用方法
- VBS和JS互相调用方法
- 2012.10.3 阶乘问题(fact.pas/in/out)
- Ural-1018-Binary Apple Tree
- 查看Android应用所需权限(uses-permission)
- Linux NAT基本流程与实现技巧
- 重定向 freopen
- vbs调用CST
- 在Eclipse4.2x中安装最新版插件WindowsBuilder
- Toast用法
- doGet和doPost的区别,在什么时候调用,为什么有时doPost
- Storm数据流模型的分析及讨论
- Android Develop Training——为Android应用增加操作栏(Adding the Action Bar)
- ListView
- 单链表的建立和遍历(单链表)
- 单引号、双引号 Html转义符