Discussion :

[adelsunwind]

Bonsoir à tous,
pouver me dire comment faire ou m orienter vers une source qui me permettrait de lire un fichier d octets de taille fixe comprenant 120 octet.
En fait je dois l ouvrir, recuperer via des pointeurs (je pense) certains octets puis les convertir en decimal pour pouvoir les afficher dans un formulaire.
Ca fait beaucoup je sais mais manipulez des fichiers avec des octets et des index je m y perds.
Merci d avance .

[marot_r]

Ton fichier ne contient toujours que 120 octets ?

A+

[adelsunwind]

Bonjour oui c est un fichier de taille fixe qui contient toujours X octets.
J ai essayé avec les API windows avec les READFILEEX mais je m y perds dans les arguments.
Je dois apres lecture recuperer des mots de deux octets ( poids fort et poids faibles) pour les convertir ensuite en décimal et les intégrer dans mon formulaire pour traitement.
Merci beaucoup pour votre contribution.

[marot_r]

Super, alors la solution est assez simple.

Voici un code exemple à adpater à tes besoins. On va lire le contenu du fichier dans une chaine de caractères et ensuite tu pourras l'utiliser comme tu veux.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
public function LireFichier() as string
   dim result as string * 120 : 'Réserve un espace mémoire de la taille de ton enr
   dim nomFic as string : nomFic="C:\toto\TonFichier.dat"
   dim numFic as integer : numFic=freefile()
   open nomFic for binary as #numFic
   get #numFic,,result
   close #numFic
   LireFichier=result
end function

ici un exemple d'utilisation de la chaîne qui affiche chaque lot de 2 caractères en hexadécimal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
private sub Test()
   dim donnees as string : donnees=LireFichier()
   dim c1 as string:'Va contenir 1er caractère
   dim c2 as string:'Va contenir 2eme caractère
 
   dim i as integer : for i=1 to len(donnees) -1 step 2
      c1=mid(donnees,i,1)
      c2=mid(donnees,i+1,1)
      debug.print hex((256*asc(c1))+asc(c2)))
   next i
 
end sub

[adelsunwind]

C est tout bon j ai trouvé un tuto qui m a permis de faire ce que je voulais.
Merci à tous.