[XML] Tree recursief opbouwen.

[akakiwi]

Goede morgen,

Hier is de probleem omschrijving.
Ik neem aan dat iedereen in staat is een boom op te bouwen met willekeurig welke programmeertaal dan ook.
Dump je data in een database, zoals hieronder, met een parent/child relatie, en haal ze eruit met een recursieve functie

code:

StringId | Title
---------|--------------------
A     | Root
AA   | Library
AB   | Methodology
ABA | Consulting Services
ABB | Resource Solutions
AC   | Administrator
ACA | User Management

function XMLTree(strId)
    dim strTitle, strCatId

    sql = "SELECT Title, CatId FROM TBL_Table WHERE StringId LIKE '" & strId & "_' ORDER BY StringId ASC"
    set rs = server.createobject("ADODB.recordset")
    rs.open sql, cn, 1, 2
    while not rs.EOF
        strTitle = replace(rs(0), "&", "&")
        strCatId = rs(1)
        Set oNode = oXml.createNode("element", "TreeNode", "") ' "default.asp?nodeId=" & strCatId)
        call oNode.setAttribute("NodeId", strCatId)
        call oNode.setAttribute("Text", strTitle)
        oRoot.appendChild(oNode)
        XMLTree(strCatId)
        rs.movenext
    wend
    set XMLTree = oXml
    rs.close
    set rs= nothing
end function

Voordat je deze functie aanroept, moet je natuurlijk wel zorgen dat oRoot is ge-set met oXml.documentElement. Dan weet je het root element, en kun je vanaf daar weer verder nodes aan het root element gaan hangen.

En dan het eigenlijke probleem.
Deze funtie hangt alle nodes keihard onder de root. Ik heb al geprobeerd om de root steeds opnieuw te initialiseren met de oXml.lastChild methode, maar dat mocht helaas niet baten.

Weet iemand hier hoe je de node waar je iets onder wilt hangen steeds opnieuw kunt initialiseren?

Alvast bedankt.

[Juup]

Welke taal is dit?

[Dennis]

Op maandag 24 september 2001 09:17 schreef Jaaap het volgende:
Welke taal is dit?

XML en ASP

[OJ_Simpson]

Beste Paul,

waarom laat je Oompje Cees niet gewoon zelf het boek lezen?

[akakiwi]

Ome Cees zal het waarschijnlijk zelf niet helemaal snappen, en dus moet ik het fixen.

[OJ_Simpson]

Volgens een bericht in de Computable hebben jullie nog 95 man in Boedapest zitten. Weten ze het daar niet dan?

[akakiwi]

Mag ik jou vragen iets zinnigs te posten?
Ik zou het namelijk zonde vinden als dit, door mij toch serieus bedoelde draadje dadelijk "into oblivian" gaat.

[mbravenboer]

Als je het huidige element waarin de data moet komen meegeeft als parameter aan de recursieve functie is het probleem opgelost lijkt mij .

[akakiwi]

Dat leek mij inderdaad ook een solide oplossing, ware het niet dat het:
1. Niet werkt
2. Het object moet ook ge-set worden, en dat gebeurd niet als je de huidige tak meegeeft aan de functie.

Het probleem zit 'm erin dat het object oRoot geset moet worden, omdat daarin het XML bestand wordt opgebouwd.

[mbravenboer]

akakiwi: Niet werkt

Das geen reden .

Het object moet ook ge-set worden, en dat gebeurd niet als je de huidige tak meegeeft aan de functie.

Ik begrijp niet exact wat je met geset bedoeld (ik werk niet in deze brabbel taaltjes ) maar als je voordurend de parent meegeeft kan je je nieuwe kinderen daar gewoon aan toevoegen volgens mij (het zou in ieder geval in een W3C-DOM implementatie in elke taal kunnen).

Het probleem zit 'm erin dat het object oRoot geset moet worden, omdat daarin het XML bestand wordt opgebouwd.

Dat zou je misschien in een initiele methode kunnen doen die daarna pas de recursieve methode aanroept.

[akakiwi]

Op maandag 24 september 2001 11:12 schreef mbravenboer het volgende:

Dat zou je misschien in een initiele methode kunnen doen die daarna pas de recursieve methode aanroept.

OK, misschien ben ik niet helemaal duidelijk geweest.
Voordat je de recursieve functie aanroept, zeg ik het volgende.

code:

oXml.LoadXml "<Root/>"
set oRoot = oXml.documentElement

Hiermee wordt dus een Root element aan het object oXml toegekent, en wordt dit element aan oRoot kenbaar gemaakt.
Op dit moment ziet oRoot <Root/> dus als element waar de childs aanvast gehangen moeten worden.
Deze <Root/> is dus zowel de root, als het laatste child van de XML boom. Binnen de recusieve functie moet dus steeds het laatste child herkent worden, en moeten daaraan onderliggende nodes van de boom worden gehangen. Nu weet ik dus niet hoe je de laatste node aan oRoot kenbaar maakt, zodat daar ook Nodes onder gehangen kunnen worden.
En dat is het probleem.

:?Iets duidelijker nu:?

[Genoil]

ja maar zoals mbravenboer al zegt moet je oNode doorgeven aan de functie als zijnde bv. oParent, en je nieuwe oNodes toevoegen als child van oParent en niet als child van oRoot.

code:

function XMLTree(strId, oParent)
    dim strTitle, strCatId

    sql = "SELECT Title, CatId FROM TBL_Table WHERE StringId LIKE '" & strId & "_' ORDER BY StringId ASC"
    set rs = server.createobject("ADODB.recordset")
    rs.open sql, cn, 1, 2
    while not rs.EOF
        strTitle = replace(rs(0), "&", "&")
        strCatId = rs(1)
        Set oNode = oXml.createNode("element", "TreeNode", "") ' "default.asp?nodeId=" & strCatId)
        call oNode.setAttribute("NodeId", strCatId)
        call oNode.setAttribute("Text", strTitle)
        oParent.appendChild(oNode)
        XMLTree(strCatId, oNode)
        rs.movenext
    wend
    set XMLTree = oXml
    rs.close
    set rs= nothing
end function

[akakiwi]

Dikke vette obey!
Nou, dat werkt dus als een trein, alhoewel ik het niet logisch vind.
Want, het is toch een object waar de aanpassingen op worden gemaakt??
Misschien snap ik dat XML object dan nog niet helemaal.

iig heren, dank je wel voor de hulp.

Groeten akakiwi

[Verwijderd]

Op dinsdag 25 september 2001 09:01 schreef akakiwi het volgende:
Dikke vette obey!
Nou, dat werkt dus als een trein, alhoewel ik het niet logisch vind. Want, het is toch een object waar de aanpassingen op worden gemaakt?? Misschien snap ik dat XML object dan nog niet helemaal.

Onthou maar gewoon dat een data element, wat in feite de inhoud is van een element, bv:

code:

<blaat>
    data
</blaat>

hier dus 'data', een childnode is van blaat, zn elementnode.