Truco de Visual Basic.NET - VB.Net. Crear XML para SiteMaps de Google
La siguiente función crea un fichero con formato XML pasándole un arraylist (que contiene el todas las urls que deseamos incluir en el fichero XML), la fecha, la prioridad y la frecuencia para construir el fichero XML para google.
#Region "GenerateXML"
Public Shared Function GenerateXML(ByVal Arr As ArrayList, ByVal fecha As String, ByVal prioridad As String, ByVal frecuencia As String) As Boolean
Dim sb As New System.Text.StringBuilder
Dim mywriter As System.Xml.XmlTextWriter
Dim i As Int32 = 0
mywriter = New System.Xml.XmlTextWriter(Application.StartupPath & "\test.xml", System.Text.Encoding.UTF8)
With mywriter
.Indentation = 4
.IndentChar = " "
.Formatting = .Indentation
.WriteStartDocument()
.WriteStartElement("urlset")
.WriteAttributeString("xmlns", "http://www.google.com/schemas/sitemap/0.84")
While i < Arr.Count
' .WriteStartElement("url")
.WriteStartElement("url")
.WriteElementString("loc", CType(Arr(i), Url).url.ToString)
.WriteElementString("lastmod", TimeZone.CurrentTimeZone.ToUniversalTime(fecha).ToString("s") + "+00:00")
.WriteElementString("changefreq", frecuencia)
.WriteElementString("priority", prioridad)
.WriteEndElement()
i += 1
End While
'.WriteEndElement()
.WriteEndDocument()
End With
If Not mywriter Is Nothing Then
mywriter.Flush()
mywriter.Close()
End If
End Function
#End Region
Pon el truco en tus favoritos