12.07.2015 Views

Visual Basic 6.0 - Tecnun

Visual Basic 6.0 - Tecnun

Visual Basic 6.0 - Tecnun

SHOW MORE
SHOW LESS
  • No tags were found...

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

ESIISS: Aprenda <strong>Visual</strong> <strong>Basic</strong> <strong>6.0</strong> como si estuviera en Primero página 96de la variable en la posición determinada del fichero. Si se omite el número de registro se lee(escribe) a continuación del registro leído (escrito) anteriormente. Véase el siguiente ejemplo:FileNo=FreeFilesize=Len(unObjeto)Open filename for Random as #fileNo Len=sizeGet #fileNo, 3, sizeCon este ejemplo, se ha abierto el fichero filename de la misma forma que se realizó en elejemplo anterior, pero ahora, además se ha leído un registro de longitud size, y más en concreto, eltercer registro. Si se quisiera modificar el valor de este registro, no habría más que asignarle el valorque se quisiera, para a continuación introducirlo en el fichero mediante la sentencia siguiente:Put #fileNo, 3, size7.8 FICHEROS DE ACCESO BINARIOLa técnica a emplear es básicamente la misma que con los ficheros de acceso aleatorio, con lasalvedad de que en lugar de manejar registros, en los ficheros de acceso binario se trabaja con bytes.Véase el siguiente ejemplo:FileNo=FreeFileOpen filename for Binary as #fileNoGet #1, 4, datodato = 7Put #1, 4, datoClose #1En el anterior ejemplo se puede observar como primero se introduce en la variable dato elvalor del cuarto byte del fichero filename, para posteriormente asignarle el valor 7, e introducirlo denuevo en el cuarto byte de filename.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!