script Min Renovasjon.vb - Hent Dato for søppelhenting i Homeseer

Olex · 4. oktober 2020

Tar opp denne, hvis det er fortsatt noen som bruker denne?
Ikkje lenge siden eg begynte med HS(4) og det har vært moro så langt!

Tenkte og prøve meg på litt scripting no i haustmørket, men her ble det trått gitt.

Når eg kjøre dette scriptet, får eg ikkje opp mat/restavfall.

Ser ut som at det dukker opp ei linje nederst (begynner på 17) hvor datoene ser ut som og stemme med henting av mat/restavfall.

Noen tips?

Takker og bukker

toonwolf · 4. oktober 2020

Beklager om det er litt på siden dette, men prøver meg 😏 Liker muligheten til å få inn minrenovasjon data i HomeSeer, men kunne tenke meg å få oppdatert Google Kalenderen min med påminnelser (reminders) som igjen kan vises på Nest Hub enheter i huset. Har laget en Google Assistant rutine som viser meg dagens påminnelser hver dag kl 0900 i tillegg til at det vises jo når jeg ber om det. Er det noen som vet om en HS plug-in eller script som kan ta informasjon fra HS og oppdatere Google Kalendere og legge det inn som påminnelser (altså ikke aktiviteter)? De fleste andre kalender-plug-ins som f.eks https://www.hjemmeautomasjon.no/forums/topic/3853-gcalseer-en-plugin-for-kobling-mot-google-og-microsoft-kalendere-0050/ utviklet av @Guahtdim henter jo data fra GCAL og oppdaterer HS ikke andre veien.

Moskus · 5. oktober 2020

13 timer siden, Olex skrev:

Ser ut som at det dukker opp ei linje nederst (begynner på 17) hvor datoene ser ut som og stemme med henting av mat/restavfall.

Noen tips?

Takker og bukker

Det ser ut som det er en parser-feil i scriptet, dessverre. Kanskje de har byttet litt på formatet sitt?

Olex · 5. oktober 2020

5 timer siden, Moskus skrev:

Det ser ut som det er en parser-feil i scriptet, dessverre. Kanskje de har byttet litt på formatet sitt?

Mange takk for svar.

Da blir det vel enda eit prosjekt til skuffen med prosjekter som "nesten" virket

Moskus · 5. oktober 2020

32 minutter siden, Olex skrev:

Mange takk for svar.

Da blir det vel enda eit prosjekt til skuffen med prosjekter som "nesten" virket

... eller du kan ta deg tiden med å poste resultatet fra URLen i scriptet for din adresse, så kan man fikse det. Dataen er sikkert det, den må bare hentes frem.

Olex · 6. oktober 2020

På 5.10.2020 den 15.13, Moskus skrev:

... eller du kan ta deg tiden med å poste resultatet fra URLen i scriptet for din adresse, så kan man fikse det. Dataen er sikkert det, den må bare hentes frem.

Takk @Moskus for at du tar deg tid til å hjelpe til

Har forsøkt i går med URL'en, men fikk da http error 401.
Når eg no igjen får det samme, tyder det på at det ikkje er bare bruke URL'en.

Ikkje bruk tid på dette, scriptet ligger godt i skuffen med prosjekter som "nesten" virket her hos meg.

clio75 · 6. oktober 2020

Mange takk for svar.
Da blir det vel enda eit prosjekt til skuffen med prosjekter som "nesten" virket [emoji4]

Send meg adresse så skal jeg se om jeg kan finne ut hvorfor det ikke virker for deg

Sent fra min SM-G970F via Tapatalk

toonwolf · 7. oktober 2020

On 10/02/2020 at 22:57, BME said:

Ønsker å få hver søppeltype i egen device

Jeg ønsker også å ha hver søppeltype i egen device. Tenkte det må være mulig å redigere scriptet å fjernet noe og kjøre en egen event pr. "søppeltype", men det blir ikke helt riktig (se bilde under). Den øverste er kun restavfall (men som ikke er helt riktig). Den nederste inneholder alt hvor orginalscriptet til @clio75 kjører.

Slik ser scriptet ut etter at jeg har redigert det. Hvordan må det være for at jeg kun skal få Restavfall?

Sub Main(ByVal parameters As Object)
        'Clio75  All Credits to [email protected]
        'Inspired and based on Moskus scrip NewsReader.vb 

        Dim DevID     As Integer = parameters.ToString.Split("|")(0)
        Dim KommuneNr As String  = parameters.ToString.Split("|")(1)
        Dim Gatekode  As String  = parameters.ToString.Split("|")(2)
        Dim GateNavn  As String  = parameters.ToString.Split("|")(3)
        Dim GateNr    As String  = parameters.ToString.Split("|")(4)
        
'Sette sammen URL: 
        Dim kommuneURL as string = "kommunenr=" & KommuneNr 
        Dim GateKodeURL as string = "gatekode=" & Gatekode  
        Dim GateNavnURL as string = "gatenavn=" & GateNavn  
        Dim GateNrURL as string = "husnr=" & GateNr    

        Dim url As String = "https://komteksky.norkart.no/komtek.renovasjonwebapi/api/tommekalender/?" & kommuneURL & "&" & GateNavnURL & "&" & GateKodeURL   & "&" & GateNrURL  
        'hs.WriteLog("Soppel Error", "url " & url)
        Dim source As String = ""
        Try
            Using client As New System.Net.WebClient
                'Sette Headers 
                client.headers.set("Kommunenr", KommuneNr )
                client.headers.set("RenovasjonAppKey", "AE13DEEC-804F-4615-A74E-B4FAC11F0A30")
                Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12
                client.Encoding = System.Text.Encoding.UTF8
                source = client.DownloadString(url)
            End Using
        Catch ex As Exception
            hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message)
        End Try

        If source = "" Then
            hs.WriteLog("soppel Error", "Got no response from url: " & url)
            Exit Sub
        End If


        Try
            'Dim json as Newtonsoft.Json.string = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source)
            Dim json as Object = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source)

            Dim numMembers As Integer = json.Count -1            
            Dim DeviceText As String = ""
            For i As Integer = 0 To numMembers

                 Dim output As String = ""
                 Dim output2 As String = ""
                 output  = json(i)("FraksjonId")
                 output2 = json(i)("Tommedatoer")(0) & " Neste :" 

                      Try
                         output2 &= json(i)("Tommedatoer")(1)
                      Catch ex As Exception
                         output2 &= " -- "
                      End Try

                 Select Case Output
                     Case "1"
                          output = Replace(output, "1", "<b>Restavfall  : </b><br>")
                 End Select
                 DeviceText &= "" & output & " " & output2 & "<br>"
             Next

           hs.SetDeviceString(DevID, DeviceText , True)
        Catch ex As Exception
            hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message)
        End Try
    End Sub

Guahtdim · 7. oktober 2020

On 04/10/2020 at 23:15, toonwolf said:

Beklager om det er litt på siden dette, men prøver meg 😏 Liker muligheten til å få inn minrenovasjon data i HomeSeer, men kunne tenke meg å få oppdatert Google Kalenderen min med påminnelser (reminders) som igjen kan vises på Nest Hub enheter i huset. Har laget en Google Assistant rutine som viser meg dagens påminnelser hver dag kl 0900 i tillegg til at det vises jo når jeg ber om det. Er det noen som vet om en HS plug-in eller script som kan ta informasjon fra HS og oppdatere Google Kalendere og legge det inn som påminnelser (altså ikke aktiviteter)? De fleste andre kalender-plug-ins som f.eks https://www.hjemmeautomasjon.no/forums/topic/3853-gcalseer-en-plugin-for-kobling-mot-google-og-microsoft-kalendere-0050/ utviklet av @Guahtdim henter jo data fra GCAL og oppdaterer HS ikke andre veien.

Mulig AK Google Calendar kan hjelpe deg med å lage ting i google kalender.

Endret 7. oktober 2020 av Guahtdim

Guahtdim · 7. oktober 2020

4 hours ago, toonwolf said:

Jeg ønsker også å ha hver søppeltype i egen device. Tenkte det må være mulig å redigere scriptet å fjernet noe og kjøre en egen event pr. "søppeltype", men det blir ikke helt riktig (se bilde under). Den øverste er kun restavfall (men som ikke er helt riktig). Den nederste inneholder alt hvor orginalscriptet til @clio75 kjører.

Slik ser scriptet ut etter at jeg har redigert det. Hvordan må det være for at jeg kun skal få Restavfall?


Sub Main(ByVal parameters As Object)
        'Clio75  All Credits to [email protected]
        'Inspired and based on Moskus scrip NewsReader.vb 

        Dim DevID     As Integer = parameters.ToString.Split("|")(0)
        Dim KommuneNr As String  = parameters.ToString.Split("|")(1)
        Dim Gatekode  As String  = parameters.ToString.Split("|")(2)
        Dim GateNavn  As String  = parameters.ToString.Split("|")(3)
        Dim GateNr    As String  = parameters.ToString.Split("|")(4)
        
'Sette sammen URL: 
        Dim kommuneURL as string = "kommunenr=" & KommuneNr 
        Dim GateKodeURL as string = "gatekode=" & Gatekode  
        Dim GateNavnURL as string = "gatenavn=" & GateNavn  
        Dim GateNrURL as string = "husnr=" & GateNr    

        Dim url As String = "https://komteksky.norkart.no/komtek.renovasjonwebapi/api/tommekalender/?" & kommuneURL & "&" & GateNavnURL & "&" & GateKodeURL   & "&" & GateNrURL  
        'hs.WriteLog("Soppel Error", "url " & url)
        Dim source As String = ""
        Try
            Using client As New System.Net.WebClient
                'Sette Headers 
                client.headers.set("Kommunenr", KommuneNr )
                client.headers.set("RenovasjonAppKey", "AE13DEEC-804F-4615-A74E-B4FAC11F0A30")
                Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12
                client.Encoding = System.Text.Encoding.UTF8
                source = client.DownloadString(url)
            End Using
        Catch ex As Exception
            hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message)
        End Try

        If source = "" Then
            hs.WriteLog("soppel Error", "Got no response from url: " & url)
            Exit Sub
        End If


        Try
            'Dim json as Newtonsoft.Json.string = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source)
            Dim json as Object = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source)

            Dim numMembers As Integer = json.Count -1            
            Dim DeviceText As String = ""
            For i As Integer = 0 To numMembers

                 Dim output As String = ""
                 Dim output2 As String = ""
                 output  = json(i)("FraksjonId")
                 output2 = json(i)("Tommedatoer")(0) & " Neste :" 

                      Try
                         output2 &= json(i)("Tommedatoer")(1)
                      Catch ex As Exception
                         output2 &= " -- "
                      End Try

                 Select Case Output
                     Case "1"
                          output = Replace(output, "1", "<b>Restavfall  : </b><br>")
                 End Select
                 DeviceText &= "" & output & " " & output2 & "<br>"
             Next

           hs.SetDeviceString(DevID, DeviceText , True)
        Catch ex As Exception
            hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message)
        End Try
    End Sub

Jeg tror du må flytte en linje

				 Select Case Output
					 Case "1"
						  output = Replace(output, "1", "<b>Restavfall  : </b><br>")
						  DeviceText &= "" & output & " " & output2 & "<br>"
				 End Select

Nå vil du kun få ut restavfall tror jeg.

toonwolf · 7. oktober 2020

31 minutes ago, Guahtdim said:

Nå vil du kun få ut restavfall tror jeg.

Testet og det hjalp ikke. Får fortsatt for mye "info"

Vedlagt mitt modifiserte script

minrenovasjon_AP224_REST.vb

Endret 7. oktober 2020 av toonwolf

Guahtdim · 7. oktober 2020

Hvis det vedlagte scriptet er siste endring så er ikke det så rart. Du må flytte linjen

DeviceText &= "" & output & " " & output2 & "<br>"

fra etter End Select til før End Select slik jeg har vist.

toonwolf · 7. oktober 2020

20 minutes ago, Guahtdim said:

slik jeg har vist.

Takk! Funker knall.

toonwolf · 7. oktober 2020

1 hour ago, Guahtdim said:

Mulig AK Google Calendar kan hjelpe deg med å lage ting i google kalender.

AK Google Calendar kan opprette events, men ikke remindere så vidt jeg ser. Hører med utvikler om det er noe som lar seg gjøre. Takk for tipset!

Daniel_hoy · 26. januar

Ser at det sluttet å fungere for meg 30.11.23. Er det noen andre som har problemer?

Logg inn

script Min Renovasjon.vb - Hent Dato for søppelhenting i Homeseer

Anbefalte innlegg

Mest aktive i denne tråden

Populære dager

Mest aktive i denne tråden

Populære dager

Populære innlegg

clio75

clio75

clio75

Postede bilder

Bli med i samtalen

Lignende innhold

Viktig informasjon