En cualquier lenguaje abri el archivo de a un digito
si el programa esta grabado en texto podes recuperar algo, si esta codificado mas dificil.
Algo simple en dos qbasic supongo que es un programa viejo seria
ON ERROR GOSUB NOLEE
OPEN "R", #2, "C:RECUPERE.TXT",1
FIELD #2,1 AS RECU$
OPEN "R", #1, "D:PROGRAMA.TXT",1
FIELD #1,1 AS UNO$
REG=LOF(1)
FOR ESTOY = 1 TO REG
GET #1,ESTOY
UNO2$=UNO$
LSET RECU$ = UNO2$
PUT #2,ESTOY
NEXT ESTOY
CLOSE
END
NOLEE:
UNO$="X"
RESUME NEXT
En teoria cuando llegue al GET #1,ESTOY si da error tendria que saltar a NOLEE:
y entonces en UNO$ le asigna "X" y luego regresa a la linea siguiente por el comando
RESUME NEXT que le dice que regresa una linea debajo del error qie seria
LSET donde graba.
No lo probe pero deveria de funcionar , , ya una vez arme este programa
Cualquier cosa
[email protected] y lo busco
salu2 y suerte.
