OUVRIR UN FICHIER EN MODE BINAIRE

Signaler
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
Messages postés
123
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
5 juin 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8532-ouvrir-un-fichier-en-mode-binaire

Messages postés
123
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
5 juin 2007

comment recuperer une decimal à virgule ?
admettons qu'on cherche 17,67 ?
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015

Je vais être assez méchant, mais c'est des bons conseils
1 - Commente ta source, une source non commentée est inutile
2 - Déclare tes variables explicitement (Dim truc as Type), evite les I% qui correspondent aux vieux basic et méritent d'être oubliés.
3 - Donne des noms explicites à tes variables (pour qu'on sache à quoi elle servent)
4 - Fait des procédures génériques qui prennent des arguments
5 - choisi mieux tes types de retour (boolean <> integer)

Pour lire un fichier en une fois il faut faire :
Dim ReadFile(filename as string) as string
Dim Buffer as String
Dim File as Integer : File = FreeFile 'cas où d'autres fichiers seraient ouvert
Buffer = Space$(Filelen(filename)) 'on dimensionne le buffer à la taille du fichier à lire
Open filename For Binary as #File
Get #File,, Buffer 'on récupère tout
Close #File
ReadFile = Buffer
End sub