Sorry! Testet med den nye If block nå og det så bra ut i loggen.
Kom i tanke om device setting - Do not update device last change time if device value does not change. Denne var selvfølgelig enabled.
Testet da igjen med det første regex scriptet du sendte og da så alt bra ut ?
Her er scriptet jeg bruker akkurat nå:
Sub Main(ByVal pParms As String)
Dim dvref() As String = Split(pParms.ToString, "|")
Dim input As String = hs.DeviceString(dvref(0))
Dim regex As New Text.RegularExpressions.Regex("(?<=""Today"":)[^,]+(?=,)")
Dim match As Text.RegularExpressions.Match = regex.Match(input)
If match.Success Then
Dim value As Double = CDbl(match.Groups(0).Value.Replace(".", ","))
hs.SetDeviceValueByRef(dvref(1), value, True)
End If
End Sub
Det tar da parametre input|output
Neste versjon må være med parameter hvor man kan spesifisere today, yesterday, power, voltage og current
Et lite spørsmål på siden her - hvordan får jeg denne device inkludert i HS3 sin Energy logging?