-> Hier kostenlos registrieren
Hi !
Wieder mal das alte Lied.. ich will daten von einem TP700 Comfort auf einen MW Share schreiben.
Der Share ist ohne username/password beschreibbar (von Windows PC ausporbiert
meine VB script sollte auch einigermassen passen aber auf dem Share tauch nix auf.
Muss ich den Pfad anders angeben ?
Gruss Gerd
Wieder mal das alte Lied.. ich will daten von einem TP700 Comfort auf einen MW Share schreiben.
Der Share ist ohne username/password beschreibbar (von Windows PC ausporbiert
meine VB script sollte auch einigermassen passen aber auf dem Share tauch nix auf.
Muss ich den Pfad anders angeben ?
Code:
Sub Daten_Schreiben()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
' Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:
Dim F
Dim fs
Dim fwmode
Dim fname
Dim Pfad
Dim Datei
Dim Tag
Dim Monat
Dim Jahr
Dim Stationsname
Dim DATUM
Dim STATUS
Dim Username
Dim UserID
Dim Wert_Links
Dim Wert_Rechts
Dim Datasatz
Pfad = "\\10.17.200.254\nio\"
Tag = CStr (SmartTags("01_Datum_Jahr"))
Monat = CStr (SmartTags("01_Datum_Monat"))
Jahr = CStr (SmartTags("01_Datum_Tag"))
Stationsname = CStr (SmartTags("B_ESD_Daten.Stationname"))
DATUM = CStr (SmartTags("DB_ESD_Daten.Datum_Uhrzeit"))
Username = CStr (SmartTags("DB_ESD_Daten.Username"))
UserID = CStr (SmartTags("DB_ESD_Daten.UserID"))
Wert_Links = CStr (SmartTags("DB_ESD_Daten.R_Wert_links"))
Wert_Rechts = CStr (SmartTags("DB_ESD_Daten.R_Wert_rechts"))
STATUS = CStr (SmartTags("DB_ESD_Daten.Status"))
fwmode = 8 'Mode = 8: append
'Datensatz erzeugen
Datasatz = CStr(DATUM) & ";" & CStr(Username) & ";" & CStr(UserID) & ";" & CStr(STATUS) & ";" & CStr(Wert_Links) & ";" & CStr(Wert_Rechts)
'Datei = Jahr & Monat & Tag & Stationsname & .csv
Datei = Stationsname
'Datei erzeugen oder bereits vorhancsvden
Set fs = CreateObject("FileCtl.FileSystem")
fname = "\" & Pfad & "\" & Datei
If fs.Dir(fname) = "" Then
'Datei nicht vorhanden
Set F = CreateObject("FileCtl.File")
F.open fname, fwmode 'Datei öffnen/anlegen / Open/create file
F.LinePrint("Datum;Username;UserID;Status;Wert_Links:Wert_Rechts:")
F.LinePrint(Datasatz) 'Object erzeugen / Create object
F.Close 'Datei schließen / Close file
Set F = Nothing
ElseIf fs.Dir(fname) = Datei Then
'Datei vorhanden
Set F = CreateObject("FileCtl.File")
F.open fname, fwmode 'Datei öffnen/anlegen / Open/create file
F.LinePrint(Datasatz) 'Object erzeugen / Create object
F.Close 'Datei schließen / Close file
End If
Set fs = Nothing
'If Err.Number <> 0 Then
' SmartTags("DB_REPORT01_SZD.DATEN_IN_DATEI_SCHR_ERR")= True
End SubGruss Gerd
