Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Archivos binarios

Estas en el tema de Archivos binarios en el foro de Visual Basic clásico en Foros del Web. Hola que tal foreros! Bueno voy al grano así no los aburro. El tema es el siguiente, yo tengo un archivo binario el cual es ...
  #1 (permalink)  
Antiguo 05/06/2016, 17:55
 
Fecha de Ingreso: octubre-2012
Mensajes: 29
Antigüedad: 11 años, 6 meses
Puntos: 0
Archivos binarios

Hola que tal foreros! Bueno voy al grano así no los aburro. El tema es el siguiente, yo tengo un archivo binario el cual es un Array de aproximadamente 3000x3000, en el cual se guardan varios datos, el tema es que ese archivo que contiene ese array, lo debo cargar muchas veces para sacar información, pero el problema es que demora mucho tiempo en cargar debido al tamaño. Lo que yo necesito, es cargar una sección de ese archivo, por ejemplo una sección de 100x100 y que me traiga toda la información asociada a esa sección del array, yo probé con varios métodos con el Seek, o con el Put asignándole una posición, pero no logro hacerlo funcionar, alguna idea de como se podría hacer? O algun ejemplo de como asignar esas posiciones con el Put o con Seek para así traer la información que necesito, y no toda?

Gracias de antemano!!
  #2 (permalink)  
Antiguo 06/06/2016, 13:24
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: Archivos binarios

Yo tengo un programilla que guarda y carga matrices y este es el modo en que las cargo en un tris.

Código vb:
Ver original
  1. ReDim Matriz(Maximo, Maximo) ' redimensionamos la matriz con su tamaño correcto o no se cargara bien
  2.  
  3.   NumFichero = FreeFile
  4.   Open FicheroMatriz For Binary Access Read Write Lock Read Write As #NumFichero
  5.     Get #NumFichero, 1, Matriz ' la cargamos de golpe
  6.  Close #NumFichero

Creo que sobra el lock pero lo puse así y así se quedó.

Por si te interesa añado el modo en que las guardo:

Código vb:
Ver original
  1. NumFichero = FreeFile
  2.   Open FicheroMatriz For Binary Access Read Write Lock Read Write As #NumFichero
  3.     Put #NumFichero, 1, Matriz
  4.   Close #NumFichero

Osea, lo mismo...

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Última edición por pkj; 06/06/2016 a las 13:32

Etiquetas: Ninguno
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:58.