Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Zitat
...
''2) Wert in Textdatei speichern:
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile( dirName & "\" & fileDataName, 8, True) '8..ForAppending
For i = Startindex To EndIndex
Ergebnis(i)=Daten(i) 'das was ins File geschrieben, kommt auch per return zurück
filetxt.WriteLine(Now & chr(9) & cstr(Daten(i))) 'Uhrzeit und Daten speichern
next
filetxt.Close
Zitat
20.09.2009 02:03:27 100
20.09.2009 02:03:27 101
20.09.2009 02:03:27 102
20.09.2009 02:03:27 103
20.09.2009 02:03:27 104
20.09.2009 02:03:27 105
20.09.2009 02:03:27 106
20.09.2009 02:03:27 107
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Bernd« (20. September 2009, 10:18)
Zitat
Du hast das File schön für Appending aufgemacht, aber dann appendest mit Deiner Schleife bei jedem Aufruf die Ganze Suppe ans File. Als Ergebnis müsste Dein File auch ganz hübsch wachsen bei jedem Durchlauf.
Zitat
aber schreibe immer nur den letzten Wert raus
Zitat
mit GetDatum (siehe INV VBSCript Doku Sonderfunktionen)!
Zitat
Mit der Funktion GetDatum erfolgt der Zugriff auf die Zeitstempel der Daten.
GetDatum Datumfeld
Dabei ist „Datumfeld“ eine zuvor definierte Variable.
Beispiel:
Dim Datumfeld
GetDatum Datumfeld
„Datumfeld“ enthält nun die Zeitstempel als Folge von Double-Werten.
Zitat
40056,3340277778 100
40056,3347222222 101
40056,3354166667 102
40056,3361111111 102
40056,3368055555 103
...
Zitat
...
Dim datumFeld
GetDatum datumFeld '„datumFeld“ enthält nun die Zeitstempel als Folge von Double-Werten.
For i = Startindex To EndIndex
Ergebnis(i)=Daten(i) 'das was ins File geschrieben, kommt auch per return zurück
filetxt.WriteLine(cstr(datumFeld(i)) & chr(9) & cstr(Daten(i))) 'Daten, Uhrzeit und Wert in FileZeile speichern
next
...
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »sten« (20. September 2009, 19:20)
Zitat
Ist es möglich, Java in VBSkript einzubinden und auf diesem Wege aus Investox darauf zuzugreifen?
Das ist eine super interessante Frage.
upgap
unregistriert