Foros - Stratos

Programadores => General Programadores => Mensaje iniciado por: averbell en 03 de Julio de 2004, 08:17:19 PM

Título: (vb)leer Una Cadena De Bytes
Publicado por: averbell en 03 de Julio de 2004, 08:17:19 PM
 Como puedo leer una cadena de bytes seleccionada por mi? Grupos de 8 bytes o varios, se que se hace con un array de bytes, pero ni idea.
actualmente leo byte por byte.

Dim buffer as byte

open file for binary as #libre
do while not eof(libre)
get #libre, ,buffer
loop
  --------------------
  MA SOFTWARE
  --------------------
MA FACTU & MAHTTPSERVER

--------------------------------
SE BUSCAN BETATESTERS
---------------------------------
beltran_a@terra.es
Título: (vb)leer Una Cadena De Bytes
Publicado por: [EX3] en 15 de Julio de 2004, 01:26:17 AM
 No se si te he entendido bien pero weno:

Dim buffer() as byte 'Array dinamico

open file for binary as #libre
do while not eof(libre)
get #libre, ,buffer
loop

El array dinamico Buffer tomara las dimensiones del archivo, si el archivo contiene 48 bytes el array pasara a tener 48 elementos.

Salu2...
Título: (vb)leer Una Cadena De Bytes
Publicado por: averbell en 15 de Julio de 2004, 09:51:47 AM
 sige siendo lento, al final utilize una api de windows que abre ficheros al instante.
Título: (vb)leer Una Cadena De Bytes
Publicado por: [EX3] en 15 de Julio de 2004, 12:43:49 PM
 Lento?  :blink: Si te lo hace al instante y de una pasada:

Dim buffer() as byte 'Array dinamico

open file for binary as #libre
get #libre, ,buffer

A lo mejor te lie por ke se me olvido kitar el bucle innecesario del While, pero esto es tan rapido y mucho mas sencillo ke la funcion ke estas usando.

Salu2...