38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
MAIN
|
|
DEFINE i, l INTEGER
|
|
DEFINE r om.XmlReader
|
|
DEFINE e String
|
|
DEFINE a om.SaxAttributes
|
|
LET r = om.XmlReader.createFileReader("naceTokenstring.xml")
|
|
LET l = 0
|
|
LET e = r.read()
|
|
WHILE e IS NOT NULL
|
|
CASE e
|
|
WHEN "StartDocument"
|
|
DISPLAY "StartDocument:"
|
|
WHEN "StartElement"
|
|
LET l=l+1
|
|
DISPLAY l SPACES, "StartElement:", r.getTagName()
|
|
LET a = r.getAttributes()
|
|
FOR i=1 to a.getLength()
|
|
DISPLAY l SPACES," ",
|
|
a.getName(i)," = ",
|
|
a.getValueByIndex(i)
|
|
END FOR
|
|
WHEN "Characters"
|
|
# IF r.getTagName() = "valor" then
|
|
DISPLAY l SPACES, " Characters:'",r.getCharacters(),"'"
|
|
# END if
|
|
WHEN "SkippedEntity"
|
|
DISPLAY "Entity:'",r.skippedEntity(),"'"
|
|
WHEN "EndElement"
|
|
DISPLAY l SPACES, "EndElement:", r.getTagName()
|
|
LET l=l-1
|
|
WHEN "EndDocument"
|
|
DISPLAY "EndDocument:"
|
|
OTHERWISE
|
|
DISPLAY "Invalid event: ",e
|
|
END CASE
|
|
LET e=r.read()
|
|
END WHILE
|
|
END MAIN |