2 mar. 2012

[WinForm] - Eliminar un codigo html de texto

 

Buen Día a todos! este es un pequeño y práctico ejercicio de como eliminar por ejemplo las etiquetas <b> y </b> que vienen a ser el relleno Negrita que hace algún tiempo ayude a un usuario solicitando esto y me pareció adecuado postearlo en el blog. Como podrán observar se hace un recorrido de toda la cadena :

Codigo VB.NET :

Dim nuevaCadena As String = ""
        Dim s as String = "<b>Programacion </b>.Net <b>Facil</b>, verdad <b>que </b>es <b>facil</b>? =)"
        Dim a As Char() = s.ToCharArray
        Dim cont As Integer = 0
 
        For i As Integer = 0 To Label1.Text.Length - 1
            If (a(i).ToString.Equals("<")) Then
                If (a(i + 1).ToString.Equals("/")) Then
                    If (a(i + 2).ToString.Equals("b")) Then
                        If (a(i + 3).ToString.Equals(">")) Then
                            cont = i + 4
                        End If
                    End If
                End If
                If (a(i + 1).ToString.Equals("b")) Then
                    If (a(i + 2).ToString.Equals(">")) Then
                        cont = i + 3
                    End If
                End If
            End If
            If (i >= cont) Then
                nuevaCadena = nuevaCadena & a(i).ToString
            End If
        Next
        MessageBox.show(nuevaCadena)

Original :
Programacion .Net Facil, verdad que es facil? =) :


<b>Programacion </b>.Net <b>Facil</b>, verdad <b>que </b>es <b>facil</b>? =)



Resultado :
Programacion .Net Facil,verdad que es facil? =)



Espero les haya sido de utilidad. Saludos!.

0 comentarios:

Publicar un comentario