Basic - RECUPERAR

   
Vista:

RECUPERAR

Publicado por DARIO (1 intervención) el 03/01/2009 21:12:54
Estoy buscando recuperar un programa en basic que se daño por estar guardada la cinta por muchos años. Alguien me puede ayudar?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:RECUPERAR

Publicado por marcelo montagna (5 intervenciones) el 17/05/2009 04:15:45
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 MARCELO_MONTAGNA@HOTMAIL.COM y lo busco
salu2 y suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar