Suppression d'octet

Bonjour,

je voudrais supprimer 500 octet en debut d'un fichier. et sauvegarder le reste dans un autre fichier BinaryReader et Writer  soit mais comment...
Si quelqu'un peut m'aider...

Merci

PS : c'est pour lire les fichier .itc générer par itunes (Artwork album)

reno

bon ça n'inspire personne j'ai tenter ça mais je pense qu'on peut faire beaucoup mieux...

Dim BR AsNew BinaryReader(New StreamReader(chemin).BaseStream)

BR.BaseStream.Seek(500, SeekOrigin.Begin)

Dim BW AsNew BinaryWriter(File.Open("c:\oooo", FileMode.Create))

Dim i AsInteger

Dim data(0) AsByte

DoWhile i <> -1

i = BR.BaseStream.ReadByte

If i > -1 Then

data.SetValue(

CByte(i), UBound(data))

ReDimPreserve data(UBound(data) + 1)

EndIf

Loop

BW.Write(data, 0, data.Length)

Me.PictureBox1.Image = Image.FromStream(bw.basestream)

BR.BaseStream.Flush()

BR.Close()

BW.Flush()

BW.Close()

reno

Fichier 1 Mo tu feras 'redim preserve' 1 million de fois, NIET.

size = tailleFichier
if size < nbrToDelete Then Exit
Se positionner dans le fichier à nbrToDelete (seek si j'ai bien compris).
size -= nbrToDelete
Alloc buffer de size octets
read de size octets en 1 seule passe
se positionner au début du fichier
Ecrire les size octets en 1 seul passe
SetEndOfFile (voir comment se fait en VB, aucune idée)

N'y aura  en tout qu'1 seule alloc mémoire, 1 lecture et 1 écriture, pas de boucle.

ciao...
BruNews, MVP VC++