XML Reading

Question

Hi I was wondering if there are any experts on xml here who could send me a function that can jump to a certain element by name then read either the element's string or one of the attributes values. Attached is the xml file that I need to read onto text boxes on a form. --Start Config.xml C:\xboxdash.xb Xbo 192.168.1.100 255.255.255.0 192.168.0.1 192.168.0.1 192.168.0.7 xbox xbox 21 2 Yes Welcome to XBOX FTP Server www.xbox-scene.com/xbox1data/xbox-scene.xml www.xbins.org/xbins.xml C:\xboxdash.xbe C:\xboxdash.xbe 90 90 True False 192.168.1.1 1 My Xbox RuLeZ 0 True False Launch DVD E:\Games F:\Games E:\HDDLoader F:\HDDLoader E:\Apps F:\Apps C:\ MS Dashboard Evolution X Off Settings Stop FTP Start FTP Reset FTP Restart Network Close DVD Tray Open DVD Tray Format F Drive Format G Drive Format X Drive Format Y Drive Format Z Drive Skins File Explorer Reboot Shutdown --End Config.xml

fatimam · Answer

Hi, Here is some code that can help you: Sub testing() Dim textReader As XmlTextReader = New XmlTextReader("test.xml") While textReader.Read() Dim nType As XmlNodeType = textReader.NodeType ' if node type is an element If nType = XmlNodeType.Element Then Console.Write(textReader.Name) 'This finds the node Item If RTrim(textReader.Name) = "Item" Then While (textReader.MoveToNextAttribute()) ' Read attributes of Item If textReader.IsEmptyElement = True Then textReader.Skip() Else 'Writes it to the console Console.Wirte(textReader.Name + "=" + Replace(textReader.Value.ToString(), Chr(10), " ")) End If End While End If End If ' if node type is an entity If nType = XmlNodeType.Entity Then Console.WriteLine("Entity:" + textReader.Name.ToString()) MsgBox("here") End If ' if node type is a Process Instruction If nType = XmlNodeType.Entity Then Console.WriteLine("Entity:" + textReader.Name.ToString()) MsgBox("here") End If ' if node type a document If nType = XmlNodeType.DocumentType Then Console.WriteLine("Document:" + textReader.Name.ToString()) End If ' if node type is white space If nType = XmlNodeType.Whitespace Then Console.WriteLine("WhiteSpace:" + textReader.Name.ToString()) End If End While XTWriter.WriteEndElement() XTWriter.Close() End End Sub

XML Reading

marqs

Mahesh Chand