XML and VB6

[amaleea]

hello. please help me to read an XML file like:
<?xml version="1.0" encoding="ISO-8859-1"?>
<ROOT>
<PERSONS>
<PERSON NOM="IARU" PRENOM="IOANA" >
<CONTACT>
<TEL>
<TEL1>111111</TEL1>
<TEL2>222222</TEL2>
</TEL>

<EMAIL>
<EMAIL1>[e-mail]</EMAIL1>
</EMAIL>

<FAX>
<FAX1>373474747</FAX1>
</FAX>

<ADRESSE>
<RUE>RUE1</RUE>
<NO>NO1</NO>
<VILLE>VILLE1</VILLE>
</ADRESSE>
</CONTACT>
</PERSON>

<PERSON NOM="PALL" PRENOM="EVA" >
<CONTACT>
<TEL>
<TEL1>333333</TEL1>
<TEL2>444444</TEL2>
</TEL>

<EMAIL>
<EMAIL1>[e-mail]</EMAIL1>
</EMAIL>

<FAX>
<FAX1>373474747</FAX1>
</FAX>

<ADRESSE>
<RUE>rue2</RUE>
<NO>no2</NO>
<VILLE>ville2</VILLE>
</ADRESSE>
</CONTACT>
</PERSON>
</PERSONS>
</ROOT>
in VisualBasic6.0.

[Robbie]

Hi, I made a module which allows you to extract the text which is between tags in an XML or HTML file.
Have a look, play around with it a bit, I think you'll find it's what you need.
To use it you'll need to load the XML file into a string, then give that string to this function.

Public Function XMLTagText(XMLFileText As String, TagToUse As String, NumberToGive As Long) As String
'XML tag text extraction module by Robbi-985
'XMLFileText    -   The entire text of the XML (or HTML) file
'TagToUse       -   Will return text within this tag
'NumberToGive   -   Gives back the text in this number'th occurence
'                   of the tag (i.e. if you have:
'<a>Apple</a>
'<a>Banana</a>
'<a>Orange</a>
'                   if NumberToGive is 3 then it gives back Orange.
'                   Must be > 0!
 
 
    Dim TagStartPos As Long
    TagStartPos = 0
    Dim TagEndPos As Long
 
    Dim CurrentNumber As Long
    CurrentNumber = 0
 
    While CurrentNumber < NumberToGive
 
        TagStartPos = InStr(TagStartPos + 1, XMLFileText, "<" + TagToUse + ">")
        If TagStartPos < 1 Then
        'There's no open tag with the text of TagToUse
            'Just give back nothing
            XMLTagText = ""
            Exit Function
        End If
 
        CurrentNumber = CurrentNumber + 1
    Wend
 
    TagEndPos = InStr(TagStartPos, XMLFileText, "</" + TagToUse + ">")
    If TagEndPos < 1 Then
    'There's an error in the formatting of the XML or HTML text!
        'Help out explaining why this funciton's going to give
        'back blankness by saying that there IS a format error
        MsgBox "There's an open tag for '" + TagToUse + "'" + _
        ", but no close tag!", vbExclamation, _
        "XML or HTML format error!"
        '...Then give back nothing
        XMLTagText = ""
        Exit Function
    End If
 
    'Now we have the positions of the first character of the
    'start and end tags
 
    'Add on the length of the entire tag (including <>)
    '(So that we're left with the position which the
    'text within the tag starts at)
    TagStartPos = TagStartPos + 2 + Len(TagToUse)
    'Similar thing with the ending position
    TagEndPos = TagEndPos - 1
 
 
 
 
    XMLTagText = Mid(XMLFileText, TagStartPos, (TagEndPos - TagStartPos) + 1)
 
 
End Function