请教wincc 中VB怎么修改 点击：1072 | 回复：6
现在我的脚本如下：
Dim mon
Set mon=ScreenItems("list1")
Dim c
Set c=HMIRuntime.Tags("tag1")
c.Write mon.List(0)
Dim fso,File
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set FilE = fso.OpenTextFile("g:\1.txt", ForWriting, True)
File.WriteLine c.read
File.Close
脚本意思是读取list1上的第1个元素，并把值写到tag1中，同时将tag1写入1.txt中，现在想实现的是
从第1行开始，循环读取list1中的元素，每读取1个，就写入1.txt中一次，第二次从第二行开始写，一直到list1元素读完，最后的结果就是元素全部写入到了1.txt中，每个元素占1行。应该怎么修改啊？
Dim mon
Set mon=ScreenItems("list1")
Dim c
Set c=HMIRuntime.Tags("tag1")
Dim i
For i=LBound(mon.List) to UBound(mon.List)
c.Write mon.List(i)
Dim fso,File
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set FilE = fso.OpenTextFile("g:\1.txt", ForWriting, True)
File.WriteLine c.read
File.Close
Next
把文本关闭放到最后
Dim mon
Set mon=ScreenItems("list1")
Dim c
Set c=HMIRuntime.Tags("tag1")
Dim i
For i=LBound(mon.List) to UBound(mon.List)
c.Write mon.List(i)
Dim fso,File
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set FilE = fso.OpenTextFile("g:\1.txt", ForWriting, True)
File.WriteLine c.read
Next
File.Close
- 什么组态软件可以实现和S7-1...
[2461] - 求助：用VC++做的.dll文件在V...[3040]
- 版主关于:国产PLC及编程软件...[9570]
- 哪里能下载FIX7。0使用手册[2452]
- 台达PLC上载时，密码功能无效...[2698]
- 数控车床自动加工视频[2174]
- 关于S7-200编程软件[2277]
- 什么叫闭环的时间常数？[5641]
- Protel DXP使用漫谈[6925]
- 用组态王打包时缺少kingtree...[2924]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
