Ejercicio
Conversor de TXT a HTML
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