elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Archivos Binarios
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Archivos Binarios  (Leído 2,059 veces)
David Vans

Desconectado Desconectado

Mensajes: 193


Ver Perfil
Archivos Binarios
« en: 13 Octubre 2006, 17:39 pm »

HOla tengo un problemilla queiro coger un archvio y partirlo en varios trozos el problema que tengo que si el archvio es grande no entra el dato en un avriable yo uso eso
Código:
Public Function DatosBianarios(Rut As String, Cachos As Integer)
Dim Datos As String, bytes As Double, BytesParte As Double
Dim i, e As Integer, BytesUnidos As Double, datos2 As String
BytesUnidos = 1
    Open Rut For Binary As #1
       Do While Not EOF(1)
     On Error Resume Next
            Input #1, datos2
           Datos = Datos & datos2 & vbCrLf
           DoEvents
         Loop
        Close #1

    Close #1
    bytes = Len(Datos)
    BytesParte = bytes / Cachos
    For i = 0 To Cachos - 1
        Open "c:\File\file" & e For Binary As #1
        Dim secu As String
        secu = Mid(Datos, BytesUnidos, BytesParte)
            Put #1, , secu
        Close #1
        BytesUnidos = BytesUnidos + BytesParte
        e = e + 1
    Next i
    DatosBianrios = "Todo Correcto"
End Function

el probela surge cundo leeo el archivo tarda muchisimo y aveces no termina de leerlo

aveces uso esto
Código:
 
Datos = Space(LOF(1))
     Get #1, , Datos
pero si la varible es muy grande por ejmplo 600 mb no entra en la varible dato
alguna idea porfa


En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Archivos Binarios
« Respuesta #1 en: 13 Octubre 2006, 20:57 pm »

ya intentaste usar un Richt text box a ver si en ese si te carga el archivo, usa sus metodos para abrir y guardar.


En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
David Vans

Desconectado Desconectado

Mensajes: 193


Ver Perfil
Re: Archivos Binarios
« Respuesta #2 en: 13 Octubre 2006, 23:03 pm »

si lo probe tarda mucho en cargarse y creo que el richttxt box no soprta tanto tamaño voy a prbar si no recurdo mal es
Richt.FIlename="File"
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Archivos Binarios
« Respuesta #3 en: 14 Octubre 2006, 01:16 am »

Para que no se cuelgue la aplicacion tenes que poner DoEvents adentro de los bucles.

Saludos.-
En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Archivos Binarios
« Respuesta #4 en: 14 Octubre 2006, 19:10 pm »

El usar DoEvents en los bucles no resuelve el problema, la aplicación de todas maneras se colgaria. Recuerden que DoEvents solo alterna el control del entorno del sistema operativo
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
Nymphetaminito

Desconectado Desconectado

Mensajes: 28


Ver Perfil WWW
Re: Archivos Binarios
« Respuesta #5 en: 14 Octubre 2006, 19:32 pm »

Alguien sabe como abrir un archivo de 500 mb sin desbordamiento
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿que diferencia ahi entre ficheros binarios y ficheros binarios con estructura?
Windows
Anonymous250 0 1,985 Último mensaje 10 Noviembre 2011, 13:37 pm
por Anonymous250
archivos binarios
Programación C/C++
marcico 0 1,455 Último mensaje 26 Julio 2012, 14:14 pm
por marcico
[?] Archivos Binarios
Programación C/C++
MeCraniDOS 3 2,762 Último mensaje 20 Octubre 2013, 15:05 pm
por rir3760
Duda LECTURA ARCHIVOS BINARIOS
Programación C/C++
Omar_2013 6 2,306 Último mensaje 11 Mayo 2014, 20:28 pm
por Omar_2013
Cómo detectar vulnerabilidades en archivos binarios con BinScope
Noticias
r32 0 1,662 Último mensaje 12 Diciembre 2014, 03:36 am
por r32
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines