script SCRIPT: MotionLog.vb - Logg bevegelser til en device

[bio]

Sitter remote på jobb og tester dette scriptet ?

 

Hvordan stiller jeg inn sånn at status kolonnen ikke "bryter tekst", dvs havner på flere linjer, men heller utvider kolonnen?

 

 

De kommer på en linje dersom jeg velger å vise flere devicer, hvor kolonnen da blir utvidet av en av de andre devicene.

 

[Moskus]

19 timer siden, bio skrev:

Hvordan stiller jeg inn sånn at status kolonnen ikke "bryter tekst", dvs havner på flere linjer, men heller utvider kolonnen?

Du får "skjule" (filtrere bort) den devicesn som tar opp all plassen i "Control"-kolonnen, så ordner det seg.

[bio]

Du får "skjule" (filtrere bort) den devicesn som tar opp all plassen i "Control"-kolonnen, så ordner det seg.

Aha, selvfølgelig! Det var Home Connect stekeovn VDen med alle status controls fra ifttt. Har ikke justert status graphics settings på den enda:)

Slipper vel kanskje den løsningen med Home Connect snart? [emoji16]

Takk for hjelpen, og takk for scriptet!

Sent fra min SM-N960F via Tapatalk

[JohnMartin]

Oppdaget noe rart med loggen idag.

 

Av og til så logges det dobbelt og vell så det.

 

Sensoren har reset tid på 10 sekunder, og script trigges bare på had its value set to Motion.

Fungerte som det skal 2 minutter tidligere, og ved neste trigging igjen.

 

Noe tilsvarende skjedde med en annen sensor tidligere idag.

Hva kan være grunnen?

 

Spoiler

Public Sub Main(ByVal input As Object)
        Dim logDeviceRef As Integer = 743 ' Update this
        Dim count As Integer = 9 'Maximum number of lines shown on the device - 1. 9 means 10 lines are shown

        Dim currentText As String = hs.DeviceString(logDeviceRef)
        currentText = currentText.Replace("<br>", "|")
        Dim lines() As String = currentText.Split("|")
        If lines.GetLength(0) < count Then count = lines.GetLength(0)
        Dim oldLines(count - 1) As String
        Array.Copy(lines, oldLines, count)

        'Creating the device text
        Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString
        If lines.GetLength(0) > 0 And lines(0) <> "" Then newText &= "<br>"

        'Adding the previous lines
        newText &= String.Join("<br>", oldLines)

        'Updating the device string
        hs.SetDeviceString(logDeviceRef, newText, True)
        'hs.TriggerEvent("Restart SisteBeveglse timer")

        lines = Nothing
        oldLines = Nothing
    End Sub

 

 

[Moskus]

15 timer siden, JohnMartin skrev:

script trigges bare på had its value set to Motion.

"Bare"? Da skulle det vært "changed to"...  

[JohnMartin]

2 hours ago, Moskus said:

"Bare"? Da skulle det vært "changed to"...  

 

Rart det bare skjer av og til, men jeg ser poenget ditt..

Får ta meg en gjennomgang.

[Moskus]

Det er nok bevegelsessensoren som sender flere meldinger, kan ikke se noen annen måte det kan skje på.

[Rogerbl]

På 3.3.2018 den 9.04, Moskus skrev:

Du må også endre kallet ditt fra "GeDeviceString(ID)" til "GetCapiString(ID)".  

Du får teksten i DeviceString ved hjelp av denne kommandoen: hs.CAPIGetStatus(dvID).Status

[Moskus]

3 timer siden, Rogerbl skrev:

Du får teksten i DeviceString ved hjelp av denne kommandoen: hs.CAPIGetStatus(dvID).Status

Ja, nå er det en mulighet.   

[JohnMartin]

Er alt for grønn når det kommer til script, men er det en enkel mulighet å endre dette til å vise en kortere versjon av dato.

Eller evt droppe dato og kun vise tid?

Skal ha loggen i HStouch, og da trenger jeg å gjøre den litt "renere".

[ZoRaC]

49 minutter siden, JohnMartin skrev:

Eller evt droppe dato og kun vise tid?

Endre denne:

Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString

 

Til:

Dim newText As String = Now.ToLongTimeString & " - " & input.ToString

Bør gjøre susen.  

[Moskus]

Du kan få enda flere muligheter til å tilpasse datoformatet hvis du bruker .ToString().

Dermed erstatter du dette:

Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString

 

Med dette:

Dim newText As String = Now.ToString("dd.MM.yy HH:mm:ss") & " - " & input.ToString

... og endrer datoformatet til det som passer deg.

"dd.MM HH:mm" gir "23.10 09:17"

'"HH:mm:ss" gir "09:17:23"

... og så videre.

[JohnMartin]

Takk.

Dette gjorde susen!