none
Cómo borrar una línea de un archivo de texto? RRS feed

  • Pregunta

  • Hola, tengo este código:

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            My.Computer.FileSystem.DeleteDirectory(Environment.GetEnvironmentVariable("USERPROFILE") & "\3DSPC\Games\" & ListBox1.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)
            ListBox1.Items.Remove(ListBox1.Text)
            ListBox1.SelectedIndex = 0
        End Sub

    y un archivo de texto con este texto, su nombre es customtitles.txt:

    New Super Mario Bros 2 EUR 3DS Multi-Spa Decrypted - Citra - Emulador

    como borro la línea del nombre del juego en el archivo?

    ayuda!



    jueves, 21 de septiembre de 2017 0:30

Respuestas

  • Si lo que quieres hacer es guardar el contenido del listbox una vez eliminada la línea lo que tienes que hacer es

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.FileSystem.DeleteDirectory(Environment.GetEnvironmentVariable("USERPROFILE") & "\3DSPC\Games\" & ListBox1.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)
        ListBox1.Items.Remove(ListBox1.Text)
        ListBox1.SelectedIndex = 0
    
        GrabarListbox()
    End Sub
    
    Private Sub GrabarListBox()
        Dim rutaFichero as String 
        Dim i as Integer 
    
        rutaFichero = Path.Combine(Application.StartupPath, "Fichero.txt") ' Aquí pondrás el nombre del fichero
        Dim fichero As New IO.StreamWriter(rutaFichero) 
        For i = 0 To ListBox1.Items.Count - 1 
            fichero.WriteLine(ListBox1.Items(i)) 
        Next 
        fichero.Close() 
    End Sub


    Saludos, Javier J

    jueves, 21 de septiembre de 2017 6:44

Todas las respuestas

  • Supongamos que en el TextBox1.Text colocas el string a buscar en al cadena ej:

        Dim a As String = " Archivo de programa Directorio nombre SuperMario Bross con extención Bak"
            Dim b As Integer = a.IndexOf(TextBox1.Text.Trim(), StringComparison.OrdinalIgnoreCase)
            a = a.Remove(b, (TextBox1.Text.Length))
            MsgBox(a)
     En el text = "SuperMario Bross"  resultado : "Archivo de programa Directorio nombre con extención Bak"

    Saludos


    • Editado Marcelo PF jueves, 21 de septiembre de 2017 3:57
    jueves, 21 de septiembre de 2017 1:27
  • Si lo que quieres hacer es guardar el contenido del listbox una vez eliminada la línea lo que tienes que hacer es

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.FileSystem.DeleteDirectory(Environment.GetEnvironmentVariable("USERPROFILE") & "\3DSPC\Games\" & ListBox1.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)
        ListBox1.Items.Remove(ListBox1.Text)
        ListBox1.SelectedIndex = 0
    
        GrabarListbox()
    End Sub
    
    Private Sub GrabarListBox()
        Dim rutaFichero as String 
        Dim i as Integer 
    
        rutaFichero = Path.Combine(Application.StartupPath, "Fichero.txt") ' Aquí pondrás el nombre del fichero
        Dim fichero As New IO.StreamWriter(rutaFichero) 
        For i = 0 To ListBox1.Items.Count - 1 
            fichero.WriteLine(ListBox1.Items(i)) 
        Next 
        fichero.Close() 
    End Sub


    Saludos, Javier J

    jueves, 21 de septiembre de 2017 6:44