Bonjour à tous

J'ai créer une fonction qui modifie, dans une fichier binaire, une valeur de 64 caracteres

Cependant, quand j'utilise FilePut je n'arrive pas à mettre des octets null (00 en hexa) et ma modification est partielle :S

Voici le code que j'utilise :

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
 
    Public Structure Nomamodif
        <VBFixedString(64)> Dim MyName As String
    End Structure
...
 
        Dim MyString As String
 
        FileOpen(1, "c:\TEST.iso", OpenMode.Binary)
        Seek(1, 33)
        MyString = New String(" "c, 64)
        FileGet(1, MyString)
        FileClose(1)
 
   If (NomOrigine.Text() <> MyString) Then
            Dim Nommodif As Nomamodif
 
            Nommodif.MyName = New String(" "c, 64)
            FileOpen(1, "c:\TEST.iso", OpenMode.Binary)
            Seek(1, 33)
            Nommodif.MyName = NomOrigine.Text
            FilePut(1, Nommodif.MyName)
            FileClose(1)
 
End If
Comment pourrais-je remplir d'octets null (jusque au 64eme) la valeur de Nommodif.MyName sans toucher au octets qui sont affichés dans NomOrigine.Text

Merci de votre aide.