¿Borrar primera línea de un archivo de texto?

International Español
1

Hola, estoy haciendo una pequeña aplicación con Xojo Desktop.
Creé un botón, un label y un textfield. Como código del botón puse:

//Abrir archivo y poner la ruta en el label
var f as FolderItem = SpecialFolder.Documents.child(“claves.txt”)
lblArchivo.Text = f.NativePath
if f <> nil and f.Exists then
var tis as TextInputStream = TextInputStream.Open(f)
txtLeido.Text = tis.ReadLine
end if

Con esto, puedo leer la primera línea de un archivo de texto. Ahora, me gustaría borrar del archivo la línea que se ha leído, es decir, la primera línea del documento. ¿Como puedo hacerlo?

Saludos y gracias de antemano.

1 Like
2

¡Bienvenido Rubio! La forma más fácil de lograr esto es seguir su declaración de ReadLine con una llamada a readAll y luego simplemente escribirla de nuevo en el archivo.

Dim data as String = tis.ReadAll
Tis.Close

Dim tos as TextOutputStream = TextOutputStream.Create(f)
tos.write data
Tos.close
1 Like