发表于:2007-10-16 09:01:00
楼主
Option Explicit
Function action
Const ForReading = 1, ForWriting = 2
Dim InternalPMMTag
Dim fso, MyFile
Dim PMMtagvalue(19),i
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("C:\PMMCOMM\PMMResultBak.txt", ForReading)
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
这段代码在画面的一个按钮的单击事件中可以成功执行,为什么在Global script中不能执行?
有办法调试吗?