Saludos a todos...
Recurro a este foro (una vez mas) ya que se me acabaron las ideas, el cerebro no me pare más!
Quede pegado trabajando con archivos de texto, voy al grano:
Para leer datos en un archivo de texto hay varios metodos, el que estoy usando actualmente es algo así:
Set fs = CreateObject("Scripting.FileSystemObject")
'lo abro para lectura...
Set f = fs.OpenTextFile(App.Path & "archivo.dat", 1)
'busco dentro del archivo de texto (con extensión .dat) hasta que
'llegue al fin de archivo
Do While f.AtEndOfLine <> True
'a una variable le asigno cada registro que lea
'dentro del archivo de texto
strPag = f.ReadLine
'y lo escribo en un listview
Me.lstRes.ListItems.Add , , strPag
Loop
Para escribir en el archivo es algo similar:
'lo abro para escritura
Set f = fs.OpenTextFile(App.Path & "archivo.dat", 8)
'escribo una linea nueva dentro del archivo de texto
strPag = f.Write("Prueba")
Ahora, mi duda está en...ya leo,escribo, pero ¿Cómo elimino una linea completa del archivo de texto?
Si tengo, por ejemplo:
Reg1
Reg2
Reg3
y quiero borrar la linea Reg2....?????
No le puedo asignar un valor en blanco, ej. strPag = " " porque me quedaria la linea, en blanco, pero quedaria y me interesa borrarla...
Cualquier sugerencia er bienvenida, ya que el cerebro no me da....
Gracias de antemanos..un saludo a todos
Marcadores