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 :
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
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
Merci de votre aide.
Partager