Discussion :

[julienvb]

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 :

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

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

[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 ?

[julienvb]

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

[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

[julienvb]

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 :

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
 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

[Miska59]

Bonjour,

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

cordialement.