DJOtaKU
04 de Abril del 2003

Como borrar un registro de un fichero por VB utilizando integramente el VB 6.0.Gracias.

Theo
04 de Abril del 2003

Algo simple que te puede ser util...

1)
Podes escrbir desde el registro siguiente al anterior desde la posicion que deseas borrar
ej.
get#1, Reg1+1, Datos
put#1, Reg1, Datos
(pero cuidado que te quedaria los dos ultimos duplicados para eso necesitas un control numerico de registros o un flag por registro)

2)
Si usas el metodo anterior y el archivo no es grande podes sacar el ultimo registro asi...
dim Datos as String

open "archivo" for random as#1

'definis espacio
LongBytes = LOF(1) - LongRegistro
Datos = String(LongBytes, " ")

Get#1, 1, Datos
close

open "archivo" for output as#1 'abrir el archivo
Print#1, Datos
close

o la ultima parte podria ser despues del primer close
Kill "archivo"
open "archivo" for random as#1
put#1, 1, Datos
close

Listo....
Pero podes usar la imaginacion para mejorar la funcionalidad.... si no es grande el archivo anda bien...