Hace unos dias estuve investigando acerca de como hacer para borrar una linea de texto de un archivo txt, pero sin resultado alguno por internet. Leyendo algunos textos llegué a una solución eficiente de esto. Pero aparte de ello me llamó la atención que por internet hubo personas que tenian el mismo problema. Por ello, dejo el código.
Este es el código para eliminar la ultima linea
Código:
Este otro elimina una linea especifica con un enteroPublic Sub BorrarUltimaLinea(ByRef RutaArchivo As String) Dim ListaLineas As New List(Of String) ListaLineas.AddRange(System.IO.File.ReadAllLines(RutaArchivo)) ListaLineas.RemoveAt(ListaLineas.Count - 1) System.IO.File.WriteAllLines(RutaArchivo, ListaLineas.ToArray) End Sub
Código:
Estos códigos tambien funcionan para manipular archivos xml. Pero para ello tener en cuenta la secuencia de sus nodos.Public Sub BorrarLineaEspecifica(ByRef RutaArchivo As String, ByVal Linea As Integer) Dim ListaLineas As New List(Of String) ListaLineas.AddRange(System.IO.File.ReadAllLines(RutaArchivo)) If Linea >= ListaLineas.Count Then Exit Sub ListaLineas.RemoveAt(Linea) System.IO.File.WriteAllLines(RutaArchivo, ListaLineas.ToArray) End Sub
Espero ayudar a algunos miembros de este foro con este aporte. Hasta la próxima

RealTMegalix