Discussion :

[hacker59]

Bonjour,
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
Dim fs As New FileStream(FilePath, IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.ReadWrite)
            Dim reader As New BinaryReader(fs)
            reader.BaseStream.Position = &H7074
            Dim compter As Integer = 0
            Do
                Dim valeur As String = BitConverter.ToString(reader.ReadBytes(2)).Replace("-", "")
                If valeur = "7FFF" Then Exit Do
                reader.BaseStream.Position += 6
                compter = compter + 1
                Label1.Text = compter 
            Loop
            reader.Close()
            fs.Close()

Le but de ce code est compter le nombre hexadécimale dans mon fichier.
je voudrais si c'est possible si la valeur est supérieure 0 ,il compte 1,2,3...etc mais si la valeur est inférieur à 0 ne compte pas?
Comment faire si la valeur est supérieure à 0 ,il compte 1,2,3 ..etc et si la valeur est à 0, il ne compte pas?

Merci de votre compréhension.

[ACIVE_CS]

Bonjour,
Si j'ai bien compris la question, la solution devrait ressembler à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
  Do
                Dim valeur As String = BitConverter.ToString(reader.ReadBytes(2)).Replace("-", "")
                If valeur = "7FFF" Then Exit Do
                reader.BaseStream.Position += 6
                Dim ValInteger As Integer = Convert.ToInt32(Valeur, 16)
                If ValInteger > 0 Then compter += 1
                Label1.Text = compter 
            Loop