[Source] Visor Hexadecimal <-- Me ayudo a comprender cosas en vb6

[BlackZeroX]

Bueno este es un Soruce de un codigo fuente apa aquellos que deceen ver el Hexadecimal un X archivo

NO CARGA ARCHIVOS Mayores alrededor de  200kb's  jajaja

Codigo Fuente Visor Hexadecimal <Descargar>

Con una simple modificacion en donde se obtiene el contenido del archivo, especificarle  desle desde que Byte abrirlo y ya les soportara a abrir archivos de kb megas gigas o TB (si es que hay  ¬¬ ja) aun que en realidad cargarian un Sector (Pedazo) por asi desirlo de ese archivo en una variable quedando algo asi como en este Visor Hexadecimal creado al 100% poor un servidor (sin tomar codigo del que pongo y me sivio para entender el funcionamento del Hexadecimal en vb6)

P.D.: indicarle tambien el byte en donde se cerrara

SemiEjemplo:

Código (vb) [Seleccionar] Expandir


    Open fname For Binary As #fnum
        num_bytes = LOF(fnum)
            ReDim bytes(wed To wsd)
        Get #fnum, wed, bytes
    Close fnum


Un Visor Byte-Hexadecimal-Ascii de archivos en VB6 como ejemplo (Cuando encuentre el codigo fuente en mi PC lo posteo aca ok)

<Descargar>

<Como abrir Otro Archivo en el Programa?¿>  http://infra.110mb.com/VB/Visor_Hexadecimal/temp_visorHex.GIF



Un Saludo

[achernar_]

Esto:

Código (vb) [Seleccionar] Expandir


    Open fname For Binary As #fnum
        num_bytes = LOF(fnum)
            ReDim bytes(wed To wsd)
        Get #fnum, wed, bytes
    Close fnum


No tendira que ser asi?

Código (vb) [Seleccionar] Expandir


    fnum = freefile
    Open fname For Binary As #fnum
        num_bytes = LOF(fnum)
            ReDim bytes(1 To num_bytes)
        Get #fnum, num_bytes, bytes
    Close fnum


y para verlos en hex y en ascii seria (muy basicamente) asi:
(tendrias que no convertir a ascii a los caracteres como el retorno de carro, el avance de linea, tab y quizas otros que van a alterar la forma en que se muestren los demas caracteres)

Código (vb) [Seleccionar] Expandir

text1.text= vbnullstring
text2.text = vbnullstring
for i = 1 to num_bytes
   text1.text = text1.text + hex$(bytes(i))
   text2.text = text2.text + chr$(bytes(i))
next i


[BlackZeroX]

Esto:

Código (vb) [Seleccionar] Expandir


    Open fname For Binary As #fnum
        num_bytes = LOF(fnum)
            ReDim bytes(wed To wsd)
        Get #fnum, wed, bytes
    Close fnum


No tendira que ser asi?

Código (vb) [Seleccionar] Expandir


    fnum = freefile
    Open fname For Binary As #fnum
        num_bytes = LOF(fnum)
            ReDim bytes(1 To num_bytes)
        Get #fnum, num_bytes, bytes
    Close fnum


y para verlos en hex y en ascii seria (muy basicamente) asi:
(tendrias que no convertir a ascii a los caracteres como el retorno de carro, el avance de linea, tab y quizas otros que van a alterar la forma en que se muestren los demas caracteres)

Código (vb) [Seleccionar] Expandir

text1.text= vbnullstring
text2.text = vbnullstring
for i = 1 to num_bytes
   text1.text = text1.text + hex$(bytes(i))
   text2.text = text2.text + chr$(bytes(i))
next i


mmm el codigo no es mio ademas es cuando no sabia nada de nada practicamente este fue uno de los primeros codigos fuente que me baje y entendi.

ahora lo de freefile si lo se esta incompleto jamas dije que era el codigo esacto solo es un ejemplo ¬¬ para poder cargar los tramos del archivo X

lo de las funciones Hex() y Chr() si tambien me las se pero si a alguien no les convences entonces puede ver como convertir de byte a Hex de de Hex a Char o biseversa esa es la funcion de ese codigo fuente

P.D.: siempre ponte en mente como es que funcionan las funciones y como podrias hacer la tuyas asi aunque sean repetidas te ayudaran a comprender mas aya de lo avitual y posiblemente te facilite la vida en algun otro lugar donde no existan estas Por algo puse esto...¡!

Suerte