Creador de sitemaps Curso de Programación Visual Basic

Lección:

Bibliotecas Adicionales


Ejercicio:

Creador de sitemaps 8


Objetivo:

Un "sitemap" es un archivo que los webmasters pueden utilizar para indicar a Google las páginas web en las que se encuentra su sitio, y conseguir un mejor posicionamiento en el buscador.

Debe crear un programa para mostrar en pantalla el contenido de un "sitemap" preliminar, tomado de la lista de archivos ".html" en el directorio actual, con frecuencia "semanal" y la fecha actual como fecha de "última modificación".


Código:

Imports System
Imports System.Collections.Generic
Imports System.IO
Class SitemapCreator
    Private Shared Sub Main()
        Dim ListHtml As List = GetHtml()
        CreateSiteMap(ListHtml, "weekly", DateTime.Now)
    End Sub

    Private Shared Sub CreateSiteMap(ByVal listHtml As List, ByVal frecuency As String, ByVal lastUpdated As DateTime)
        Try
            Dim writer As StreamWriter = New StreamWriter(File.Create("sitemap.xml"))
            writer.WriteLine("")
            writer.WriteLine("")

            For Each html As String In listHtml
                writer.WriteLine("")
                writer.WriteLine("" & html & "")
                writer.WriteLine("" & lastUpdated.ToShortDateString() & "")
                writer.WriteLine("" & frecuency & "")
                writer.WriteLine("")
            Next

            writer.WriteLine("")
            writer.Close()
        Catch
            Console.WriteLine("Error writing sitemap.")
        End Try
    End Sub

    Private Shared Function GetHtml() As List
        Dim ListHtml As List = New List()
        Dim files As String() = Directory.GetFiles(".")

        For Each file As String In files
            Dim extension As String = Path.GetExtension(file)

            Select Case extension
                Case ".html", ".htm"
                    ListHtml.Add(file.Substring(2))
            End Select
        Next

        Return ListHtml
    End Function
End Class