SEEK POSITION HEXADECIMAL

Version imprimable

bonjour, petit problème avec mon code, je doit ouvrir un fichier hexa a une position donnée avec seek et écrire dans mon textbox les caractère hexa (2 4 6 8 etc.. octet souhaité) de la position donnée, mais je n'y arrive pas d'où mon message. merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim choisir As New OpenFileDialog
        If choisir.ShowDialog() = 1 Then
            TextBox1.Text = choisir.FileName
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim choisir As String = TextBox1.Text
 
        If File.Exists(choisir) Then
            Dim fs As New FileStream(choisir, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
            Dim position As Integer = "2498"
            Dim reader As New BinaryReader(fs)
            For i As Long = 0 To reader.BaseStream.Length - 1
                fs.Seek(i, SeekOrigin.Begin)
                Exit For
            Next
 
 
 
        End If
    End Sub

13/10/2022, 08h06
Phil Rob

Bonjour,
Je te propose de reviser l'utilisation de la fonction Seek.
A voir aussi si c'est une obligation de définir le nombre d'octets en Hexa ( je crois me souvenir que le paramètre de Seek est de type Long).
Enfin, est-ce une manière de conversion des Hexa en Integer, la ligne Dim Position ? Variable non utilisée par ailleurs.
...
18/10/2022, 17h34
umfred

Je ne comprends pas l'utilité du for ici.
Le seek positionne le curseur à l'endroit voulu, ensuite il faut lire tes données avec reader.ReadByte (lit un octet) ou reader.ReadBytes (lit un certain nombre d'octets)