Skript Error

[JesperMP]

Zuviel Werbung?
-> Hier kostenlos registrieren

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.

 

[ka1978]

Hallo,

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

 

[JesperMP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Wenn es Zeilen mit Daten gibt, ja dann kannst du locker die Code von überflüssige Funktionen aussaubern.

 

[ka1978]

Hallo,

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

-----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

 

[ka1978]

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.

 

[JesperMP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ist Schreiben_start TRUE ?

 

[ka1978]

hallo,

ja, beim Anlage Start wird der Variable "Schreiben_Start" true.

 

[PN/DP]

Wie sieht denn Dein Skriptcode jetzt tatsächlich aus?
z.B. muß es heißen:
(keine Hochkomma vor+hinter Datei)

 If fs.dir(Datei)="" Then

Harald

 

[ka1978]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

So sieht der Code aus .

-----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

 

[rostiger Nagel]

Wie sieht denn Dein Skriptcode jetzt tatsächlich aus?
z.B. muß es heißen:
(keine Hochkomma vor+hinter Datei)

 If fs.dir(Datei)="" Then

Harald

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.

 

[ka1978]

hallo,

ok, werde ich nochmal Montag den Code testen.