Hola, estoy intentando leer un archivo binario, que puede tener la estructura de mas abajo por ejemplo:
<?:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" />
0&²uŽfϦÙ.$.5.D.e. .c.o.l.o.r.e.s. .s.o.n. .l.a.s. .f.l.o.r.e.s…0&²u.ŽfϦÙ.$.5.g.\.d

Mi idea es que lea la cadena: D.e. .c.o.l.o.r.e.s. .s.o.n. .l.a.s. .f.l.o.r.e.s

Para eso se que la cadena empieza en el bite 16 por ejemplo y siga leyendo hasta que encuentre los tres bites nulos después de la “S” de flores

Abro el archivo binario de esta forma:

Open "c:\ruta\archivo.ext" For Binary As #1
Cadena=string(chr(0),25)
Get #1, 16, Cadena
Close #1

Pero no me funciona. En este caso puse una cadena de 25 porque es la cantidad que tiene, pero puede variar por eso quiero que lea hasta lo bites nulos indicados

Haciendo otras pruebas la variable Cadena se carga pero con los bites nulos que estan entre letra y letra

Alguien me podria indicar como hacer esto, leer la cadena y quitar los bites nulos de ella

Un saludo y muchas gracias

Puedes reemplazar caracteres en un string con la función Replace, por ejemplo

Cadena = Replace(Cadena,chr(1),"")

Para determinar el final de la cadena, lo único que se me ocurre es que primero cargues la cadena completa desde la posición 16 y luego la cortes con un MID y uses un InStr para determinar donde estan los 3 caracteres nulos.

Cadena = Mid(cadena,1,Instr(Cadena,chr(1) & chr(1) & chr(1))-1)

Puedes mesclar todo en una sola función

Cadena = Replace(Mid(cadena,1,Instr(Cadena,chr(1) & chr(1) & chr(1))-1),chr(1),"")

Muchas gracias Garfield. Sin tu ayuda no lo habria conseguido

Un saludo