Discussion :

[wmenant]

Bonjour à tous,

Je souhaiterais rechercher des positions dans un fichier binaire et noter le début de chaque position, puis la longueur entre 2 positions.

J'ai commencé à faire obtenir la 1ère position, la 2ème puis la longueur, mais je sèche pour continuer jusqu'au bout du fichier. En obtenant les positions et longueurs, je peux récupérer des fichiers (png, doc, ect) contenu dans le bin...

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
 
'Tableau recherché
Dim list As Byte() = New Byte() {80, 75, 3, 4, 20, 0, 0, 0, 8, 0}
Dim fic As Byte() = IO.File.ReadAllBytes("C:\20131021.bin")
Dim idx As Integer = FindSequence(fic, list, 0)
Console.WriteLine("Position de départ : " & idx)
If idx = 0 Then
idx = FindSequence(fic, list, 9)
End If
Console.WriteLine("2ème Position de départ : " & idx)
'--
Dim b() As Byte = Nothing
Using fs As New FileStream("C:\20131021.bin", FileMode.Open)
Using rdr As New BinaryReader(fs)
Dim c As String = fs.Seek(0, SeekOrigin.Begin)
b = rdr.ReadBytes(idx)
IO.File.WriteAllBytes("C:\20131021.png", b)
End Using
End Using

et

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
 
Public Function FindSequence(ByVal list() As Byte, ByVal value() As Byte, ByVal startingpos As Long) As Integer
Dim startIndex As Integer = Array.IndexOf(list, value(startingpos))
Do Until startIndex = -1 OrElse list.Length - startIndex <
value.Length
Dim runLength As Integer = 0
For index As Integer = 0 To value.Length - 1
If value(index) <> list(startIndex + index) Then Exit For
runLength += 1
Next
If runLength = value.Length Then Return startIndex
startIndex = Array.IndexOf(list, value(0), startIndex +
runLength)
Loop
Return -1
End Function

Pouvez vous m'aider ou me mettre sur la voie afin que je puisse traiter tout le fichier C:\20131021.bin, rechercher sur des bytes et continuer jusqu'au bout ?

Merci à tous

[MicBru]

Je ne réponds pas à votre demande mais mes cheveux se sont hérissés quand j'ai vu la fonction.

Ce qui suit est plus lisible et surtout compréhensible.

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
    Public Function FindSequence(ByVal list() As Byte, ByVal value() As Byte, ByVal startingpos As Long) As Integer
        Dim runLength As Integer
        Dim ValeurDeRetour As Integer
        Dim startIndex As Integer = Array.IndexOf(list, value(startingpos))
        Do Until startIndex = -1 OrElse list.Length - startIndex < value.Length Or runLength = value.Length
            runLength = 0
            While runLength <= value.Length - 1 And value(runLength) = list(startIndex + runLength)
                runLength += 1
            End While
            startIndex = Array.IndexOf(list, value(0), startIndex + runLength)
        Loop
        If runLength = value.Length Then
            ValeurDeRetour = startIndex
        Else
            ValeurDeRetour = -1
        End If
        Return ValeurDeRetour
    End Function

[wmenant]

Merci MicBru, heureusement que tout le monde n'est pas débutant, mais bon, il faut bien commencer un jour

Peux tu me détailler un peu plus la nouvelle fonction s'il te plait, ce serait sympa.

Encore merci

[shayw]

Bonjour

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Class seq
        Public startpos As Int32
        Public length As Int32
    End Class
 
 Private listresult As New List(Of seq)
 Private listbinary() As Byte
  Private Function ReadBinaryFILE(ByVal filename As String) As Boolean
        If File.Exists(filename) Then
            listbinary = File.ReadAllBytes(filename)
            Return True
        Else
            Return False
        End If
    End Function 
 
    Private Function FindSeq(ByVal seqlist As List(Of Byte)) As List(Of seq)
        Dim pos, holdpos, seqindex As Integer
        Dim result As New List(Of seq)
        pos = 0
        seqindex = 0
        For Each item As Byte In listbinary
            If item = seqlist(seqindex) AndAlso seqindex < seqlist.Count Then
                holdpos = pos
                seqindex += 1
            Else
                seqindex = 0
            End If
            If seqindex = seqlist.Count Then
                Dim seqdata As New seq
                seqdata.startpos = holdpos - seqindex + 1
                If result.Count > 0 Then
                    seqdata.length = seqdata.startpos - result(result.Count - 1).startpos
                Else
                  'la premiere sequence a une longueur 0 
                    seqdata.length = 0
                End If
                result.Add(seqdata)
                seqindex = 0
            End If
            pos += 1
        Next
        Return result
    End Function

pour utiliser

Code :

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

1
2
3
4
If ReadBinaryFILE("C:\20131021.bin" ) Then
            Dim listtofind As New List(Of Byte)(New Byte() {80, 75, 3, 4, 20, 0, 0, 0, 8, 0})
            listresult = FindSeq(listtofind)
        End If

bonne prog

[wmenant]

Super, merci shayw, c'est vraiment ce que je souhaitais faire !

Simple, clair et efficace !