西門子觸摸屏利用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文件查看