J'ai réussi, mais c'est (très) lent sur un fichier de 500 Ko ou plus, et j'ai l'impression que c'est une méthode de bourrin. Quelqu'un à une alternative ?
(PS : c'est pour lire et patcher des roms de jeux vidéos)

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
20
21
22
23
24
25
26
27
28
29
30
 
' Fonctions pour lire mon fichier :
'====================
Function readBytes(file) ' Je récupère le contenu du fichier
  dim inStream
  set inStream = WScript.CreateObject("ADODB.Stream")
  inStream.Open
  inStream.type= 1
  inStream.LoadFromFile(file)
  readBytes = inStream.Read()
  inStream.Close()
End Function
 
 
Function ReadFromBuff_Dec(Buffer, Offset, Bytes) ' Je cherche un ou des bytes qu'il m'affiche en décimal.
data = (OctetToHexStr(MidB(Buffer, hex2dec(Offset) + 1, Bytes)))
do while len(data) < 8
    data = "0" & data
loop
ReadFromBuff_Dec = hex2dec(data)
End Function
 
Function OctetToHexStr(arrbytOctet)
  Dim k
  OctetToHexStr = ""
  For k = 1 To Lenb(arrbytOctet)
    OctetToHexStr = OctetToHexStr _
      & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
  Next
End Function