OUVRIR UN FICHIER EN MODE BINAIRE
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
16 sept. 2003 à 16:12
ephores Messages postés 123 Date d'inscription lundi 30 juin 2003 Statut Membre Dernière intervention 5 juin 2007 - 19 mai 2004 à 11:48
ephores Messages postés 123 Date d'inscription lundi 30 juin 2003 Statut Membre Dernière intervention 5 juin 2007 - 19 mai 2004 à 11:48
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
https://codes-sources.commentcamarche.net/source/8532-ouvrir-un-fichier-en-mode-binaire
19 mai 2004 à 11:48
admettons qu'on cherche 17,67 ?
16 sept. 2003 à 16:12
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