Discussion :

[Jihnn]

Bonjour à tous,

Je me demandais comment faire pour lire un fichier Hex. Voici ce que j'avais fait :

Code :

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

1
2
3
4
5
6
7
8
9
Dim File As Integer, Line As String
File = FreeFile
 
Open "chemin_complet_de_mon_fichier" For Binary Access Read As #File
 Do While Not EOF(File)
  Input #File, Line
  Text1.Text = Text1.Text & Line & vbCrLf
 Loop
Close #File

Le problème, c'est que le programme tourne et tourne et tourne et ne s'arrête pas :S

Merci d'avance pour l'aide,

Thunder

[zazaraignée]

Salut

Dans un fichier binaire, il n'y a pas de lignes comme dans unfichier texte. Tout est mis bout-à-bout. Il faut connaître la longueur des enregistrement pour savoir où chacun débute (ou s'arrête).

Tu veux faire quoi. Lire le fichier pour en connaître les infos ou afficher les octêts en hexadécimal?

[Jihnn]

En fait, je veux simplement afficher ce qui a à l'intérieur de fichier, mais en hex. Exemple : FF 63 31 au lieu de plusieurs caractères qui ne veulent rien dire.

[SfJ5Rpw8]

tiens en lisant caractéres/caractéres :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim File As Integer
Dim b As Byte
File = FreeFile
Open "chemin_complet_de_mon_fichier" For Binary Access Read As #File
 Do While Not EOF(File)
  Get #File, , b
  Text1.Text = Text1.Text & Hex(b) & " "
 Loop
Close #File

[Jihnn]

C'est tout simplement parfait !

Résolu + Bookmarked