IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

lire un fichier hex?


Sujet :

VBScript

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    22
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 22
    Par défaut lire un fichier hex?
    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

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    lire un fichier hexa entre deux adresses hexa

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    22
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 22
    Par défaut
    Citation Envoyé par ced600 Voir le message
    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.

  4. #4
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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).

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VB6] Comment lire un fichier Hex
    Par Jihnn dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 04/08/2006, 22h47
  2. [MFC] lire un fichier en int
    Par Kevgeii dans le forum MFC
    Réponses: 3
    Dernier message: 23/01/2004, 09h32
  3. Réponses: 5
    Dernier message: 11/01/2004, 20h17
  4. Lire un fichier de 50 gb
    Par Maryves dans le forum MFC
    Réponses: 2
    Dernier message: 08/01/2004, 14h08
  5. Lire le fichier du port série
    Par saibe dans le forum Linux
    Réponses: 7
    Dernier message: 09/04/2003, 09h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo