Mega Code Archive

 

Categories / VB.Net / XML

 

XmlReader ReadElementContentAsObject

Imports System Imports System.IO Imports System.Xml Public Class Sample   Public Shared Sub Main()       Dim settings As New XmlReaderSettings()       settings.ValidationType = ValidationType.Schema       settings.Schemas.Add("urn:items", "item.xsd")       Dim reader As XmlReader = XmlReader.Create("item.xml", settings)            reader.ReadToFollowing("price")       Console.WriteLine(reader.ValueType)            Dim price As [Decimal] = CType(reader.ReadElementContentAsObject(), [Decimal])            price = [Decimal].Add(price, 2.5D)     End Sub End Class