Which universe? I thought we were now in the Multi-Universe situation.
Come on zmbd widen your horizons a bit!!
Phil
Come on zmbd widen your horizons a bit!!
Phil
<Root>
<Group>
<UUID></UUID>
<Times>
<LastUpDate></LastUpDate>
</Times>
<Item></Item>
-some entries-
<Group>
<UUID></UUID>.
<Times>
<LastUpDate></LastUpDate>
</Times>
<Item>
-some entries-
</Item>
<Group>
<UUID></UUID>
<Times>
<LastUpDate></LastUpDate>
</Times>
<Item>
-some entries-
</Item>
</Group>
<Group>
<UUID></UUID>
<Times>
<LastUpDate></LastUpDate>
</Times>
<Item>
-some entries-
</Item>
</Group>
</Group>
</Group>
</Root>
Print #zFreeFile, String(zRecursion, ".") & _
" (" & " ParentNode: " & zSpider.ParentNode.basename & _
") (Spider: " & zSpider.basename & _
")(text: " & zSpider.Text & ")"
In the text file:
>Group level: 1
<<< There's another Print op when the select-case is Groups that places this flush left for visual location<<
Group:: <<Calling level
. UUID::
.. ( ParentNode: UUID) (Spider: )(text: Goup_100)
.. Name::
... ( ParentNode: Name) (Spider: )(text: 100_Group)
... ( ParentNode: Group) (Spider: Notes)(text: )
... IconID::
.... ( ParentNode: IconID) (Spider: )(text: 49)
.... Times::
..... LastModificationTime::
...... ( ParentNode: LastModificationTime) (Spider: )(text: 2009-04-24T19:18:46Z)
...... CreationTime::
....... ( ParentNode: CreationTime) (Spider: )(text: 2007-04-18T09:28:58Z)
....... LastAccessTime::
........ ( ParentNode: LastAccessTime) (Spider: )(text: 2009-07-31T18:10:39Z)
........ ExpiryTime::
......... ( ParentNode: ExpiryTime) (Spider: )(text: 2007-04-18T09:28:58Z)
......... Expires::
.......... ( ParentNode: Expires) (Spider: )(text: False)
.......... UsageCount::
........... ( ParentNode: UsageCount) (Spider: )(text: 153)
SpiderChildren(byRef inChildNodeList as object, _
ByVal RecursionLevel as Long)
Select Case spider.tag
Case <tag=Group>
'blah
Select Case Recursion
Case Is <2
'blah
recursion = recursion + 1
call SpiderChildren(SpiderChildren,Recursion)
recursion = recursion + 1
Case Is >=2
'blah
call SpiderChildren(SpiderChildren,Recursion)
End Select
Case
(...)
End Select
<Root> + -----<Group> + + + ---<Group> + + + ---<Group> +----<Group>
call SpiderChildren(SpiderChildren,Recursion,parentUUID)
Comment