Announcement

**mrhappy** · September 15, 2010, 01:00 PM

Reading XML files is not hard at all using vb.net, the problem is perhaps how you want to display it and exactly which data you want.

I'm sorry but my German is non existent, so I can't read what some of the data point names mean to decipher what exactly the XML file means...If you can post exactly which nodes/values you want then should be able to show an example script.

If you know about scripting i'd suggest a look at the XmlDocument, XMLNodeList and XMLNode functions of the System.XML..

**Darklord** · September 15, 2010, 01:26 PM

Hello mrhappy,

thank you for your fast answer.

I want to take for example the valve state of my heating system in the kitchen (Kueche).
Take a look at this:

.
.
.

datapoint name="Ventilstellung Kueche" type="" ise_id="1520" value="0.000000" valuetype="4" timestamp="1284121619"/>
and
so
on
.
.
.

The red colored value is one of this values I want to use it in HomeSeer.
I need this values to create some charts or to use it in conditions.

Bye

Darklord

**mrhappy** · September 15, 2010, 03:22 PM

Ok...i've got I think what you are after, but you need to do the following;

1) Open the settings.ini file in your config directory, look for the following entry;

ScriptingReferences=

If you have any other text in this field then you need to add a comma at the end and then the following;

system.xml;system.xml.dll

So if you have something like system.data;system.data.dll in the field it becomes, system.data;system.data.dll,system.xml;system.xml.dll . If you have nothing else present just use scriptingReferences=system.xml;system.xml.dll. You then need to restart HomeSeer.

2) Create a status only device from the devices page, this will be where your value is shown. Choose a code that suits you.

3) Save the following script as a .vb file

Imports System.XML

Sub Main(ByVal Data As String)

Dim ValXML As New XmlDocument
Dim ValXMLNodeList As XmlNodeList
Dim ValXMLNode As XmlNode
Dim FValue As Decimal

ValXML.Load("C:\Homematic.xml")

ValXMLNodeList = ValXML.SelectNodes("//datapoint[@name='Ventilstellung Kueche']")

For Each ValXMLNode In ValXMLNodeList

FValue = System.Math.Round(CDec(ValXMLNode.Attributes("value").Value) , 2)

hs.setdevicevalue("X1", FValue * 100)
hs.setdevicestring("X1", "Value Is: " & ValXMLNode.Attributes("value").Value)

Next

End Sub

A few things to think about from the above (also please consider my scripting is by no means the best!)

i) The line valXML.Load, as I don't have the ability to test your IP address here I can't load it from a URL. You can try this;

ValXML.Load("http://XX.YYY.XY.XY/config/xmlapi/statelist.cgi")

Whether it works from the link with the cgi file I don't know, if not may have to come up with another solution - possibly using some form of hs.geturl command.

ii) Change "X1" to whatever device code you have created above in point 2)

iii) HomeSeer does not store decimal values, so if the value is 0.000000 it has to be converted into an integer. I've rounded it to three decimal places using system.math.round and then multiplied it by 100. I'm not sure what values you are expecting in that field, you may need to edit this to store an accurate figure - the way its normally done is 12.50 has a device value (which you use on triggers/conditions) will be represented with a device value of 1250.

If you run the above script at a recurring interval to suit you it should work.

Thats obviously quite basic, adding more fields is quite easy but I would take a look at syntax called XPath, which is how you select parts of the XML document.

Hope it works for you, any problems I can try and help...also others may be able to post better code, the above for me works but it might not be the best..

**Darklord** · September 16, 2010, 12:40 PM

Hello mrhappy,

thank you for your help.

I've tried this script and followed Your instructions but it doesn't work.

This errormessage will be displayed in HS:

Code:

16.09.2010 19:33:33  - Error - Script compile error: Der Typ "XmlDocument" ist nicht definiert.on line 18

Any ideas?

Bye

Darklord

**mrhappy** · September 16, 2010, 12:45 PM

I think (based on a rough translation) that usually points to either the scripting reference incorrect or the Imports statement (imports system.xml) missing on the first line of the script.

Can you open up your config.ini file, and paste the line scriptingreferences= here please?

Thanks...

**Darklord** · September 16, 2010, 12:54 PM

Hi,

here the line:

scriptingReferences=system.xml;system.xml.dll

This line wasn't in the system.ini file so I've copied it from your post.

Bye

Michael

**Darklord** · September 16, 2010, 01:16 PM

Hi,

the valvestate value is specified in percent.

Other values like "Temp Max Kueche" are specified as degrees (decimal).

mrhappy: thanks for your support AGAIN

Bye

Michael

**mrhappy** · September 16, 2010, 01:34 PM

Ok...does the first part of the script work now? If so we can move on...

What sort of values do you wish to capture? Are you happy with 0-100% or do you want 0.01% - 100.00%?

Out of interest does the command load with the URL correctly?

**Darklord** · September 17, 2010, 09:56 AM

Hello,

the script doesen't work anymore.

The same failure as I posted above.

Code:

What sort of values do you wish to capture?

The most of the ones who are defined as "Heizung Kueche" like "Temp Min Kueche", "Temp Max Kueche", "Luftfeuchte Max Kueche" (Humidity Max Kitchen in %) and so on.

In near Future I want to use this values in charts to display trends...

Code:

Are you happy with 0-100% or do you want 0.01% - 100.00%?

Oh, I think 0-100% (step 0,5%) are exact enough

Code:

Out of interest does the command load with the URL correctly?

How can I find out?

The command http://XX.YYY.XY.XY/config/xmlapi/statelist.cgi
placed in a browser like Firefox works. Works it with HS? I don't know.

So long

Michael

**mrhappy** · September 17, 2010, 10:00 AM

Ok no problems...i'll see if I can try and get it to work, i've picked up a bit about vb.net but would not say I am the best.

If you run;

Imports System.XML

Sub Main(ByVal Data As String)

Dim ValXML As New XmlDocument
Dim ValXMLNodeList As XmlNodeList
Dim ValXMLNode As XmlNode
Dim FValue As Decimal

ValXML.Load("http://XX.YYY.XY.XY/config/xmlapi/statelist.cgi")

ValXMLNodeList = ValXML.SelectNodes("//datapoint[@name='Ventilstellung Kueche']")

For Each ValXMLNode In ValXMLNodeList

FValue = System.Math.Round(CDec(ValXMLNode.Attributes("value").Value) , 2)

hs.setdevicevalue("X1", FValue * 100)
hs.setdevicestring("X1", "Value Is: " & ValXMLNode.Attributes("value").Value)

Next

End Sub

Obviously replacing the xx.yyy etc with your IP address.

If it does not work, what error shows up in the log file?

**Darklord** · September 17, 2010, 10:12 AM

Hello mrhappy,

I'm sorry but this script didn't work too.

The failure report:
17.09.2010 17:11:34 - Info - Event Trigger "Momematic"
17.09.2010 17:11:34 - Info - Running script in background: Neu Textdokument.vb
17.09.2010 17:11:34 - Error - Script compile error: Der Typ "XmlDocument" ist nicht definiert.on line 18
17.09.2010 17:11:34 - SCR - Option Strict OffImports System.XMLimports Schedulerimports SystemPublic Module scriptcode7#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionSub Main(ByVal Data As String)Dim ValXML As New XmlDocumentDim ValXMLNodeList As XmlNodeListDim ValXMLNode As XmlNodeDim FValue As DecimalValXML.Load("http://IP-Adresse/config/xmlapi/statelist.cgi")ValXMLNodeList = ValXML.SelectNodes("//datapoint[@name='Ventilstellung Kueche']")For Each ValXMLNode In ValXMLNodeListFValue = System.Math.Round(CDec(ValXMLNode.Attributes("value").Value) , 2)hs.setdevicevalue("X1", FValue * 100)hs.setdevicestring("X1", "Value Is: " & ValXMLNode.Attributes("value").Value)NextEnd Sub End Module

I hope this will help.

Bye

Michael

**mrhappy** · September 17, 2010, 10:28 AM

OK...it may be that it can't download the file from that URL, never sure whether it would work or not...for some testing;

If you swap this line;

ValXML.Load("http://XX.YYY.XY.XY/config/xmlapi/statelist.cgi")

with

ValXML.Load("C:\Homematic.xml")

Then with the original XML file in your post save it to the c: drive with the same file name.

Run the script and see if the error still appears.

If the error goes then will have to find a way of downloading the file first, then loading it.

**Darklord** · September 17, 2010, 10:41 AM

Hi,

this report Hs creates:

17.09.2010 17:41:16 - Info - Event Trigger "Momematic"
17.09.2010 17:41:16 - Info - Running script in background: Neu Textdokument.vb
17.09.2010 17:41:17 - Error - Script compile error: Der Typ "XmlDocument" ist nicht definiert.on line 18
17.09.2010 17:41:17 - SCR - Option Strict OffImports System.XMLimports Schedulerimports SystemPublic Module scriptcode10#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionSub Main(ByVal Data As String)Dim ValXML As New XmlDocumentDim ValXMLNodeList As XmlNodeListDim ValXMLNode As XmlNodeDim FValue As DecimalValXML.Load("C:\Homematic.xml")ValXMLNodeList = ValXML.SelectNodes("//datapoint[@name='Ventilstellung Kueche']")For Each ValXMLNode In ValXMLNodeListFValue = System.Math.Round(CDec(ValXMLNode.Attributes("value").Value) , 2)hs.setdevicevalue("X1", FValue * 100)hs.setdevicestring("X1", "Value Is: " & ValXMLNode.Attributes("value").Value)NextEnd Sub End Module

So long

Michael

**mrhappy** · September 17, 2010, 10:50 AM

I'm sorry i'm going to have to nearly admit defeat on this one, if the scriptingreferences= entry in the config .ini file is OK and the script works for me then i'm at a loss. Someone else may be able to post why.

Just to run back through;

1) Can you post the scriptingreferences= line from your ini file please?
2) Have you restarted HomeSeer
3) Do you definately have the line at the top of the script 'Imports System.XML'?

I think the problem is there somewhere.

Announcement

Read XML-File

Read XML-File

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment