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