Trucos 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