none
Codificar texto a html RRS feed

  • Pregunta

  • Hola estoy terminando mi primer proyecto y quisiera saber como puedo codificar a html el texto que reemplazo en RichTextBox1. digamos que al ejecutar el boton, reemplace y codifique el texto que escriba en RichTextBox1. a html.

    este es el codigo

    Public Class Form1

        Private Sub Reemplazar_Texto(ByVal RutaArchivo As String,
                    ByVal La_cadena As String,
                    ByVal Nueva_Cadena As String)

            Try
                If System.IO.File.Exists(RutaArchivo) = False Then
                    MessageBox.Show("!El archivo no existe!")

                End If

                Dim ContenidoArchivo As String = System.IO.File.ReadAllText(RutaArchivo)

                ContenidoArchivo = ContenidoArchivo.Replace(La_cadena, Nueva_Cadena)

                System.IO.File.WriteAllText(RutaArchivo, ContenidoArchivo)

                MessageBox.Show("¡El archivo ha sido modificado!")

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub


        Private Sub Command1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            If String.IsNullOrEmpty(TextBox1.Text) _
            OrElse String.IsNullOrEmpty(TextBox2.Text) _
            OrElse String.IsNullOrEmpty(TextBox3.Text) Then
                If String.IsNullOrEmpty(TextBox1.Text) _
            OrElse String.IsNullOrEmpty(TextBox4.Text) _
            OrElse String.IsNullOrEmpty(TextBox5.Text) Then
                    If String.IsNullOrEmpty(TextBox1.Text) _
                    OrElse String.IsNullOrEmpty(TextBox6.Text) _
                    OrElse String.IsNullOrEmpty(TextBox7.Text) Then
                        If String.IsNullOrEmpty(TextBox1.Text) _
                        OrElse String.IsNullOrEmpty(TextBox8.Text) _
                        OrElse String.IsNullOrEmpty(RichTextBox1.Text) Then

                            MessageBox.Show("¡Datos incompletos!")
                            Exit Sub
                        End If
                    End If
                End If
            End If

            Reemplazar_Texto(TextBox1.Text, TextBox2.Text, TextBox3.Text)
                    Reemplazar_Texto(TextBox1.Text, TextBox4.Text, TextBox5.Text)
                    Reemplazar_Texto(TextBox1.Text, TextBox6.Text, TextBox7.Text)
            Reemplazar_Texto(TextBox1.Text, TextBox8.Text, RichTextBox1.Text)
        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            Button1.Text = "Buscar y Reemplazar"
            Me.Text = "Buscar cadenas y frases en un archivo y reemplazarlas"
        End Sub


        Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        End Sub

        Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        End Sub

        Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        End Sub

        Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

        End Sub

        Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged

        End Sub

        Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

        End Sub

        Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged

        End Sub

        Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged

        End Sub

        Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

        End Sub
    End Class

    domingo, 18 de septiembre de 2016 19:20