Brutaal vraagje:
Ik heb nu onderstaand script om de 6 minuten draaien. Is het mogelijk om de CSV actie hierin te verwerken zodat de gegevens welke naar de homeseer devices worden gedumpt ook in de CSV file terecht komen?
Code: Select all
Sub Main (parm as object)
Dim fso, outputfile, filename, data, objShell
objShell = CreateObject("WScript.Shell")
objShell.Run("c:\modpoll\temppoll.cmd", 0, True)
objShell = Nothing
' System.Threading.Thread.Sleep(5000)
filename = "c:\modpoll\temppoll.txt"
fso = CreateObject("Scripting.FileSystemObject")
outputfile = fso.OpenTextFile(filename, 1, True)
do while outputfile.AtEndOfStream <> True
data = outputfile.ReadLine
if left(data, 6) = "[260]:" then
hs.SetDeviceString ("M1", (right(data, len(data)-7)/10) & "°C", True)
hs.SetDeviceValue ("M1", right(data, len(data)-7)/10)
end if
if left(data, 6) = "[261]:" then
hs.SetDeviceString ("M2", (right(data, len(data)-7)/10) & "°C", True)
hs.SetDeviceValue ("M2", right(data, len(data)-7)/10)
end if
if left(data, 6) = "[262]:" then
hs.SetDeviceString ("M3", (right(data, len(data)-7)/10) & "°C", True)
hs.SetDeviceValue ("M3", right(data, len(data)-7)/10)
end if
if left(data, 6) = "[263]:" then
hs.SetDeviceString ("M4", (right(data, len(data)-7)/10) & "°C", True)
hs.SetDeviceValue ("M4", right(data, len(data)-7)/10)
end if
if left(data, 6) = "[264]:" then
hs.SetDeviceString ("M5", (right(data, len(data)-7)/10) & "°C", True)
hs.SetDeviceValue ("M5", right(data, len(data)-7)/10)
end if
if left(data, 6) = "[265]:" then
hs.SetDeviceString ("M6", Math.Round((right(data, len(data)-7)/10-100), 1) & "°C", True)
hs.SetDeviceValue ("M6", right(data, len(data)-7)/10-100)
end if
if left(data, 6) = "[266]:" then
hs.SetDeviceString ("M7", (right(data, len(data)-7)) & "Lux", True)
hs.SetDeviceValue ("M7", right(data, len(data)-7))
end if
loop
outputfile.Close
End Sub
Het mooiste zou zijn als de CSV file gegevens bevat van maximaal 24h terug in de tijd. Ik wil namelijk als ik op een ruimte temperatuur druk in Hstouch een highchart grafiek laten zien met daarin het temperatuur verloop van de afgelopen 24h.
Gr. Tim