-> Hier kostenlos registrieren
Hallo,
ich habe den Skrit PC auf meine Rechner getestet, es funktioniert soweit super, und ich habe diesen Code für Panel angepasst
und ich habe momentan leider kein Panel zur verfügung zum testen. Darum frage ich den Experten ob der Code richtig angepasst?
[CODE------------------Panel------------------------------------
Dim f,fs,Datei,Datum,strHeader,strDatenzeile
On Error Resume Next
Set f=CreateObject("filectl.file")
Set fs=CreateObject("filectl.filesystem")
'---------Verzeichnis erstellen--------------------
If fs.dir("Storage Card MMC\Ordner")="" Then fs.mkdir("Storage Card MMC\Ordner")
'---------Daten auf MMC schreiben----------
Datei = "\Storage Card MMC\Ordner\werte.csv"
Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
strHeader="Datum;"&"Uhrzeit;"&"Wert_B1[°C];"&"wert_B2[°C]
strDatenzeile=CStr(Date)& ";" &CStr(Time)&";"& SmartTags("DB_Mess.wert_B1")&";"& SmartTags("DB_Mess.wert_B2")
If SmartTags ("Var_Script_Start")= True Then
If fs.dir("Datei")="" Then
f.open Datei,2
f.LinePrint "Prozesswerte"
f.LinePrint strHeader
f.LinePrint strDatenzeile
Else
f.open Datei,8
f.LinePrint strDatenzeile
End If
End If
------------------------------------------------------------
---------------------PC-------------------------------------
Dim f,fs,fso,Datei,Datum,strHeader,strDatenzeile,textfile1
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("WScript.Shell")
'---------Verzeichnis erstellen--------------------
If Not fso.FolderExists("C:\Ordner") Then fso.CreateFolder("C:\Ordner")
'---------Daten im MMC schreiben----------
Datei = "C:\Ordner\werte.csv"
Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
strHeader="Datum;"&"Uhrzeit;"&"Wert_B1[°C];"&"wert_B2[°C]
strDatenzeile=CStr(Date)& ";" &CStr(Time)&";"& SmartTags("DB_Mess.wert_B1")&";"& SmartTags("DB_Mess.wert_B2")
If SmartTags ("Var_SCript_Start")= True Then
If Not fso.FileExists (Datei) Then
Set textfile1 = fso.CreateTextFile(Datei, True)
textfile1.WriteLine "Prozesswerte"
textfile1.WriteLine strHeader
textfile1.WriteLine strDatenzeile
Else
If fso.FileExists (Datei) Then
Set textfile1 = fspenTextFile(Datei, 8)
textfile1.WriteLine strDatenzeile
End If
End If
End If ][/CODE]
ich habe den Skrit PC auf meine Rechner getestet, es funktioniert soweit super, und ich habe diesen Code für Panel angepasst
und ich habe momentan leider kein Panel zur verfügung zum testen. Darum frage ich den Experten ob der Code richtig angepasst?
[CODE------------------Panel------------------------------------
Dim f,fs,Datei,Datum,strHeader,strDatenzeile
On Error Resume Next
Set f=CreateObject("filectl.file")
Set fs=CreateObject("filectl.filesystem")
'---------Verzeichnis erstellen--------------------
If fs.dir("Storage Card MMC\Ordner")="" Then fs.mkdir("Storage Card MMC\Ordner")
'---------Daten auf MMC schreiben----------
Datei = "\Storage Card MMC\Ordner\werte.csv"
Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
strHeader="Datum;"&"Uhrzeit;"&"Wert_B1[°C];"&"wert_B2[°C]
strDatenzeile=CStr(Date)& ";" &CStr(Time)&";"& SmartTags("DB_Mess.wert_B1")&";"& SmartTags("DB_Mess.wert_B2")
If SmartTags ("Var_Script_Start")= True Then
If fs.dir("Datei")="" Then
f.open Datei,2
f.LinePrint "Prozesswerte"
f.LinePrint strHeader
f.LinePrint strDatenzeile
Else
f.open Datei,8
f.LinePrint strDatenzeile
End If
End If
------------------------------------------------------------
---------------------PC-------------------------------------
Dim f,fs,fso,Datei,Datum,strHeader,strDatenzeile,textfile1
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("WScript.Shell")
'---------Verzeichnis erstellen--------------------
If Not fso.FolderExists("C:\Ordner") Then fso.CreateFolder("C:\Ordner")
'---------Daten im MMC schreiben----------
Datei = "C:\Ordner\werte.csv"
Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
strHeader="Datum;"&"Uhrzeit;"&"Wert_B1[°C];"&"wert_B2[°C]
strDatenzeile=CStr(Date)& ";" &CStr(Time)&";"& SmartTags("DB_Mess.wert_B1")&";"& SmartTags("DB_Mess.wert_B2")
If SmartTags ("Var_SCript_Start")= True Then
If Not fso.FileExists (Datei) Then
Set textfile1 = fso.CreateTextFile(Datei, True)
textfile1.WriteLine "Prozesswerte"
textfile1.WriteLine strHeader
textfile1.WriteLine strDatenzeile
Else
If fso.FileExists (Datei) Then
Set textfile1 = fspenTextFile(Datei, 8)
textfile1.WriteLine strDatenzeile
End If
End If
End If ][/CODE]