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