Ejercicio
Texto a HTML
Objetivo
Crear una clase "TextToHTML", que debe ser capaz de convertir varios textos introducidos por el usuario en una secuencia HTML, como esta:
Hola
Soy yo
Ya he terminado
debería convertirse en
Hola
Soy yo
Ya he terminado
La clase debe contener:
Una matriz de cadenas
Un método "Add", para incluir una nueva cadena en él
Un método "Display", para mostrar su contenido en pantalla
Un método "ToString", para devolver una cadena que contiene todos los textos, separados por "n".
Cree también una clase auxiliar que contenga una función "Main", para ayudarle a probarla.
Código
Imports System
Class TextToHTML
Protected myHTML As String()
Protected maxLines As Integer = 1000
Private counter As Integer = 0
Public Sub New()
myHTML = New String(maxLines - 1) {}
End Sub
Public Sub Add(ByVal newSentence As String)
If counter < maxLines Then
myHTML(counter) = newSentence
counter += 1
End If
End Sub
Public Function ToString() As String
Dim allHTML As String = vbLf & vbLf
For i As Integer = 0 To counter - 1
allHTML += myHTML(i)
allHTML += vbLf
Next
allHTML += vbLf
allHTML += vbLf
Return allHTML
End Function
Public Sub Display()
Console.Write(ToString())
End Sub
End Class
Class TextTest
Private Shared Sub Main(ByVal args As String())
Dim example As TextToHTML = New TextToHTML()
example.Add("Hola")
example.Add("uno dos")
example.Add("tres cuatro")
example.Display()
End Sub
End Class