Sub Activity_Create(FirstTime As Boolean)
Dim xml As String
xml=File.ReadString(File.DirAssets,"getBenutzerShort.xml")
xml=xml.Replace("xmlns:xs","x")
xml=xml.Replace("xsi:","x")
xml=xml.Replace("xmlns","x")
Dim XOMBuilder1 As XOMBuilder
XOMBuilder1.Initialize("XOMBuilder1")
XOMBuilder1.BuildFromString(xml, "", Null)
End Sub
Sub XOMBuilder1_BuildDone(XOMDocument1 As XOMDocument, Tag As Object)
Dim RootElement As XOMElement
Dim xmlTables As XOMElements
If XOMDocument1.IsInitialized Then
RootElement=XOMDocument1.RootElement
xmlTables = RootElement.GetChildElementsByName("tables")
For i1 = 0 To xmlTables.Size - 1
Dim data As XOMElements
data=xmlTables.GetElement(i1).GetChildElements
Log(data.GetElement(i1))
For x=0 To data.Size-1
Dim data2 As XOMElements data2=data.GetElement(x).GetChildElements
Log(data2.GetElement(x))
Dim v As XOMElement
v=data2.GetElement(x)
Log(v.Value)
Next
Next
End If
End Sub