XML / XSL

Public Class WebSite
    Private _Id As String
    Public Property Id() As String
        Get
            Return (_Id)
        End Get
        Set(ByVal value As String)
            _Id = value
        End Set
    End Property
    Private _Link As String
    Public Property Link() As String
        Get
            Return (_Link)
        End Get
        Set(ByVal value As String)
            _Link = value
        End Set
    End Property

    Private _Picture As String
    Public Property Picture() As String
        Get
            Return (_Picture)
        End Get
        Set(ByVal value As String)
            _Picture = value
        End Set
    End Property

    Private _ModifiedOn As String
    Public Property ModifiedOn() As String
        Get
            Return (_ModifiedOn)
        End Get
        Set(ByVal value As String)
            _ModifiedOn = value
        End Set
    End Property

    Public Sub New(ByVal xElement As XElement)
        Id = xElement.Attribute("Id").Value
        Link = xElement.Element("Link").Value
        Picture = xElement.Element("Picture").Value
        ModifiedOn = xElement.Element("ModifiedOn").Value
    End Sub
    Private _xElement As XElement
    Public Property xElement() As XElement
        Get
            Return New XElement("Website", New XAttribute("Id", Id), New XElement("Link", Link), New XElement("Picture", Picture), New XElement("ModifiedOn", ModifiedOn))

        End Get
        Set(ByVal value As XElement)
            _xElement = value 
        End Set
    End Property

Public Class Portfolio
    Inherits List(Of WebSite)


    Public Sub UpdateWebsite(ByVal xmlFile As String, ByVal WebId As String, ByVal WebLink As String, ByVal WebPic As String, ByVal WebMod As String)
        Dim doc As XDocument = XDocument.Load(xmlFile)
        Dim query = From xElem In doc.Descendants("Website") _
                    Where xElem.@Id = WebId _
        Select New WebSite(xElem)


        With query.SingleOrDefault
            .Id = WebId
            .Link = WebLink
            .Picture = WebPic
            .ModifiedOn = WebMod
        End With

        Me.Clear()
        AddRange(query)


        Save(xmlFile)
            
    End Sub


    Public Sub Save(ByVal xmlFile As String)

        Dim xml As New XElement("Portfolio", From p In Me _
            Select p.xElement)

        xml.Save(xmlFile)
    End Sub

End Class

<?xml version="1.0" encoding="utf-8"?>
<Portfolio>
  <Website Id="1">
    <Link>Test Link</Link>
    <Picture>Test Image</Picture>
    <ModifiedOn>Test Date</ModifiedOn>
  </Website>
</Portfolio>

<?xml version="1.0" encoding="utf-8"?><br />
<mirror path="C:\folder"><br />
	<filter sub="1">*.mp3</filter><br />
	<filter sub="1">*.wav</filter><br />
	<filter sub="0">*.ogg</filter><br />
	<filter sub="1">*.mp4</filter><br />
	<filter sub="0">*.wmv</filter><br />
</mirror>