Discussion :

[keiser1080]

Saluuut,

je souhaite lire un fichier hexa entre deux adresses hexa es ce possible en vbscript ?

voici le code (c'est des fonctions prises sur le net)

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
31
32
33
34
35
36
Function SimpleBinaryToString(Binary)
  'SimpleBinaryToString converts binary data (VT_UI1 | VT_ARRAY Or MultiByte string)
  'to a string (BSTR) using MultiByte VBS functions
  Dim I, S
  For I = 1 To LenB(Binary)
    S = S & Chr(AscB(MidB(Binary, I, 1)))
  Next
  SimpleBinaryToString = S
End Function
 
Function ReadBinaryFile(FileName)
  Const adTypeBinary = 1
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeBinary
 
  'Open the stream
  BinaryStream.Open
 
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile FileName
 
  'Open the stream And get binary data from the object
  ReadBinaryFile = BinaryStream.Read
End Function
test = ReadBinaryFile("MOV002.MOI")
test2 = SimpleBinaryToString(test)
dim filesys, filetxt, getname, path
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("texte.txt", True)
filetxt.Write(test2)
filetxt.Close

mais ça marche pas c'est simplement une copy de mon fichier

[ced600]

lire un fichier hexa entre deux adresses hexa

[keiser1080]

Je me comprend

en faite je voulais editer un fichier binaire et
par exemple rechercher les données entre le bit 232 et le bit 232 et ensuite convertir en décimale.

Mais au moment ou j'ai poser la question mon cerveau étais en mode off donc je savais meme plus ce que je cherchais.

[ced600]

Bah là ton script ouvre un fichier binaire, le convertis en string, et copie ce string dans un fichier.
Et ton script marche, c'est juste que tu lui demande de copier c'est tout.

Au moment où tu récupères ton string, plutot que le copier dans un fichier, tu pourrais le parcourir pour rechercher ce que tu recherches.

Tu as la fonction Split qui te permet de couper un string en fonction d'un séparateur, ce qui te renvois un tableau de string, que tu peux parcourir avec un foreach, et dans cette boucle tu testes si chacun des éléments est égal ou non à ton bit 232 convertis en string (si tu sais ce que cela donne une fois convertis).