leggere N bytes da un file

[Thor82]

come da topic vorrei
aprire un file ( e ho scoperto che si usa

Open Text1.Text For Input As #X

)

e poi
finche' non è finito:

leggere N bytes
metterli in una variabile

riprendere da n+1 e cosi' via

come si fa? ho scoperto il Line input,ma volendo fare a bytes?

grazie mille!!

[xegallo]

Originariamente inviato da Thor82
come da topic vorrei
aprire un file ( e ho scoperto che si usa

Open Text1.Text For Input As #X

)

e poi
finche' non è finito:

leggere N bytes
metterli in una variabile

riprendere da n+1 e cosi' via

come si fa? ho scoperto il Line input,ma volendo fare a bytes?

grazie mille!!

devi aprire il file in modo binario

[Thor82]

e come?
e poi che cosa devo dirgli per leggere?

[sebamix]

    Dim N As Integer
    Dim strRead As String * 10
    Dim i As Long
    N = FreeFile
    
    Open App.Path & "\test.txt" For Binary As #N Len = Len(strRead)
    
    i = 1
    Do While EOF(N) = False
        Get #N, i, strRead
        List1.AddItem strRead
        i = i + Len(strRead)
    Loop
    
    Close #N

scritto velocemente
Legge 10 caratteri alla volta.

[Thor82]

grazie 1k

[jabjoint]

pero' se vuoi leggere i bytes di un file e basta è sufficente sfruttare la funzione "filelen"

msgbox filelen("C:\nomefile.txt")

[Thor82]

no, intendevo proprio leggere N bytes, non QUANTI bytes

[xegallo]

open sFile for bynary as #iFile
   sBuffer = space$(n)'numero dei byte da leggere
   get #ifile , , sbuffer
close #ifile