vous avez pas compris ce que je vous dit. je veux afficher le nombre hxd sur mon fichier comme en image dans le label1.text
exemple : 0006e00f => 1
0004f429 => 2
0004e30c => 3 ...etc
Private Sub ReadFile(FilePath As String) Dim reader As New Reader(FilePath, Endian.Little, 0) reader.Position = &H85F5 Dim lr As String = reader.ReadHex(3).Length - 5 reader.Position += 10 Label1.Text = lr reader.Close() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMerci de votre compréhension.
Dim input As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.Read) Dim reader As New BinaryReader(input) reader.BaseStream.Position = &H85F5 Do Dim code As String = BitConverter.ToString(reader.ReadBytes(3)).Replace("-", "") Dim i As Integer For i = 0 To code.Length - 5 If code = "7FFFFFFF7FFFFFFF7FFFFFFF7FFFFFFF" Then Exit Do reader.BaseStream.Position += 10 i = i + 1 Next i Label1.Text = i Loop reader.Close() input.Close()