从 WinCC 读取数据并写入一个文件 (VB 脚本)

已锁定

SIEMENS:

  • 帖子

    92
  • 精华

    0
  • 被关注

    22

论坛等级:侠客

注册时间:2010-08-13

普通 普通 如何晋级?

从 WinCC 读取数据并写入一个文件 (VB 脚本)

1325

4

2011-02-25 09:30:19

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记录文件。
急,加急!

从 WinCC 读取数据并写入一个文件 (VB 脚本) 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-300/400

共有54615条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。