Texto a HTML Curso de Programación Visual Basic

Lección:

Más sobre Clases


Ejercicio:

Texto a HTML 8


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