Új hozzászólás Aktív témák

• #4526 Szirty őstag Mazsika #4525

  Új Válasz 2014-06-22 14:25:37 #4526

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Szirty

  őstag

  válasz Mazsika #4525 üzenetére

  Üdv Mazsika!

  "VB skript??? Itt már elvesztettem a fonalat... "

  Miért? Nem találkoztál velük?
  Itt egy példa file írására:

  'Aprító üzemidő kiírása TXT file-ba:
  Dim CSV, CSVFile
  'A mentést kezdeményező érték visszaírása nullába a mentés végén
  SmartTags("WinCC_Adatcsere.CSVWRT")=0
  Set CSV = CreateObject("Scripting.FileSystemObject")
  'csv file megnyitása.
  'Ha nem létezik létrehozza és első sorba beírja a fejléc szövegeit. Ha létezik, hozzáfűzi a végéhez az adatokat.
  If (CSV.FileExists(Filename)) Then
  Set CSVFile = CSV.OpenTextFile(Filename, 8, True)
  Else
  Set CSVFile = CSV.OpenTextFile(Filename, 8, True)
  CSVFile.WriteLine(Chr(34)+"Dátum (év.hó.nap. ó:p:mp)"+Chr(34)+";"+Chr(34)+"Üzemidő kifele (ó:p)"+Chr(34)+";"+Chr(34)+"Üzemidő befele (ó:p)"+Chr(34)+";"+Chr(34)+"2. r. töltések száma"+Chr(34)+";"+Chr(34)+"2/2 sz. előre irányba állás számláló"+Chr(34)+";")
  End If
  'Adatok kiírása a file-ba:
  CSVFile.Write(Now&";"&FormatDateTime(SmartTags("WinCC_Adatcsere.HKE"),4)&";"&FormatDateTime(SmartTags("WinCC_Adatcsere.HBE"),4)&";"&SmartTags("WinCC_Adatcsere.T18")&";")
  CSVFile.Write(SmartTags("WinCC_Adatcsere.T20")&";")
  CSVFile.WriteLine()
  CSVFile.Close

  Ez amikor a "WinCC_Adatcsere.CSVWRT" változó (INT) értéke nullától eltérő lesz (ezt a PLC kapcsolja be naponta egyszer) kiírja egy file-ba egy sorba 4 változó értékét.

Új hozzászólás Aktív témák