lire un hexadecimal

Version imprimable

lire un hexadecimal

bonjour a tous, voila je cherche a faire un petit programme en VB, que je puissent aller rechercher dans n'importe qu'elle dossier un fichier binaire .
pour que je puissent modifier une suite d'hexadécimal/décimal 16bit que j'aurai définie au préalable par une autre suit que j'aurais choisie. je suis débutant et je bloque un peut. mon début de code est ceci. merci d'avance

exemple: j'ouvre mon fichier je sélectionne bouton 1 sa recherche t'elle suite et la modifie par ...
j'ouvre mon fichier je sélectionne bouton 2 sa recherche t'elle suite et la modifie par ...
Code:

1 2 3 4 5 6 7 8 9 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim choisir As New OpenFileDialog If choisir.ShowDialog() = 1 Then TextBox2.Text = choisir.FileName End If End Sub End Class

02/09/2021, 13h34
popo

Ce n'est pas clair du tout.
Tu parles d'un fichier binaire puis d'hexadécimal.

Qu'est ce que tu as en entrée ?
Que souhaites tu en sortie ?
02/09/2021, 13h39
julienvb

binaire

bonjour, en gros je veux pouvoir sélectionner un fichier binaire que le soft le convertir en hexadécimal/décimal et qui change une suite prédéfinie par une autre. et qu'on puissent le sauvegarder en binaire
06/09/2021, 13h34
popo

Pour lire un fichier binaire, il faut déjà savoir comment il a été écrit.
Sinon, tu ne sauras pas dans quel ordre et sous quelle forme sont inscrites les informations.

Ici, un exemple d'écriture puis de lecture de fichier binaire.
https://www.tutorialspoint.com/cshar...nary_files.htm

sauvergarde

bonjour, j'ai avance dans mon code, mais impossible de trouver la solution a se problème, quand je clique sur mon bouton il Vien rechercher ma suite hexa que je lui est demander et si elle existe il la modifie, j'ai crée un autre bouton pour appliquer une autre modification avec une autre suite hexa sur le même fichier, et j'aimerais seulement que lorsque je clique sur mon bouton save, qu'il me crée un nouveau fichier celui qui aura été modifier sans modifier l'original. voici mon code

Code:

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
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim choisir As String = TextBox2.Text
 
        If File.Exists(choisir) Then
            Dim fs As New FileStream(choisir, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
            Dim writer As New BinaryWriter(fs)
            Dim codeorginale As String = "80800FD9000C"
            Dim Search As String = HexSearch(codeorginale, fs)
 
            If Not Directory.Exists(destination(choisir) & "\ORIGINAL") Then
                Directory.CreateDirectory(destination(choisir) & "\ORIGINAL")
            End If
            My.Computer.FileSystem.CopyFile(choisir, destination(choisir) & "\ORIGINAL\" & Path.GetFileName(choisir) & ".ORI")
 
            If Search Then
                writer.BaseStream.Position = "&H" & Conversion.Hex(Search)
                Dim coderemplacer As String = "80801304000C"
 
                For i = 0 To coderemplacer.Length - 1 Step 2
                    Dim c As Integer = Integer.Parse(coderemplacer.Substring(i, 2), System.Globalization.NumberStyles.HexNumber)
                    writer.Write(Convert.ToByte(c))
                Next
                fs.Close()
                writer.Close()
                MsgBox("Fichier modifier avec succés !")
            Else
                MessageBox.Show("Non Trouver le Hexadécimal du fichier !", "Erreur Enregistrement", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

17/12/2021, 13h37
Miska59

Bonjour,

voici la solution à ton problème.
https://www.developpez.net/forums/d1...tomatiquement/

cordialement.