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

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

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

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

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

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

Step1

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

本文中使用触摸屏的internal tag，若是须要存储PLC中内容，请使用PLC tagip

<img src="https://images2018.cnblogs.com/blog/1122471/201805/1122471-20180517145233771-1801588162.png" width="60%">get

Step2 将u盘插入TP1200

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

Step3 插入脚本

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

使用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

<img src="https://images2018.cnblogs.com/blog/1122471/201805/1122471-20180517150056155-1090487038.png" width="60%">pdf

Step4 经过一个按钮触发脚本

<img src="https://images2018.cnblogs.com/blog/1122471/201805/1122471-20180517145146093-1903935948.png" width="40%">变量

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