Editor de Texto en Visual Basic

Concepto y funcionamiento del código

Este programa en Visual Basic permite al usuario abrir, editar y guardar archivos de texto de manera sencilla mediante una interfaz gráfica. Utiliza el control OpenFileDialog para seleccionar un archivo de texto, carga su contenido en un cuadro de texto (TextBox) para su edición, y luego guarda los cambios directamente en el archivo original.

El flujo de funcionamiento es el siguiente:

Abrir archivo: El usuario selecciona un archivo de texto con extensión .txt u otro tipo mediante un diálogo de apertura. El programa lee todo el contenido del archivo y lo muestra en el cuadro de texto para su edición.

Guardar archivo: Una vez realizadas las modificaciones, el usuario puede guardar los cambios, que se escriben en el mismo archivo, sobrescribiendo el contenido anterior.

Limpiar contenido: El usuario también puede limpiar el cuadro de texto para comenzar desde cero.

Este enfoque facilita la manipulación básica de archivos de texto en aplicaciones Windows Forms, apoyándose en la biblioteca System.IO para la lectura y escritura de archivos, y ofrece una experiencia intuitiva para usuarios que requieren editar texto sin complicaciones.

CODIGO

Imports System.IO
Public Class Form1


    Dim currentFilePath As String = ""
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "Archivos de texto(*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        OpenFileDialog1.Title = "Seleccionar archivo de texto"

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            currentFilePath = OpenFileDialog1.FileName
            TextBox1.Text = File.ReadAllText(currentFilePath)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If currentFilePath <> "" Then
            File.WriteAllText(currentFilePath, TextBox1.Text)
            MessageBox.Show("Archvivo guardado correctamente.", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("Primero abre un archivo.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Clear()
    End Sub
End Class