TP277腳本仿真時(shí)可實(shí)現(xiàn),屏上無法實(shí)現(xiàn)
劉玉蓉
發(fā)布于2014-10-13 17:38
486
0
標(biāo)簽:
TP277的屏上記錄變量值,利用腳本生成CSV文件。我再仿真時(shí)可以實(shí)現(xiàn)功能,為何在屏上無法實(shí)現(xiàn)??
函數(shù)在WINCE系統(tǒng)下是否無法使用?
我保存的路徑是storage_path="storage Card USB"
SET fso=createobject("scripting.filesystemobject")
創(chuàng)建得換成Fliectl.file嗎?
問題補(bǔ)充:
Dim fso, f, ts, bCreated, FName, Dataset, Header, Storage_Path, strName, strTemp, arr, strDir
Storage_Path = "Storage Card USB"
FName = Storage_Path & "Archiv_" & CStr(DatePart("d",Date)) & "_" & CStr(DatePart("m",Date)) & "_" & CStr(DatePart("yyyy",Date)) & ".csv"
Header = "Storage time;name;barcode;diameter;error" & Chr(10)
Set fso = CreateObject("FileCtl.FileSystem")
Script_Storage_Path Storage_Path
On Error Resume Next
bCreated = False
If Not fso.FileExists(FName) Then
fso.CreateTextFile FName
bCreated=True
End If
Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream (8,-2)
If Err.Number <> 0 Then
Call ShowSystemAlarm ("Datei konnte nicht angelegt werden oder ist eventuell ge?ffnet / File could not be create or maybe open")
Err.Clear
Else
If bCreated = True Then
ts.lineprint FName
ts.lineprint Header
End If
Dataset = CStr(Now) & ";" & CStr(SmartTags("name")) & ";" & CStr(SmartTags("barcode")) & ";" & CStr(SmartTags("diame
佳答案
是的,scripting.filesystemobject是電腦Windows里的FSO對(duì)象,WinCE里面是不一樣的
讀寫文件還是按你說的用FileCtl.File,另外還要注意一些WinCE里和Windows里使用的一些區(qū)別,具體可參考WinCCflexible幫助里關(guān)于WinCE VBScript里的內(nèi)容
Set fso = CreateObject("FileCtl.File") """" 建立File對(duì)象