Visual Basic para Aplicaciones - AYUDA SOBRE COMO ABRIR UN FICHERO

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA SOBRE COMO ABRIR UN FICHERO

Publicado por LOBO (1 intervención) el 17/02/2003 09:41:47
Buenas

Necesito ayuda con la siguiente expresión de Basic
Mi intención es pasarla a Visual basic 6.0, pero tras pasarla no consigo que funcione igual y por tanto la salida del programa da resultados erróneos.
El problema esta con la apertura de archivos.

Lo que figura en basic es:

OPEN “R”,1,”QXY”,8:FIELD 1,4 AS T1$,4 AS T2$
FOR I=1 TO NNUD
LSET T1$=MKS$(XY(I,1)): LSET T2$=MKS$(XY(I,2))
PUT 1,I
NEXT I
CLOSE 1

Y lo que yo he colocado en Visual Basic 6.0 es:

OPEN “R” For Random as #1
OPEN “QXY” For Random as #8
Put #8, I , XY(I,1)
Put #8, , XY(I,1)
NEXT I
CLOSE #1
CLOSE #8

Si realmente he transcrito mal el codigo por favor estaría muy agradecido me dijerais donde esta el error, pues no logro dar con ello y solo me falta esto para terminar la trascripción.

Gracias de antemano

Un saludo
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