Discussion :

[User]

Bonjour à tous,

Voila je vous expose mon problème:

Je souhaiterai lire un fichier en binaire pour effectuer un traitement sur chacun des octets de ce fichier.

Actuellement je procède comme suit:

Pour l'ouverture du fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "c:\Fichier1.doc" For Binary Access Read As #1

Et pour la lecture du fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To LOF(1) 
Get #1, i, tb(i) 'lecture des octets dans un tableau
Next i

Mais imaginez la lecture d'un fichier de 3000 Ko,

Ca peut vite de venir très très long à lire sans compter le traitement qui suit.

Donc ma question est simple connaissez-vous une méthode de lecture (ou d'écriture) d'un fichier dans une chaine ou autre, beucoup plus rapide..

Merci par avance,

@+

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim tb() As Byte
 
ReDim tb(FileLen("c:\Fichier1.doc") - 1)
Open "c:\Fichier1.doc" For Binary Access Read As #1
Get #1, , tb()
Close #1

[User]

Merci Bidou,

C'est super cool de ta part !!!

[bidou]

de rien