Descarga ese archivo de texto leelo y muestralo ¬¬ asi de facil

Usa el api UrlDownloading o algo asi leelo con el metodo que desees y muestralo

busca e imaginate tu mismo como lo arias es cosa facil ¬¬

si lo quieres plasmar en un texbox

dim ff
ff = freefile
open "Ruta del archivo" for binary as #f
    get #ff,,Datos
close #ff
textbox.text=datos
 
para reproducir los archivos de audio midi usa el codigo de arriba ok (el de este post no el de Topyr o el Link de sccaann143)
 

el error esta en el rango a Mostrar (en el Do While no toques el de a Cargar) los bytes eso te lo dejo je xP

Arregla el Codigo y te servira mejor ok

[colode=red]Tiene un Simple Error je lo solucionaria pero ya no tengo tiempo Xao[/color]

Pon en un formulario:
Un textvox con multiline=true
un commandbutton1
dos lebels con sus nombres originales

Option Explicit
 
Dim Bytes() As Byte
Const ByteInicial = 10
Const BytesACargar = 1000
Dim CantCargados As Integer
 
Private Sub Command1_Click()
    Dim ff As Integer
    Dim TamañoArchivo As Double
    Dim AuxLine As String
    Dim i As Integer, j As Integer
    Dim line1 As String, line2 As String
    Dim Datos As String
    Dim unk As String
    Dim ch As String
 
    CantCargados = ByteInicial + BytesACargar - 1
 
    ff = FreeFile
    Open InputBox("", "", "D:\miguel estio y demas.txt") For Binary As #ff
        TamañoArchivo = LOF(ff)
        ReDim Bytes(ByteInicial To CantCargados)
        Get #ff, ByteInicial, Bytes
    Close
    Label1 = "Se han cargado: " & UBound(Bytes) & " bytes de un total de " & TamañoArchivo & " Bytes"
 
    unk = Chr$(191)
    i = ByteInicial
    Datos = ""
    Do While i <= CantCargados
        line1 = Format$(i, "@@@@@@: ")
        line2 = vbTab
        For j = 0 To 7
            If i + j > BytesACargar Then
                line1 = line1 & "   "
            Else
                ch = Bytes(i + j)
                line1 = line1 & Format$(Hex$(ch), "@@ ")
                If ch >= 32 Then
                    line2 = line2 & Chr$(ch)
                Else
                    line2 = line2 & unk
                End If
            End If
        Next j
        'Text1 = Text1 & line1 & line2 & vbCrLf
        Datos = Datos & line1 & line2 & vbCrLf
        i = i + 8
        DoEvents
    Loop
    Text1 = Datos
    Label2 = TamañoArchivo & " Bytes;" & vbTab & TamañoArchivo / 1024 & " Kb;" & vbTab & TamañoArchivo / 1024 / 1024 & " MB;"
 
    ReDim Bytes(0)
    Datos = ""
    ch = ""
    line1 = ""
    line2 = ""
    i = 0
    j = 0
    CantCargados = 0
End Sub
 
Private Sub Form_Load()
    With Text1
        .FontName = "Courier New"
        .FontSize = 7
    End With
End Sub
 

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

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:

    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

cual te fumaste ?¿ ¬¬

bueno la vdd esto es lo unico que te pondre y ya lo demas me parece que va por tu cuenta No lo crees?¿

el codigo esta incompleto lo demas tu lo pones

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

P.D.: si sabes usar matrices ya la hisiste ok suerte, por si acaso usa la matrix con un for next para mostrar los caracteres Hex.

ejemplo de Editor Hexadecimal hecho en VB <Descargar>

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

jaja yo puse numeros a la sar XP

a lo loco por decir algo xP