Wincc Flexible dan CSV dosyasına veri aktarırken çift kaydediyor.

[aybulus]

Wincc flexible a yazılan VBScript sayesinde bir CSV dosyasına birçok veri atıyorum.Fakat ilk sorum CSV dosyasına kaydederken aynı veriyi çift yazıyor.Diğer bir sorum da günlük çıktı almam gerekiyor gün sonunda geçmiş değerleri nasıl silebilirim yani kodları nasıldır.hatta VBS kodlarını da vereyim..




Dim fso, f, ts, bCreated, FName, Dataset, Header, Storage_Path, strName, strTemp, arr, strDir
Dim kayit1,kayit2,kayit3,kayit4,kayit5,kayit6,kayit7,kayit8,kayit9,kayit10
Dim kayit11,kayit12,kayit13,kayit14,kayit15,kayit16,kayit17,kayit18,kayit19,kayit20
Dim kayit21,kayit22,kayit23,kayit24,kayit25,kayit26,kayit27,kayit28,kayit29,kayit30
Dim kayit31,kayit32,kayit33,kayit34,kayit35,kayit36,kayit37,kayit38,kayit39,kayit40
Dim kayit41,kayit42
Dim tarih,saat
' Ablagepfad festlegen
' Define Storage path
Storage_Path = "C:\FIRIN_KAYITLARI"

' Archivierungspfad (Eingangsparameter) und Dateiname zusammensetzen -> Archiv_01_d_m_yyyy
' Combine archivepath (input parameter) and filename -> Archiv_01_d_m_yyyy
FName = Storage_Path & "\Test_Veri_" & CStr(DatePart("yyyy",Date)) & "_" & CStr(DatePart("m",Date)) & "_" & CStr(DatePart("d",Date)) & ".csv"

' Tabellenkopf zusammenstellen
' Create table header
Header = ";TARIH;SAAT;VAGON NO;URUN ADI(1);URUN ADEDI(1);URUN ADI(2);URUN ADEDI(2);URUN ADI(3);URUN ADEDI(3);URUN ADI(4);URUN ADEDI(4);URUN ADI(5);URUN ADEDI(5);M0;M1;M2;M3;M4;R1;R2;R3;R4;R5;R6;R7;R8;M5;M6;M7;M8;T1;T2;T3;T4;T5;T6;T7;T8;T9;BACA EMIS;ARA TAVAN;BACA SICAKLIGI;KURUTMA SICAK HAVA;R8 EMIS BASINC;" & Chr(10)

' FileSystemObject erstellen
' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

'Prüfen ob Ablagepfad vorhanden, wenn nicht -> erzeugen.
'Checks storage path availably, if not -> create
Script_Storage_Path Storage_Path ' Übergabe des Ablagepfades aus dem Script "Script_Storage_Path" / Handing over of the storage path from the script "Script_Storage_Path"

' Allgemeine Fehlerauswertung -> Datei konnte nicht angelegt oder ist geöffnet werden
' Generically Error logging -> File could not be create or open
On Error Resume Next

' Datei öffnen bzw. erstellen, wenn sie noch nicht existiert
' Open File or create file if it does not exist
bCreated = False ' Hilfsvariable, Datei bereits angelegt / Help tag, File exist?
If Not fso.FileExists(FName) Then
fso.CreateTextFile FName
bCreated=True
End If


Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream (8,-2)


' Fehlernummer <> 0 -> Meldung
' Fault number <> 0 -> Message
If Err.Number <> 0 Then
Call ShowSystemAlarm ("Dosya olusturulamadi veya acilamadi / File could not be create or maybe open")
Err.Clear
Else

' Wenn Datei nicht vorhanden, => Tabellenkopf muss eingefügt werden
' If file did not exist, => Table header must be inserted
If bCreated = True Then
ts.WriteLine FName
ts.WriteLine Header
End If


' Werte der Variablen in die Archivdatei schreiben (Tag_x)
' Write values of variables in archive file (Tag_x)
tarih=SmartTags("BARKOD_TARIH")
saat=SmartTags("BARKOD_SAAT")
kayit1=SmartTags("FRN1_VAGON_NO")
kayit33=SmartTags("SECILEN_URUN_ADI_1")
kayit34=SmartTags("SECILEN_URUN_ADEDI_1")
kayit35=SmartTags("SECILEN_URUN_ADI_2")
kayit36=SmartTags("SECILEN_URUN_ADEDI_2")
kayit37=SmartTags("SECILEN_URUN_ADI_3")
kayit38=SmartTags("SECILEN_URUN_ADEDI_3")
kayit39=SmartTags("SECILEN_URUN_ADI_4")
kayit40=SmartTags("SECILEN_URUN_ADEDI_4")
kayit41=SmartTags("SECILEN_URUN_ADI_5")
kayit42=SmartTags("SECILEN_URUN_ADEDI_5")
kayit2=SmartTags("FRN1_HESAP_SICAKLIK")(1)
kayit3=SmartTags("FRN1_HESAP_SICAKLIK")(2)
kayit4=SmartTags("FRN1_HESAP_SICAKLIK")(3)
kayit5=SmartTags("FRN1_HESAP_SICAKLIK")(4)
kayit6=SmartTags("FRN1_HESAP_SICAKLIK")(5)
kayit7=SmartTags("FRN1_HESAP_SICAKLIK")(6)
kayit8=SmartTags("FRN1_HESAP_SICAKLIK")(7)
kayit9=SmartTags("FRN1_HESAP_SICAKLIK")(8)
kayit10=SmartTags("FRN1_HESAP_SICAKLIK")(9)
kayit11=SmartTags("FRN1_HESAP_SICAKLIK")(10)
kayit12=SmartTags("FRN1_HESAP_SICAKLIK")(11)
kayit13=SmartTags("FRN1_HESAP_SICAKLIK")(12)
kayit14=SmartTags("FRN1_HESAP_SICAKLIK")(13)
kayit15=SmartTags("FRN1_HESAP_SICAKLIK")(14)
kayit16=SmartTags("FRN1_HESAP_SICAKLIK")(15)
kayit17=SmartTags("FRN1_HESAP_SICAKLIK")(16)
kayit18=SmartTags("FRN1_HESAP_SICAKLIK")(17)
kayit19=SmartTags("FRN1_HESAP_SICAKLIK")(18)
kayit20=SmartTags("FRN1_HESAP_SICAKLIK")(19)
kayit21=SmartTags("FRN1_HESAP_SICAKLIK")(20)
kayit22=SmartTags("FRN1_HESAP_SICAKLIK")(21)
kayit23=SmartTags("FRN1_HESAP_SICAKLIK")(22)
kayit24=SmartTags("FRN1_HESAP_SICAKLIK")(23)
kayit25=SmartTags("FRN1_HESAP_SICAKLIK")(24)
kayit26=SmartTags("FRN1_HESAP_SICAKLIK")(25)
kayit27=SmartTags("FRN1_HESAP_SICAKLIK")(26)
kayit28=SmartTags("FRN1_HESAP_SICAKLIK")(27)
kayit29=SmartTags("FRN1_HESAP_SICAKLIK")(28)
kayit30=SmartTags("FRN1_HESAP_SICAKLIK")(29)
kayit31=SmartTags("FRN1_HESAP_SICAKLIK")(30)
kayit32=SmartTags("FRN1_HESAP_SICAKLIK")(31)



Dataset =";" & CStr(tarih) & ";" &CStr(saat)& ";"& CStr(kayit1)& ";"& CStr(kayit33)& ";"& CStr(kayit34)& ";"& CStr(kayit35)& ";" & CStr(kayit36)& ";"& CStr(kayit37)& ";"& CStr(kayit38)& ";"& CStr(kayit39)& ";"& CStr(kayit40)& ";"& CStr(kayit41)& ";"& CStr(kayit42)& ";"& CStr(kayit2) & ";" & CStr(kayit3) & ";" & CStr(kayit4)& ";" & CStr(kayit5)& ";" & CStr(kayit6)& ";" & CStr(kayit7)& ";" & CStr(kayit8)& ";" & CStr(kayit9)& ";" & CStr(kayit10)& ";" & CStr(kayit11)& ";" & CStr(kayit12)& ";" & CStr(kayit13)& ";" & CStr(kayit14)& ";"& CStr(kayit15)& ";"& CStr(kayit16)& ";"& CStr(kayit17)& ";"& CStr(kayit18)& ";"& CStr(kayit19)& ";"& CStr(kayit20)& ";"& CStr(kayit21)& ";"& CStr(kayit22)& ";"& CStr(kayit23)& ";"& CStr(kayit24)& ";"& CStr(kayit25)& ";"& CStr(kayit26)& ";"& CStr(kayit27)& ";"& CStr(kayit28)& ";"& CStr(kayit29)& ";"& CStr(kayit30)& ";"& CStr(kayit31)& ";"& CStr(kayit32) & ";"

' Schreibt die Daten in das Excel Blatt
' Write the Dataset in File
ts.WriteLine Dataset'

' Datei wieder schließen
' Close File'
ts.Close

End If

' Verwendeten Speicher wieder freigeben
' Used storage will be freed
Set ts = Nothing
Set f = Nothing
Set fso = Nothing

 

[nofearmolla]

merhaba bende örnek bir proje yapmak istiyorum Wincc Runtime da açtığım bir projedeki 1 sıcaklık değerini 30 sn de bir exele kayıt etmem gerekiyor. Nasıl yapabilirim. Ayrıca örnek bir proje eklerseniz sevinirim.