Aide adaptation code : Lecture d'une plage à partir d'un Offset.

Version imprimable

Bonjour à tous,

J'ai trouvé le code suivant sur MSDN:

Code:

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
Dim pathSource As String = "c:\tests\source.txt"
    Try 
        Using fsSource As FileStream = New FileStream(pathSource, _
            FileMode.Open, FileAccess.Read)
            ' Read the source file into a byte array.
                Dim bytes() As Byte = New Byte((fsSource.Length) - 1) {}
                Dim numBytesToRead As Integer = CType(fsSource.Length,Integer)
                Dim numBytesRead As Integer = 0
 
                While (numBytesToRead > 0)
                    ' Read may return anything from 0 to numBytesToRead.
                    Dim n As Integer = fsSource.Read(bytes, numBytesRead, _
                        numBytesToRead)
                    ' Break when the end of the file is reached.
                    If (n = 0) Then
                        Exit While
                    End If
                    numBytesRead = (numBytesRead + n)
                    numBytesToRead = (numBytesToRead - n)
 
                End While
            numBytesToRead = bytes.Length
        End Using
    Catch ioEx As FileNotFoundException
        Console.WriteLine(ioEx.Message)
    End Try

Je cherche à l'adapter sans succès. Je voudrais à partir d'un Offset, récupérer la valeur d'une plage.

Exemple :

Offset 0x0C0
longueur 4 :

Récupérer la valeur de cette plage qui est "TOTO".

Quelqu'un peut il m'aider ?

Merci d'avance

Creepy

Bonsoir,
à voir : méthode seek.
http://msdn.microsoft.com/en-us/libr...=VS.90%29.aspx

La fonction et son appel pourraient ressembler à :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Function fsSeek(ByVal file As String, ByVal offset As Int64, ByVal length As Integer) As String
 
        Dim fs As New FileStream(file, FileMode.Open, FileAccess.Read)
        Dim result As String = ""
 
        For offset = offset To offset + length - 1
            fs.Seek(offset, SeekOrigin.Begin)
            result += (Convert.ToChar(fs.ReadByte()))
 
        Next offset
 
        Return result
 
    End Function
 
    Private Sub btnSeek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeek.Click
        MessageBox.Show(fsSeek(Application.StartupPath & "\temp.txt", &HC0, 4))
    End Sub

NB : le préfixe en basic est "&H".

17/02/2011, 08h34
Geo2A

Bonjour,

Une autre façon de faire est d'utiliser un BinaryReader et de charger tous les octets dans un tableau d'octets. L'utilisation de BinaryReader permet aussi d'utiliser le flux sous-jacent (BaseStream) et d'utiliser la méthode Seek.

L'avantage du BinaryReader est de pouvoir lire directement le type de donnée désiré. (ReadChar, ReadDouble etc ..)

Une autre basée sur le tableau d'octet est d'utiliser un system.IO.file.readallbytes.
17/02/2011, 11h08
Creepy78

Merci...

Merci pour cette aide.

Creepy