Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

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


clio75

Anbefalte innlegg

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.

 

image.png.f70545df05905e89bfd956e0adce34d0.png


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 :)

 

Lenke til kommentar
Del på andre sider

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.

 

Lenke til kommentar
Del på andre sider

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?

Lenke til kommentar
Del på andre sider

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 :)

Lenke til kommentar
Del på andre sider

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. :) 

Lenke til kommentar
Del på andre sider

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.

Lenke til kommentar
Del på andre sider

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

Lenke til kommentar
Del på andre sider

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.

image.png.aa934e37a58b8818260a67c9293e7c29.png

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 Moskus@hjemmeautomasjon.no
        '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

 

 

Lenke til kommentar
Del på andre sider

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 av Guahtdim
Lenke til kommentar
Del på andre sider

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.

image.png.aa934e37a58b8818260a67c9293e7c29.png

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 Moskus@hjemmeautomasjon.no
        '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.

 

Lenke til kommentar
Del på andre sider

  • 3 år senere...

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.