功能描述:利用VBScript脚本创建csv/txt文件
有时需要将PLC或运动控制器Simotion中的数据写到SD卡或U盘上。一种实现方法是,如果使用的是精致面板(comfort panel),可以使用vbscript生成脚本。
软件 TIA Portal V14sp1, Wincc professional V15sp1
硬件 一个西门子 TP1200触摸屏 (wince系统),其它西门子comfort panel也可以
此功能不能使用Wincc模拟器执行,需要有真实的触摸屏
Wince 使用的VBS对象和Windows有区别
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文件查看