Programación General > Visual Basic 6.0 e inferiores

 Abrir Archivo Desde Vb6 Pero No Txt.....

<< < (2/2)

posman:
checate este programita

rapidshare.com/files/80990954/Project1.zip.html

hamdycam:
lo he probado y tampoco es muy rapido, pero lo weno es que  te va enseñando lo que carga ya en hex, no como el mio que te lo enseña al final del todo y mientras te quedas como un lelo viendo par ala pantalla jiji. solo me flata probar lo del richtextbox y ya contare algo. slau2 fieras y como siempre gracias

hamdycam:
al final la opcion richtextbox es la mas adecuadaaaaa jijij, y muxas gracias.

es decir, la carga es al instante del click, si es verdad qu lo hace en char pero esto se soluciona muy rapido con una funcion hex2ascii jijiji. aqui como lo he dejado, y deciros que va como un tiro, sobre todo porque uso archivos de 7000 bytes y esto se enredaba como unos 10 segundos, ahora solo el tiempo del click.

e aqui el code:

esto en el boton de arranque:


--- Citar ---RichTextBox1.LoadFile txtArchivo.Text


txtHex.Text = Ascii2Hex(RichTextBox1.Text)
--- Fin de la cita ---

esto es la funcion:


--- Citar ---Public Function Ascii2Hex(sAscii As String) As String
    Dim nCChar As Integer
    Dim sHex As String
   
    For nCChar = 1 To Len(sAscii)
        sHex = Hex$(Asc(Mid$(sAscii, nCChar, 1)))
        Ascii2Hex = Ascii2Hex & CStr(IIf(Len(sHex) = 1, "0" & sHex, sHex))
    Next
End Function
--- Fin de la cita ---


salu2 y wenos dias, ahora el progrma va lo rapido que deveria.


a ver si tengo un rato y os expongo aqui unas dudas que tengo trabajando con bignums, tengo muxos modulos creados pero me falla la velocidad, creo que seria interesante implementarlos en una dll pero agradecere ayuda para mejorar su velocidad. salu2 fierassssss

Navegación

[0] Índice de Mensajes

[*] Página Anterior