Ouvrir un fichier en mode binaire

Question

J'ai cherché sur le site et j'ai trouvé. Seulement, à partir d'un certain de nombre d'octects, il ne les mémorisent pas tous :(

En gros, comment ouvrir un fichier en binaire et stocker les données dans une variables ?

-=Ar$£nik=-

crenaud76 · Answer

Dim MaVar as UnTypeQuelconque
Open "MonFic.binaire" For Binary as #1 Len = Len(MaVar)
While not eof(1)
  Get #1,,MaVar
  ' Traitement de MaVar içi
Wend
Close #1

Ce code lit tous les enr contenu dans le fichier

Christophe R.

MaxSoldier · Answer

Dsl, mais ton code ne marche po, pour 2 raisons :

La 1ère :
Len = Len(MaVar)
Le 1er Len ne pointe sur aucune chaine :p

La Seconde :
La boucle est infini :(

Help please !

-=Ar$£nik=-

cs_CanisLupus · Answer

Salut, tu veux stocker tout ton fichier dans une seule variable ?

Tout dépend de sa taille mais s'il est pas tros gros, tu peux coder :

dim TaVar as string
open TonFichier for input as #1
TaVar = input lof(1), #1
close #1


Cordialement, CanisLupus

cs_CanisLupus · Answer

En reprenant le code de crenaud76, tu peux faire aussi :

Dim MaVar as byte
ou
dim MaVar as string * 1
Open "MonFic.binaire" For Binary as #1 Len = Len(MaVar)
While not eof(1)
Get #1,,MaVar ' là, tu lis 1 par 1
' traitement octet par octet
' ou ajout genre : var = var & MaVar
' .........
Wend
Close #1

Cordialement, CanisLupus

MaxSoldier · Answer

beuh rien ne marche :(

-=Ar$£nik=-

MaxSoldier · Answer

je suis dsl, sa doit être moi mais je vous assure, j'y met du mien

-=Ar$£nik=-

cs_CanisLupus · Answer

Bon, un peu plus d'explik serait bienvenu.

Taille de ton fichier ? ...
Type de ton fichier ? ...
Quelle source du site as tu trouvé ? ...
Quel est ton but ? ...
....

@+

Cordialement, CanisLupus

Gobillot · Answer

essayes ça:


Dim s As String
Open "MonFichier" For Binary As #1
s = Space$(LOF(1))
Get #1, , s
Close #1


Daniel

MaxSoldier · Answer

Merci CanisLupus j'ai enfin reussi !


Dim StrBuffer As String * 1
Dim Total As String

Open Fichier For Binary As #1 Len = Len(StrBuffer)
While Not EOF(1)

Get #1, , StrBuffer
Total = Total & StrBuffer

Wend

Close #1


-=Ar$£nik=-

VBREP · Answer

salut Gobillot

quand utilise ton code
j'ai erreur execution 7
memoire insuffisnte

ta une solution

merci

Gobillot · Answer

tu dois avoir un très gros fichier alors !
2éme solution lire dans un tableau de Bytes.
sinon essayer de libérer de la mémoire mais si pas suffisant pas d'autre solution que de lire le fichier en plusieurs fois.


Dim Buf() As Byte
Open Nomfichier For Binary As #1
     ReDim Buf(LOF(1) - 1)
     Get #1, , B
     Close #1


Daniel

Gobillot · Answer

oups ! correction
je voulais dire Get #1, , Buf

Daniel

VBREP · Answer

salut Gobillot

peut tu expliquer ton code

merci

Gobillot · Answer

au lieu de lire dans une chaîne je lis dans un tableau de Bytes:
Dim Buf() As Byte
les () signifie que c'est un tableau mais il n'est pas encore dimentionné donc c'est un tableau dynamique, le type Byte peut contenir juste un seul caractère valeur 0 à 255.
ReDim Buf(LOF(1) - 1)
redimentionne le tableau à la longueur du fichier -1 puisque le tableau commence à l'index zéro.
Get #1, , Buf
lecture de tout le fichier dans le tableau, chaque caractère du fichier sera accessible séparément, le premier caractère sera dans Buf(0), le dixième dans Buf(9), etc ..., le dernier sera dans Buf(UBound(Buf))

en espérant t'avoir aidé

Daniel

VBREP · Answer

affiche que que des 00000000

Ouvrir un fichier en mode binaire

15 réponses

Discussions similaires