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

功能描述：利用VBScript脚本创建csv/txt文件

有时需要将PLC或运动控制器Simotion中的数据写到SD卡或U盘上。一种实现方法是，如果使用的是精致面板(comfort panel)，可以使用vbscript生成脚本。

软件 TIA Portal V14sp1, Wincc professional V15sp1
硬件一个西门子 TP1200触摸屏 (wince系统)，其它西门子comfort panel也可以
此功能不能使用Wincc模拟器执行，需要有真实的触摸屏
Wince 使用的VBS对象和Windows有区别

参考文献：
https://files.cnblogs.com/files/lion-zheng/vbscript_wince.pdf

https://msdn.microsoft.com/en-us/library/t0aew7h6.aspx

Step1

在触摸屏中建立2个internal tag，
var1,var1

本文中使用触摸屏的internal tag，如果需要存储PLC中内容，请使用PLC tag

Step2 将u盘插入TP1200

在wince系统的"我的电脑"中，查看是否识别了优盘
u盘的路径 "\Storage Card usb"

Step3 插入脚本

以下脚本生成两行CSV表格，第一行是写入文本；第二行是记录var1,var2两个变量的值.

使用FileCtl类创建对象
定义文件路径和文件名
使用open方法来打开文件
使用LinePrint方法写入行
使用close方法关闭文件

Sub VBFunction_1()

Dim f,Storage_Path
Dim v1,v2

Set f =CreateObject("FileCtl.File")

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

f.open Storage_Path,2
v1 = SmartTags("var1")
v2 = SmartTags("var2")

f.LinePrint("valueName1,valueName2,valueName3")
f.LinePrint(""&v1&","&v2&",")		
f.close
Set f = Nothing

End Sub

Step4 通过一个按钮触发脚本

写入优盘后，使用EXCEL打卡CSV文件查看