Editeur hexadecimal sous exCel

**Oh!Tofocus** · 17/02/2008, 22h09

Je voudrais eviter de passer par un éditeur hexadecimal pour modifier des fichiers.

Donc dans exel avoir
colonne A : adresses hexadecimales (offset)
colonne B : octet d'origine
colonne C : nouvel octet

quelle instruction utiliser pour
1- extraire l'octet correspondant à l'offset pour verifier ensuite sa valeur
2- remplacer cet octet par le nouvel octet ?

**AlainTech** · 18/02/2008, 10h18

Ouvrir le fichier source
Ouvrir le fichier destination
Pour chaque octet du fichier source, l'ajouter au fichier destination (modifié ou non, en fonction de ton test).
Fermer le fichier source
Fermer le fichier destination

**ouskel'n'or** · 18/02/2008, 10h27

Tu ouvres ton fichier en mode binary et utilise l'instruction Get. Jète un oeil à Get, dans l'aide en ligne (F1)

**Oh!Tofocus** · 18/02/2008, 22h40

Merci pour vos tuyaux..

voila le résultat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim myoctet As Byte
'pour lire l'octet à une certaine adresse
Sub Get_dans_fichier()
chemin = Range("a1").Value
Adresse = Range("a2").Value
Open chemin For Binary As #1
Get #1, Adresse, myoctet
Range("a3").Value = myoctet
Close #1
End Sub
'pour remplacer l'octet à une certaine adresse
Sub Put_dans_fichier()
chemin = Range("a1").Value
Adresse = Range("a2").Value
myoctet = Range("a3").Value
Open chemin For Binary As #1
Put #1, Adresse, myoctet
Close #1
End Sub

le plus dur a été de penser à definir la variable myoctet

Code :

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

Dim myoctet As Byte

il m'a fallu un bon 1/4 d'heure pour comprendre

F1 est bien sympa mais pas toujours trés clair pour l'autodidacte que je suis.

ça ma servira de leçon de ne pas définir mes variables...

**Oh!Tofocus** · 19/02/2008, 00h25

PS
il semble qu'il y a un décalage ( de 1 ) entre l'offset et l'adresse pointée par GET ou PUT
pour avoir la valeur correspondant à l'offset il faut tester GET #1, offset+1, myoctet

il faut donc corriger le code que je propose plus haut !

Code :

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