XML read

[dexto]

I needed to read some info from XML so i found out that I needed to use COM objects. Oh well, I went and tried it. Its so complicated and I just want to read an XML (text file)! So, here is what I came up with:

Examples:

  Quote

Reads:

<realfeel>24</realfeel> using:XMLget($file, 'adc_database\currentconditions\realfeel')

<sun rise="05:59" set="21:14"/> using:XMLget($file, 'adc_database\planets\sun')

<day number="2"><txtlong>Nice weather tomorrow</txtlong></day> using:XMLget($file, 'adc_database\forecast\day number="2"\daytime\txtlong')

<pressure state="Unavailable">1009.995</pressure> using: XMLget($file, 'adc_database\currentconditions\pressure')

Edit: faster and more accurate.

expandcollapse popup

Local $xmlPath = @ScriptDir & '\data.xml'
If Not FileExists($xmlPath) Then Exit
$file = FileRead($xmlPath)
$file = StringReplace($file, @LF, '')
$file = StringSplit($file, @CR, 1)

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_database\currentconditions\realfeel'))
MsgBox(0, 'DONE!!!', XMLget($file, 'adc_database\planets\sun'))
MsgBox(0, 'DONE!!!', XMLget($file, 'adc_database\forecast\day number="1"\daytime\txtlong'))
MsgBox(0, 'DONE!!!', XMLget($file, 'adc_database\currentconditions\pressure'))

Func XMLget($file, $Path); XMLget($file,'adc_database\currentconditions\realfeel')
    $Path = StringSplit($Path, '/\|', 0)
    $lastline = 0
    For $lvl = 1 To $Path[0] Step 1
        For $line = $lastline To $file[0] Step 1
            $lastline = $line
            $hstart = StringInStr($file[$line], '<' & $Path[$lvl] & '>', 0)
            $hstarta = StringInStr($file[$line], '<' & $Path[$lvl] & ' ', 0)
            If $hstart Or $hstarta Then
                If $lvl == $Path[0] Then
                    If $hstart Then
                        $end = StringInStr($file[$line], '</' & $Path[$lvl] & '>', 0)
                        If $end Then
                            $hstart = $hstart + StringLen('<' & $Path[$lvl] & '>')
                            Return StringMid($file[$line], $hstart, $end - $hstart)
                        EndIf
                    EndIf
                    If $hstarta Then
                        $end = StringInStr($file[$line], '/>', 0)
                        If $end Then
                            $hstarta = $hstarta + StringLen('<' & $Path[$lvl] & ' ')
                            $return = StringMid($file[$line], $hstarta, $end - $hstarta)
                            Return $return
                        EndIf
                        $ends = StringInStr($file[$line], '>', 0)
                        If $ends Then
                            $hstart = $ends + 1
                            $end = StringInStr($file[$line], '</' & $Path[$lvl] & '>', 0)
                            If $end Then
                                $return = StringMid($file[$line], $hstart, $end - $hstart)
                                Return $return
                            EndIf
                        EndIf
                    EndIf
                EndIf
                ContinueLoop 2
            EndIf
        Next
        If $line == $file[0] Then ExitLoop
    Next
    Return 'not found'
EndFunc ;==>XMLget

Data for testing:

data.zip

Edited June 28, 2009 by dexto

[Yashied]

Good idea, dexto, and good job.

[dexto]

Thnx, I'll update it if I have newer versions.

[tegl]

good,thx for share it

[VAG]

Hi, are you able to read the attributes of this path from your data.xml? I get the ''not found" message. My XML data has the similar format but cannot read out zone="MIZ076" county="MIC163" isactive="0" also.

XMLget($file, 'adc_database\watchwarnareas')

[baamr]

Hi,

Is it possible to get more than first value from a XMLget($file, $Path) ?

I mean if You have eg. 10 similar $Path in that same file.

[jdelaney]

It's hard to handle ever single possible scenario without using the XMLDOM.  Good luck.

[baamr]

  On 10/13/2014 at 5:11 PM, jdelaney said:

It's hard to handle ever single possible scenario without using the XMLDOM.  Good luck.

 

Thanks for reply,

 

But i am not so familiar with XMLdom.

I get all correct values from eg:

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databasecurrentconditionsrealfeel'))

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanetssun'))

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseforecastday number="1"daytimetxtlong'))

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databasecurrentconditionspressure'))

 

My problem is when a $path is repeated eg. 3 times like this:

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanetssun'))

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanetssun'))

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanetssun'))

 

I will get first value in every case even though i know there is 3 different.

 

How can i get this routine correct?

[baamr]

Can i put $path into array(in some way) or is it a constant?

[baamr]

Hi,

Here`s an example of what i mean.

I have added an extra line in Data saying : 

<planets>
<sun rise="06:05" set="21:20"/>

I tried to add another line in code like this:

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanetssun'))

But it will always give result from this line:

<planets>
<sun rise="05:59" set="21:14"/>

How can i get results from the second line?

Thanks,

data.zip

[baamr]

  On 10/15/2014 at 7:04 AM, baamr said:

Hi,

Here`s an example of what i mean.

I have added an extra line in Data saying : 

<planets>

<sun rise="06:05" set="21:20"/>

I tried to add another line in code like this:

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanetssun'))

But it will always give result from this line:

<planets>

<sun rise="05:59" set="21:14"/>

How can i get results from the second line?

Thanks,

 

 

No one wants to reply?

[guinness]

  On 10/16/2014 at 9:26 PM, baamr said:

No one wants to reply?

Please don't be impatient, this just fuels people not wanting to help you. If you're stuck ask in GHS about your generic issue.

[baamr]

  On 10/17/2014 at 6:20 AM, guinness said:

Please don't be impatient, this just fuels people not wanting to help you. If you're stuck ask in GHS about your generic issue.

 

Ok, thanks.

[jdelaney]

Post your code...if it's truley the second instance then:

MsgBox(0, 'DONE!!!', XMLget($file, 'adc_databaseplanets[2]sun'))

Else, anyones guess is as good as mine.  This might be better posted to the Help and Support forum

Edited October 27, 2014 by jdelaney

[TheSaint]

Three things.

[1] Do some reading on how XML works.

[2] There are many posts here about XML and even an old UDF.

[3] Like guinness said, ask questions in General Help, where you can link to topics like this one, especially as the last post before your first here, was almost five years ago. Your questions will be noted far sooner than in this Forum which deals mostly with Example scripts.

[kesavan]

Hi,

I downloaded 'Dexto' code. I implement the same for my requirement. It is working fine. However, for some XPATH, it is returning the other XPATH value. 

For eg: If I ask to read Parametes\Inputs\Pressure\Minimum, the script returns Parametes\Inputs\FlowRate\Minimum.  Again, If I ask to read Parametes\Inputs\Temperature\Minimum, the script returns Parametes\Inputs\FlowRate\Minimum.

I have attached the XML and AutoIt script. 

Please suggest me what i am doing wrong. Thanks in advance.

sendxml.zip