Option Explicit
Function action
' Const ForReading = 1, ForWriting = 2
Dim InternalPMMTag
Dim fso, MyFile
Dim PMMtagvalue(19)
Dim i
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("C:\PMMCOMM\PMMResultBak.txt", 1)
' HMIRuntime.BaseScreenName = "Example"
For i=1 To 19
Set InternalPMMTag = HMIRuntime.Tags("PMMdata_" & i &"")
InternalPMMTag.Value = MyFile.Readline
'InternalPMMTag.Value = 55
InternalPMMTag.Write
Next
MyFile.Close
End Function
问题补充：
Sorry
怎么显示不分行呀；
最佳答案
全局动作需要设置触发器，如时间触发或变量触发。
另外，在WinCC的启动参数中要选上“全局动作”。
提问者对于答案的评价：
谢谢，好了，没有勾选全局脚本运行系统！
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc278590.html
微信扫一扫 
支付宝扫一扫 