TextArea. Seleccionar más de una palabra

Código:

Private fcorrecta As String = "El gallo canta todas las mañanas"

Private fentrada As String = "El perro ladra todas las mañanas"



Private acorrecta As String[]

Private aentrada As String[]

Private afalladas As String[]



Private indierroneas As New Integer[]



Public Sub Form_Open()



  Label1.Text = fcorrecta

  Label2.Text = fentrada

 

  acorrecta = Split(fcorrecta, " ")

  aentrada = Split(fentrada, " ")  

  afalladas = Comprueba()

  Mostrar()



End



Public Function Comprueba() As String[]

 

  Dim palabra As String

  Dim tacorrecta As String[]

  Dim indice As Integer

 

  tacorrecta = acorrecta

 

  For Each palabra In aentrada

    indice = tacorrecta.Find(palabra)

    If indice = -1 Then Continue

    'Añado el indice de la palabra que no existe en la frase correcta

    indierroneas.Add(indice)

    'Elimino la palabra del array temporal que contiene las palabras correctas

    tacorrecta.Remove(indice)

  Next

  Return tacorrecta

 

End



Public Sub Mostrar()

 

  Dim palabra As String

   

  TextArea1.Text = fentrada   

 

  For Each palabra In afalladas

    TextArea1.Select(String.InStr(fcorrecta, palabra) - 1, Len(palabra))

  Next

    

End

Código:

Private fcorrecta As String = "El gallo canta todas las mañanas"

Private fentrada As String = "El perro ladra todas las noche"





Private acorrecta As String[]

Private aentrada As String[]

Private afalladas As String[]



Private Const ENCABEZADO As String = "h4"



'Private indierroneas As New Integer[]



Public Sub Form_Open()



  Label1.Text = fcorrecta

  Label2.Text = fentrada

 

  acorrecta = Split(fcorrecta, " ")

  aentrada = Split(fentrada, " ")  

  afalladas = Comprueba()

  Mostrar()



End



Public Function Comprueba() As String[]

 

  Dim palabra As String

  Dim tacorrecta As String[]

  Dim indice As Integer

 

  tacorrecta = acorrecta

 

  For Each palabra In aentrada

    indice = tacorrecta.Find(palabra)

    If indice = -1 Then Continue

    'Añado el índice de la palabra que no existe en la frase correcta

    'indierroneas.Add(indice)

    'Elimino la palabra del array temporal que contiene las palabras correctas

    tacorrecta.Remove(indice)

  Next

  Return tacorrecta

 

End



Public Sub Mostrar()

 

  Dim fondo As String

  Dim palabra As String

    

   fondo = "#808000"

        

  TextLabel1.Text = "<" & ENCABEZADO & ">"

  TextLabel1.Alignment = Align.Center

 

  For Each palabra In Split(fcorrecta, " ")

    If afalladas.Find(palabra) <> -1 Then

      TextLabel1.Text &= "<span style=" & "background-color:" & fondo & ">" & palabra & "</span>" & " "

    Else

       TextLabel1.Text &= palabra & " "

    Endif

  Next

  TextLabel1.Text &= "</" & encabezado & ">"

    

End