http://support.automation.siemens.com/CN/llisapi.dll?func=cslib.csinfo&objId=850338&objAction=csOpen&lang=zh&siteid=cseus&aktprim=0&extranet=standard&viewreg=CN
在上面的地址中可以找到。
从 WinCC 读取数据并写入一个文件 (VB 脚本)
Sub OnClick(Byval Item)
Dim tagName, tagValue, tagFilename
Dim strFilename, strLine
Dim arrTags(4), i
Dim fso, objFile, objTag
arrTags(0) = "Guo_Temp_1"
arrTags(1) = "Guo_Temp_2"
arrTags(2) = "Guo_Temp_3"
arrTags(3) = "Guo_Value_3"
arrTags(4) = "T_Speed_1"
Set tagFilename = HMIRuntime.Tags("D:\工艺参数.xls")
strFilename = tagFilename.Read
Set fso = CreateObject("s cripting.FileSystemObject")
Set objFile = fso.CreateTextFile(strFilename,True)
'for control
HMIRuntime.Trace("VB-s cript: Write file: " & strFilename & vbCrLf)
For i=0 To 4
Set objTag = HMIRuntime.Tags(arrTags(i))
strLine = arrTags(i) & ";" & objTag.read
objFile.WriteLine strLine
'for control
HMIRuntime.Trace(strLine & vbCrLf)
Next
objFile.Close
End Sub
上面是我改的,麻烦帮忙看下,怎么生成不了CSV记录文件。
急,加急!