Hi Todd,
I don't know how it would behave with a 100MB file but here is the
method I use to get the data from a particular node of the tree
without having to construct the full tree.
Best wishes,
Marielle
...
------------------------------------------------------------------------
----------------
#
# Get Tag Content In XML tree
#
# -- @Description: Get the content of a tag, given a path in the
xml tree
# -- A tag tree has the following syntax:
node1:node2:node3:node4
# -- <node1>...<node2>...<node3>data</
node3>...</node2>...</node1>
# -- @Returns: Content part when <Tag( Params)?> __Content__</
Tag> (text string)
function getTagContent_XML pXMLtext, pTagTree
IF pXMLtext is empty THEN terminate("BUG x. An empty content was
given to parse. pXMLtext shouldn't be empty in function
_getTagContentXML.")
IF pTagTree is empty THEN terminate("BUG x. No Tag Tree was
specified. pTagTree shouldn't be empty in function _getTagContentXML.")
--------
set the itemdel to ":"
replace quote with empty in pTagTree -- This is to get rid of
quotes in case there is any
----------------------
repeat for each item tTag in pTagTree
put getTagContent_XML(pXMLtext, tTag) into pXMLtext
end repeat
return pXMLtext
end getTagContent_XML
...
function getTagContent pXMLtext, pTagName,
# -- @Requires: swapEOL() - not included here -- swaps end of
lines from cr to ¬ to allow for multiline matches with matchtext
# -- @Requires: stripInitialTabs() -- not included here
put swapEOL(pXMLtext, "remove") into pXMLtext
if matchtext(pXMLtext, "(?i)<" & pTagName & "[ ]?[^>]*>(.+?)</" &
pTagName & ">", tTagContent) is false then return empty
put swapEOL(tTagContent, "restore") into tTagContent
put stripInitialTabs(tTagContent) into pXMLtext
return pXMLtext
end getTagContent
.....
------------------------------------------------------------------------
--------
Marielle Lange (PhD), Psycholinguist
Alternative emails: [EMAIL PROTECTED],
Homepage
http://homepages.widged.com/mlange/
Easy access to lexical databases http://
lexicall.widged.com/
Supporting Education Technologists http://
revolution.widged.com/wiki/
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
