[VB] JSON netjes binnen script afhandelen.

[The-Source]

Nou heb ik zelf al een werkende oplossing die data in JSON ophaalt en daarna via omweg naar xml omzet zodat ik die data in mijn script kan verwerken.
Maar vind het nogal omslachtig om eerst data van het web te halen (deze stap kan niet over geslagen worden) om deze daarna naar php script te sturen welke de data omzet naar xml. En deze response als data te gebruiken om mee te werken.
Nu werkt dit wel maar netjes coden is het niet...

Probleem is dat is nergens even een begrijpelijk voorbeeld kan vinden hoe ik json data in een vbscript kan verwerken. Voorbeelden voor php en C# zie je wel maar vb wordt blijkbaar ondergesneeuwd onder de resultaten.

Visual Basic:

URLpod1 = "https://home.sensibo.com/api/v2/pods/" & pod1 & "/measurements?apiKey=" & APIkey
  URLpod2 = "https://home.sensibo.com/api/v2/pods/" & pod2 & "/measurements?apiKey=" & APIkey
   
 '==== pod 1 status ophalen
Dim resultaat AS String = webClient.DownloadString(URLpod1) ' JSON resultaat UploadString(Uri, String)
  resultaat = replace(resultaat, " ", "-")
Dim PodXML As XDocument = XDocument.Load("http://www.mijnwebsite.nl/json2xml.php?dedata=" & resultaat)
'PodXML.Element("root").Element("result").Element("temperature").Value
'PodXML.Element("root").Element("result").Element("humidity").Value
P1tHuidig = PodXML.Element("root").Element("result").Element("temperature").Value
P1vHuidig = PodXML.Element("root").Element("result").Element("humidity").Value

En dit bovenstaande herhaal ik dus nog een keer voor voor pod 2. Nu is dit met dit beetje data niet erg belastend maar als script gaat straks nog meer json streams ophalen en om nou 6x data heen en weer te sturen
De search hier gaf overigens ook niet het gewenste resultaat maar misschien ligt dat wel aan mij

edit:
De json data ziet er overigens als volgt uit: (root element voeg ik zelf toe aan php kant)

code:

{"status": "success", "result": [{"time": {"secondsAgo": 20, "time": "2015-12-27T13:20:31Z"}, "temperature": 18.7, "humidity": 64.4}]}

[ Voor 6% gewijzigd door The-Source op 28-12-2015 13:05 ]

[FeronIT]

Gaat het om vbscript of vb.net?

[The-Source]

Het gaat in dit geval om een script. Maar zover mij bekend is verwerkt de server vbscript maar ook vb.net. Zit namelijk ook een ingebouwde webserver in met ASP ondersteuning. Weet niet of het onderstaande meer antwoord geeft op je vraag?

code:

Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Xml.Linq
sub Main(parm as object)

[|sWORDs|]

http://demon.tw/my-work/vbs-json.html

Voor ASP is er trouwens ook een json2 library.

Ik weet niet wat de server allemaal nog meer doet, maar node.js klinkt in elk geval voor dit gedeelte handiger dan vbs.

[ Voor 95% gewijzigd door |sWORDs| op 28-12-2015 13:47 ]

[marcelk1607]

Waarom zet je het om naar XML als je maar een paar dingen uit JSON wilt halen? Heb je die omzetting naar XML wel nodig?

[The-Source]

marcelk1607 schreef op maandag 28 december 2015 @ 18:38:
Waarom zet je het om naar XML als je maar een paar dingen uit JSON wilt halen? Heb je die omzetting naar XML wel nodig?

Nou daar heb ik ook wel aan gedacht om gewoon via een string search de data op te halen. Maar waardes welke decimaal op 0 eindigen worden zonder .0 verzonden. Daarnaast kan de fabrikant later natuurlijk zomaar bepalen om extra data mee te sturen en dan heb je kans dat het helemaal niet meer goed werkt.
@|sWORDs| Script zal vast werken maar ik kan hier niet direct uithalen hoe ik dan weer data er uit vandaan kan zoeken.

Mooiste zou natuurlijk zijn dat de ontwikkelaar van de API ook xml output gaat ondersteunen want blijkbaar is het even 'simpel' niet echt te doen binnen vbs

[P_de_B]

Je zegt VBScript, maar je Imports Bla Bla gedeelte lijkt toch echt VB.Net. Kun je daar duidelijkheid over geven? Voor .Net is er een goede library voor het werken met JSON: JSON.NET

[ Voor 5% gewijzigd door P_de_B op 28-12-2015 19:52 ]

[marcelk1607]

The-Source schreef op maandag 28 december 2015 @ 19:36:
[...]
Maar waardes welke decimaal op 0 eindigen worden zonder .0 verzonden.

Wat bedoel je hier? Bedoel je gehele getallen?? Zonder .0? Je kunt toch zelf wel een omzetting doen naar een vast aantal decimalen achter de komma?

[The-Source]

P_de_B schreef op maandag 28 december 2015 @ 19:51:
Je zegt VBScript, maar je Imports Bla Bla gedeelte lijkt toch echt VB.Net. Kun je daar duidelijkheid over geven? Voor .Net is er een goede library voor het werken met JSON: JSON.NET

Hier onder het hele code gedeelte en zover mijn kennis gaat is dit vbscript. Ook al wordt vb.net ondersteund, zelfs als ik de extensie op vb laat. Software welke script laad vind het ook prima als extensie .txt heeft...

Visual Basic:

Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Xml.Linq
sub Main(parm as object)
Dim pod1, pod2, APIkey, URLpod1, URLpod2, P1tHuidig, P2tHuidig, P1vHuidig, P2vHuidig AS String
'248 = set temp Woonkamer
'249 = set temp Slaapkamer

Dim webClient As New System.Net.WebClient
  APIkey = "vCiRsJJOfWxxxxxxxxxxxxxxxxxxxx"
  pod1 = "iBxxxxxx" 'Woonkamer
  pod2 = "EQxxxxx" 'Slaapkamer
  
  'Voorbeeld URL voor uitlezen huidige waardes
  'https://home.sensibo.com/api/v2/pods/<poduid>/measurements?apiKey=v
  
  URLpod1 = "https://home.sensibo.com/api/v2/pods/" & pod1 & "/measurements?apiKey=" & APIkey
  URLpod2 = "https://home.sensibo.com/api/v2/pods/" & pod2 & "/measurements?apiKey=" & APIkey
   
 '==== pod 1 status ophalen
Dim resultaat AS String = webClient.DownloadString(URLpod1) ' JSON resultaat UploadString(Uri,&#8194;String)
  resultaat = replace(resultaat, " ", "-")
Dim PodXML As XDocument = XDocument.Load("http://www.mijnwebsite.nl/json2xml.php?dedata=" & resultaat)
'PodXML.Element("root").Element("result").Element("temperature").Value
'PodXML.Element("root").Element("result").Element("humidity").Value
P1tHuidig = PodXML.Element("root").Element("result").Element("temperature").Value
P1vHuidig = PodXML.Element("root").Element("result").Element("humidity").Value
'==== pod 2 status ophalen
resultaat = webClient.DownloadString(URLpod2)
  resultaat = replace(resultaat, " ", "-")
PodXML = XDocument.Load("http://www.mijnwebsite.nl/json2xml.php?dedata=" & resultaat)
P2tHuidig = PodXML.Element("root").Element("result").Element("temperature").Value
P2vHuidig = PodXML.Element("root").Element("result").Element("humidity").Value
'250 = huidig T woonkamer
'253 = huidig T Slaapkamer
'258 = Huidig vocht woonkamer
'259 = Huidige vocht slaapkamer
 P1tHuidig = replace(P1tHuidig, ".", ",")
 P1vHuidig = replace(P1vHuidig, ".", ",")
 P2tHuidig = replace(P2tHuidig, ".", ",")
 P2vHuidig = replace(P2vHuidig, ".", ",")
hs.SetDeviceValueByRef(250, P1tHuidig, true)
hs.SetDeviceValueByRef(253, P2tHuidig, true)
hs.SetDeviceValueByRef(258, P1vHuidig, true)
hs.SetDeviceValueByRef(259, P2vHuidig, true)



hs.WriteLog("script debug: ", "Pod2 temp / vocht: " & P2tHuidig & ", " & P2vHuidig) 
hs.WriteLog("script debug: ", "Pod1 temp / vocht: " & P1tHuidig & ", " & P1vHuidig) 

End Sub

De hs.SetDeviceValueByRef word door pakket zelf gebruikt.

Ik heb net even naar het JSON.NET gekeken maar als ik de "nuget install" uitvoer krijg ik de melding "All packages listed in C:\nuget\packages.config are already installed." Maar het lijkt mij niet dat deze standaard met Win10 en de .NET updates geïnstalleerd wordt?

marcelk1607 schreef op maandag 28 december 2015 @ 19:56:
[...]


Wat bedoel je hier? Bedoel je gehele getallen?? Zonder .0? Je kunt toch zelf wel een omzetting doen naar een vast aantal decimalen achter de komma?

Ik doelde daarop met string search dat de lengte van de waarde nog kan veranderen.( 1 tot 4 karakters)

[Killah_Priest]

VBscript is redelijk dood en voorzover ik weet ontwikkelt MS hier ook niet meer voor (VB.Net is uiteraard een ander verhaal), tegenwoordig zou ik toch echt voor Powershell gaan voor scripten op Windows servers (ook clients).
Powershell heeft gewoon ingebouwde CMDlets om JSON te parsen en te exporteren naar bv XML.
Je zou eventueel (als vbs echt een vereiste is) een PS instance aan kunnen maken vanuit je vb script.

[HansvDr]

The-Source schreef op maandag 28 december 2015 @ 20:46:
[...]

Hier onder het hele code gedeelte en zover mijn kennis gaat is dit vbscript.

Het is dus VB.Net

Om JSON te parsen zou ik inderdaad Json.NET gebruiken.

Heb je problemen met NuGet, download dan gewoon de dll zonder NuGet.

[P_de_B]

Als je gewoon Install-Package Newtonsoft.Json uitvoert, dan lukt het niet?

[The-Source]

P_de_B schreef op woensdag 30 december 2015 @ 11:13:
Als je gewoon Install-Package Newtonsoft.Json uitvoert, dan lukt het niet?

Dat lukt tot zekere hoogte, moest ipv install-package, install gebruiken (andere werd niet herkend)

C:\nuget>nuget Install Newtonsoft.Json
Feeds used:
https://api.nuget.org/v3/index.json

Attempting to gather dependencies information for package 'Newtonsoft.Json.8.0.1' with respect to project 'C:\nuget', targeting 'Any,Version=v0.0'
Attempting to resolve dependencies for package 'Newtonsoft.Json.8.0.1' with DependencyBehavior 'Lowest'
Resolving actions to install package 'Newtonsoft.Json.8.0.1'
Resolved actions to install package 'Newtonsoft.Json.8.0.1'
Adding package 'Newtonsoft.Json.8.0.1' to folder 'C:\nuget'
Added package 'Newtonsoft.Json.8.0.1' to folder 'C:\nuget'
Successfully installed 'Newtonsoft.Json 8.0.1' to C:\nuget

En nu heb ik die bestanden dus ook netjes in die directory staan maar waar moet ik ze nu naar toe verplaatsen of kan ik ze hier laten staan?

[HansvDr]

The-Source schreef op woensdag 30 december 2015 @ 11:25:
[...]

Dat lukt tot zekere hoogte, moest ipv install-package, install gebruiken (andere werd niet herkend)

[...]

En nu heb ik die bestanden dus ook netjes in die directory staan maar waar moet ik ze nu naar toe verplaatsen of kan ik ze hier laten staan?

Je hebt alleen het bestand: Newtonsoft.Json.Dll nodig

[Mercatres]

The-Source schreef op woensdag 30 december 2015 @ 11:25:
[...]

Dat lukt tot zekere hoogte, moest ipv install-package, install gebruiken (andere werd niet herkend)

[...]

En nu heb ik die bestanden dus ook netjes in die directory staan maar waar moet ik ze nu naar toe verplaatsen of kan ik ze hier laten staan?

Je kan het ook vanuit de packagemanage (of vanuit de packagemanager-console) doen, dan heb je het meteen correct. En eigenlijk wil je het wel via NuGet doen, want dan heb je in ieder geval ook de mogelijkheid om makkelijk te upgraden. En ik zou ook voor NewtonSoft gaan.

[HansvDr]

Nou ja, ieder zijn ding maar voor een enkele dll gebruik ik eigenlijk nooit nuget.

Upgraden is dan overschrijven, klaar.

[The-Source]

Nou ik denk dat ik het bestand nu op de juiste plek heb weten te dumpen.
Via via kwam ik tegen dat ik de dll in de root van het software pakket mag plaatsen en dan alleen in de settings een reference toe moest voegen:
En in het script kan ik via Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq de dll gebruiken.

Duurt even maar voor de toekomst wel de beste oplossing
Wanneer ik tijd heb zal ik een geupdate script posten, wellicht dat die dan nog wel verbeterd kan worden maar dat is weer toekomst

[Caelorum]

HansvDr schreef op woensdag 30 december 2015 @ 14:06:
Nou ja, ieder zijn ding maar voor een enkele dll gebruik ik eigenlijk nooit nuget.

Upgraden is dan overschrijven, klaar.

Als dat je enige package ja, maar anders is het toch best handig als al je dependencies via nuget binnen te halen. Upgraden van alles is dan ineens heel makkelijk. Ook zorgen dat je in alle projecten van de solution dezelfde nuget package hebt is dan ineens heel handig te doen. (met 70+ projecten met dependencies onderling wordt het anders echt een hel)

Voor dit specifieke geval was het waarschijnlijk niet nodig geweest. Maar ook hier had hij gewoon een packages.config in zijn projectfolder aan kunnen maken en nuget kunnen gebruiken. Dan had hij nu eenvoudig de mogelijkheid in VisualStudio (of vs code of commandline) om de package te updaten. (Daarnaast met de package manager in Visual Studio had hij die referentie niet eens zelf handmatig hoeven toe te voegen).

Om nog maar niet te spreken over de dependencies die je niet hoeft in te checken in je version control. Alleen de packages.config is voldoende om VS bij eerste keer builden al alles binnen te laten hengelen.

[ Voor 9% gewijzigd door Caelorum op 30-12-2015 21:23 ]

[HansvDr]

Caelorum schreef op woensdag 30 december 2015 @ 21:21:
[...]

Als dat je enige package ja, maar anders is het toch best handig als al je dependencies via nuget binnen te halen. Upgraden van alles is dan ineens heel makkelijk.....

Eehm dat zeg ik . Enkele dll, geen nuget.

Mogelijke voordelen van nuget zijn uiteraard bekend. Maar voor 1 dll is het wat mij betreft overkill.

[The-Source]

Hier is even wel wat trial en error geweest maar heb nu het gewenste resultaat.
Er waren wat [ ] die problemen geven met de json verwerking. Die drempel is nu nog niet belangrijk maar wellicht dat ik in de toekomst daar nog wat voor vind (weet ook nog niet of ik het ooit nodig ga hebben)
Het geupdate script:

Visual Basic:

Imports System.IO
Imports System.Net
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

sub Main(parm as object)

Dim resultaat, json, pod1, pod2, APIkey, URLpod1, URLpod2, P1tHuidig, P2tHuidig, P1vHuidig, P2vHuidig AS String

'JSON
    Dim obj As New Object

'Dim webClient As New System.Net.WebClient
  APIkey = "xxxxx"
  pod1 = "iBxxxxx" 'Woonkamer
  pod2 = "EQxxxxx" 'Slaapkamer
  
  URLpod1 = "https://home.sensibo.com/api/v2/pods/" & pod1 & "/measurements?apiKey=" & APIkey
  URLpod2 = "https://home.sensibo.com/api/v2/pods/" & pod2 & "/measurements?apiKey=" & APIkey
   
 '==== pod 1 status ophalen
resultaat = hs.URLAction(URLpod1,"GET", "", "")
        resultaat=resultaat.Replace("[", "")
        resultaat=resultaat.Replace("]", "")
'hs.WriteLog("script debug: ", resultaat) 
'{"status": "success", "result": [{"time": {"secondsAgo": 20, "time": "2015-12-27T13:20:31Z"}, "temperature": 18.7, "humidity": 64.4}]}
    obj = JsonConvert.DeserializeObject(resultaat)
    P1tHuidig = obj.Item("result")("temperature")
    P1vHuidig = obj.Item("result")("humidity")
'==== pod 2 status ophalen
resultaat = hs.URLAction(URLpod2,"GET", "", "") 
        resultaat=resultaat.Replace("[", "")
        resultaat=resultaat.Replace("]", "")
    obj = JsonConvert.DeserializeObject(resultaat)
    P2tHuidig = obj.Item("result")("temperature")
    P2vHuidig = obj.Item("result")("humidity")

'250 = huidig T woonkamer
'253 = huidig T Slaapkamer
'258 = Huidig vocht woonkamer
'259 = Huidige vocht slaapkamer
'248 = set temp Woonkamer
'249 = set temp Slaapkamer
    P1tHuidig = replace(P1tHuidig, ".", ",")
    P1vHuidig = replace(P1vHuidig, ".", ",")
    P2tHuidig = replace(P2tHuidig, ".", ",")
    P2vHuidig = replace(P2vHuidig, ".", ",")
    hs.SetDeviceValueByRef(250, P1tHuidig, true)
    hs.SetDeviceValueByRef(253, P2tHuidig, true)
    hs.SetDeviceValueByRef(258, P1vHuidig, true)
    hs.SetDeviceValueByRef(259, P2vHuidig, true)

hs.WriteLog("script debug: ", "Pod2 temp / vocht: " & P2tHuidig & ", " & P2vHuidig) 
hs.WriteLog("script debug: ", "Pod1 temp / vocht: " & P1tHuidig & ", " & P1vHuidig) 

End Sub

ipv de webclient gebruik ik nu ook de ingebouwde urlaction functie van het software pakket