Hallo liebe Foren Community,
ich muss bei einem Kunden Prozessdaten welche auf eine TIA V14 WinCC Professional RT Server archiviert werden zur kundenseitigen Weiterverwendung in eine CSV Datei exportieren.
Diese CSV Datei soll jedesmal nach Produktionsstop in einem Ordner exportiert werden.
Die Zeiten für "StartArchiv" und "StopArchive" werden jedesmal bei Produktionsstart bzw. Produktionsstop an das Skript übergeben.
Sobald ich das Skript Aufrufe wird mir eine CSV Datei im Ordner mit Dateiname und Zeitsempel wie im Skript projektiert angelegt, jedoch bleibt die Datei leer.
Das Skript habe ich aus einem Siemens FAQ und an meine Bedürfnisse angepasst, um die Funktion zu testen habe ich zur Zeit nur eine Variable projektiert danach möchte ich das Skript erweitern.
Folgendermaßen sieht mein VB-Skript aus:
Zitat:
Function VB2_UNO_WriteArchiveValueToCSV()
'############################################################################### ############
'##### Declaration of local Tags
Dim fso 'FileSystemObject
Dim f 'File
Dim ts 'TextStream
Dim path 'Path
Dim StartArchive 'Starttime of Archiving
Dim StopArchive 'Stoptime of Archiving
Dim TimeStamp 'Timestamp for bulding filename
'Read Start- and Stoptime
Set StartArchive = HMIRuntime.Tags("UNO_StartArchive")
Set StopArchive = HMIRuntime.Tags("UNO_StopArchive")
If StartArchive.Read = "" Or StopArchive.Read = "" Then
MsgBox "Start- or Stoptime of Archiving is missing"
Exit Function
End If
'Generate String for the *.csv filename and replace ":" with
'"_"
TimeStamp = FormatDateTime(StartArchive.Read, vbGeneralDate)
TimeStamp = Replace(TimeStamp,":", "_")
'Path and name for the *.csv -File
path = "D:\001_Batches\Batches_Al" & "UNO_Al_" & TimeStamp & " .csv"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(path) Then
fso.CreateTextFile(path)
Else
MsgBox "File already exist:" & vbCrLf & path
Exit Function
End If
'Create File-Object and open this File
Set f = fso.GetFile(path)
'iomode = 2, Writing
'format = -2, TristateUseDefault
Set ts = f.OpenAsTextStream(2,-2)
'*.csv file is now ready for Writing
'############################################################################### ############
'##### Herstellen der Verbindung und Abfrage der Daten
Dim Pro 'Provider
Dim DSN 'Data Source Name
Dim DS 'Data Source
Dim ConnString 'Connection String
Dim MachineNameRT 'Name of the PC from WinCC-RT
Dim DSNRT 'Data Source Name from WinCC-RT
Dim Conn 'Connection to ADODB
Dim RecSet 'RecordSet
Dim Command 'Query
Dim CommandText 'Command-Text
Dim CommandTextStart 'Starttime for SQL-String
Dim Duration 'Duration of Production-Cycle
Dim DurationSec 'Duration of Production-Cycle
Dim DurationMin 'Duration of Production-Cycle
Dim DurationHour 'Duration of Production-Cycle
Dim DurationDay 'Duration of Production-Cycle
Dim Language 'Language tag
'Read the name of the PC-Station and the DSN-Name from
'WinCC-RT
Set MachineNameRT = HMIRuntime.Tags("@LocalMachineName")
Set DSNRT = HMIRuntime.Tags("@DatasourceNameRT")
'Preparing the Connection-String
'First instance of WinCCOLEDB
Pro="Provider=WinCCOLEDBProvider.1;"
'Name of Runtime-Database
DSN="Catalog=" & DSNRT.Read & ";"
'Data Source
DS= "Data Source=" & MachineNameRT.Read & "\WinCC"
'Build the complete String:
ConnString = Pro + DSN + DS
'Make Connection
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = ConnString
Conn.CursorLocation = 3
Conn.open
'Duration between Start an Stop in seconds:
Duration = DateDiff ("s",StartArchive.Read,StopArchive.Read)
'Split the Duration in days, hours, minutes and seconds:
DurationMin = Fix(Duration/60)
DurationSec = Duration - (DurationMin * 60)
DurationHour = Fix(DurationMin/60)
DurationMin = DurationMin -(DurationHour * 60)
DurationDay = Fix(DurationHour/ 24)
DurationHour = DurationHour - (DurationDay * 24)
'Creating leading zeros:
DurationSec = Right("00" & DurationSec,2)
DurationMin = Right("00" & DurationMin,2)
DurationHour = Right("00" & DurationHour,2)
DurationDay = Right("00" & DurationDay,2)
'Formating Starttime:
CommandTextStart = "'0000-00-" & DurationDay & " " & DurationHour & ":" & DurationMin & ":" & DurationSec & ".000'"
'Building the complete String:
CommandText= "Tag:R ,'001_UNO_Casting_Values_AL\06_Set_weight'," & CommandTextStart & ",'0000-00-00 00:00:00.000'"
'Create the recordset, read the records and set to first
'redcordset:
Set Command = CreateObject("ADODB.Command")
Command.CommandType = 1
Set Command.ActiveConnection = Conn
Command.CommandText=CommandText
Set RecSet = Command.Execute
RecSet.MoveFirst
'############################################################################### ############
'##### write recordsets To *.csv-File
'##### Header in *.csv-File
Language = HMIRuntime.Language
Select Case Language
Case 1031
ts.WriteLine ("Tag-Name;ValueID;Datum/Zeit;Prozesswert")
Case 1033
ts.WriteLine ("Tag-Name;ValueID;Date/Time;Process-Value")
'MsgBox "Tag-Name;ValueID;Date/Time;Process-Value"
End Select
Do While Not RecSet.EOF
ts.WriteLine (RecSet.Fields("ValueID").Value & ";" & RecSet.Fields("TimeStamp").Value & ";" & RecSet.Fields("RealValue").Value)
RecSet.MoveNext
Loop
Select Case Language
Case 1031
MsgBox "Schreiben der Datei" & vbCrLf & "D:\001_Batches\Batches_Al" & "UNO_Al" & TimeStamp & ".csv" & vbCrLf & "erfolgreich!"
Case 1033
MsgBox "Writing of File" & vbCrLf & "D:\001_Batches\Batches_Al" & "UNO_Al" & TimeStamp & " .csv" & vbCrLf & "successful!"
End Select
'############################################################################### ############
'##### Close all
ts.Close
RecSet.Close
Set RecSet = Nothing
Set Command = Nothing
'############################################################################### ############
'##### Close connection
Conn.Close
Set Conn = Nothing
Set fso = Nothing
Set f = Nothing
Set ts = Nothing
End Function
Die Variable welche projektiert ist, ist im meine WinCC Projekt unter folgenden Archiv angelegt:
Unbenannt.JPG
Da ich im Skripting kein Experte bin :confused: und meine Lösungansetzte keinen Erfolg brachten :cry: wende ich mich jetzt an die Experten ob ihr mir bitte mit Tips bzw. Lösungsvorschläge dabei helfen könntet die Funktion zu lauffen zu bringen.
Ich bedanke mich schon mal im Voraus
Robert