Conversor de TXT a HTML Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Conversor de TXT a HTML 8


Objetivo:

Cree un "convertidor de texto a HTML", que leerá un archivo de texto de origen y creará un archivo HTML a partir de su contenido. Por ejemplo, si el archivo contiene:

Hola
Soy yo
Ya he terminado

El nombre del archivo de destino debe ser el mismo que el archivo de origen, pero con la extensión ".html" (que reemplazará a la extensión ".txt" original, si existe). El "título" en el "encabezado" debe tomarse del nombre del archivo.


Código:

Imports System
Imports System.IO
Namespace TXTtoHTML
    Class Program
        Private Shared Sub Main()
            Console.Write("Enter name of file: ")
            Dim nameFileTxt As String = Console.ReadLine()
            Dim nameFileHtml As String = nameFileTxt.Substring(0, nameFileTxt.Length - 4)

            If File.Exists(nameFileTxt) Then
                Dim myfileTxt As StreamReader
                Dim myfileHtml As StreamWriter
                myfileTxt = File.OpenText(nameFileTxt)
                myfileHtml = File.CreateText(nameFileHtml & ".html")
                Dim line As String
                myfileHtml.WriteLine("")
                myfileHtml.WriteLine("")
                myfileHtml.WriteLine("" & nameFileHtml & "")
                myfileHtml.WriteLine("")
                myfileHtml.WriteLine("")

                Do
                    line = myfileTxt.ReadLine()
                    If line IsNot Nothing Then myfileHtml.WriteLine("" & line & "")
                Loop While line IsNot Nothing

                myfileHtml.WriteLine("")
                myfileHtml.WriteLine("")
                myfileTxt.Close()
                myfileHtml.Close()
            End If
        End Sub
    End Class
End Namespace