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
