Skript Error

Das war ein cut-and-paste von Volkers code. Also bin ich nicht schuldig

Aber wahrscheinlich muss es sein wie du es schreibst.
Also
If fs.dir("Datei")="" Then

Schlussendlich wenn alles klappt sollst du ein Status=3 bekommen.
 
Hallo,

ich habe jetzt ganz genau den Status =3.
soll es jetzt den SmartTags ("Status") rausgenommen .
 
Hallo,

versuche den Code in der Nächten Woche zu testen, danach sage ich bescheid. soll jetzt den Code so sehen ?

Code: 
-----Skript1: Daten_schreiben-----

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\Prozess")="" Then fs.mkdir("Storage Card MMC\Prozess")


Datei = "\Storage Card MMC\Prozess\Werte.csv"

Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
strHeader = "Datum;"&"Uhrzeit;"&"Wert1[°C];"&"Wert2[°C];"&"Wert3[°C]
strDatenZeile = CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Temp.Var1")&";" & SmartTags("Temp.Var2")&";" & SmartTags("Temp.Var3") 

If SmartTags ("Schreiben_Start"  ) = True Then

If    fs.dir("Datei)="" Then

    f.open Datei,2
    f.LinePrint "Prozesswerte"
    f.LinePrint strHeader
    f.LinePrint strDatenZeile
    f.close

ELSE

     f.open Datei,8 
     f.LinePrint strDatenZeile
     f.Close 
End If
End IF
 
Zuletzt bearbeitet:
Hallo,

ich habe nochmal den Code getestet, es wird noch immer nur die Titelzeile und eine Messung geschrieben. Also es besteht noch immer das alte

Problem.
 
Wie sieht denn Dein Skriptcode jetzt tatsächlich aus?
z.B. muß es heißen:
(keine Hochkomma vor+hinter Datei)
Code: 
 If fs.dir(Datei)="" Then

Harald
 
Hallo,

So sieht der Code aus .
Code: 
-----Skript1: Daten_schreiben-----

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\Prozess")="" Then fs.mkdir("Storage Card MMC\Prozess")


Datei = "\Storage Card MMC\Prozess\Werte.csv"

Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
strHeader = "Datum;"&"Uhrzeit;"&"Wert1[°C];"&"Wert2[°C];"&"Wert3[°C]
strDatenZeile = CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Temp.Var1")&";" & SmartTags("Temp.Var2")&";" & SmartTags("Temp.Var3") 

If SmartTags ("Schreiben_Start"  ) = True Then

If    fs.dir("Datei")="" Then

    f.open Datei,2
    f.LinePrint "Prozesswerte"
    f.LinePrint strHeader
    f.LinePrint strDatenZeile
    f.close

ELSE

     f.open Datei,8 
     f.LinePrint strDatenZeile
     f.Close 
End If
End IF
 
PN/DP schrieb:
Wie sieht denn Dein Skriptcode jetzt tatsächlich aus?
z.B. muß es heißen:
(keine Hochkomma vor+hinter Datei)
Code: 
 If fs.dir(Datei)="" Then

Harald
Zum Vergrößern anklicken....

Wie der Harald schon geschrieben hat darf deine Variable 'Datei' nicht
in Anführungszeichen stehen, weil sonst daraus ein String wird der
einfach nur "Datei" heißt.
 
Du musst dich einloggen oder registrieren, um hier zu antworten.

Similar threads

TIA TOD-Zeit wird in CSV-Datei mit Datum dargestellt.
Antworten
4
Aufrufe
552
Dekuika
Y
TIA Kopfzeile VBkscript erstellen
Antworten
5
Aufrufe
412
Larry Laffer
S
WinCC Binäre Daten (PDF) mit VB Script auf USB Stick schreiben?
Antworten
13
Aufrufe
4K
softmove
S
S
WinCC Datenlogger per Skript, TP1200 comfort
Antworten
17
Aufrufe
2K
PN/DP
C
WinCC Data Logs TP1500 Scripting .cvs-Datei löschen, die sich bereits in einem Ordner aus dem Vorjahr befindet
Antworten
4
Aufrufe
3K
PN/DP
Für die Nutzung dieser Website sind Cookies erforderlich. Du musst diese akzeptieren, um die Website weiter nutzen zu können. Erfahre mehr…