all tasks

Task/XML-Input/BBC-BASIC/xml-input.bbc

@@ -0,0 +1,20 @@
+      INSTALL @lib$+"XMLLIB"
+      xmlfile$ = "C:\students.xml"
+      PROC_initXML(xmlobj{}, xmlfile$)
+
+      level% = FN_skipTo(xmlobj{}, "Students", 0)
+      IF level%=0 ERROR 100, "Students not found"
+
+      REPEAT
+        IF FN_isTag(xmlobj{}) THEN
+          tag$ = FN_nextToken(xmlobj{})
+          IF LEFT$(tag$, 8) = "<Student" THEN
+            np% = INSTR(tag$, "Name")
+            IF np% THEN PRINT FN_repEnt(EVAL(MID$(tag$, np%+5)))
+          ENDIF
+        ELSE
+          dummy$ = FN_nextToken(xmlobj{})
+        ENDIF
+      UNTIL FN_getLevel(xmlobj{}) < level%
+
+      PROC_exitXML(xmlobj{})