西门子触摸屏利用VBScript脚本创建csv文件

功能描述：

如何利用Visual Basic Script (VBScript) 脚本创建CSV或TXT文件，特别是从西门子（Siemens）的PLC (Programmable Logic Controller) 或运动控制器SimoMotion中读取数据，并将其存储到SD卡或USB上。具体步骤，倘若你使用的是具备comftor panel的触摸屏（如西门子 TP1200），则可以通过构建VBScript脚本来实现。所使用软件版本为TIA Portal V14sp1和WinCC Professional V15sp1，硬件系统包含西门子 TS1200的触控面板操作系统为Wince，其他具备comfort panel的触摸屏设备也可应用此方法。然而，利用WinCC模拟器是无法执行此功能的，这需要的是实际的触摸屏设备。

系统结构：




以下步骤依赖于以下硬件与软件配置：


特定型号的西门子TP1200触摸屏（使用操作系统Wince）

用于执行VBScript的TIA Portal V14sp1和WinCC Professional V15sp1软件

需要将数据保存至的SD卡或USB设备。


步骤一：

建立触摸屏内的两个internal tag，分别为 var1 和 var2(在本教程中使用的是触摸屏内部的tag，如需保存PLC中的数据，则需要使用PLC Tag)。

步骤二：


将USB设备连接至TP1200触摸屏。

在Wince系统的“我的电脑”中验证是否识别了USB设备。如果提示设备为 "Storage Card usb"，证明设备已识别并在正确的路径下。

步骤三：

编写并插入脚本功能。以下脚本以CSV格式输出双行数据。首先写入与identifier相关联的文本，后续则将读取到的`var1`和`var2`变量的值分别记录。脚本中使用FileCtl特性的"File"对象用于文件操作。

```vbscript


Sub VBFunction_1()


Dim f, Storage_Path


Dim v1, v2


' 创建FileCtl.File对象实例


Set f = CreateObject("FileCtl.File")


' 定义文件路径及文件名

Storage_Path = "\Storage Card usb\myfile.csv"

' 打开文件并指定访问方式


f.open Storage_Path, 2

' 设置要读取的var1和var2的变量名称（假设这是获取变量的常见方式或快捷方式）

v1 = SmartTags("var1")


v2 = SmartTags("var2")


' 设计CSV的第一行文字

f.LinePrint("valueName1,valueName2,valueName3")

' 写入变量值于第二行


f.LinePrint(""& v1 & "," & v2 & ",")


' 关闭文件以完成输出


f.close


' 清理对象引用避免内存占用


Set f = Nothing


End Sub


```

请确保将 "valueName1,valueName2,valueName3" 替换为实际要输出的行标题。

步骤四：


通过触摸屏面板上的一个按钮触发VBScript代码的执行。

执行脚本后，使用Excel来打开CSV文件读取数据。Excel提供了快速检查及验证输出数据的功能，帮助用户查看并分析保存到USB设备上的数据。