supprimer dernier caractere d'un fichier binaire...

salut

voila , tout est dans le titre ...

si quelqu'un sait comment faire, je suis preneur.

merci
@+

Salut

En VB, je crains que la seule solution soit de lire puis de réécrire le fichier sans le dernier caractère.
Sinon, un éditeur hexa et tu remplaces le dernier caractère par un 00 mais c risqué.

Cordialement, CanisLupus

bonjour,
un truc comme çà ?

Dim f As Integer Dim b As String b = Space$(FileLen("fichier") - 1) f = FreeFile Open "fichier" For Binary As #f Get #f, , b Close #f Open "fichier" For Output As #f Print #f, b Close #f

Cordialement Bul. [Site] [Mail]

Tout à fait bultez.

Cordialement, CanisLupus

API (sans lecture donc beaucoup + rapide):

Dim hfl As Long
hfl = CreateFile(nomFL, ....)
SetFilePointer(hfl, -1, 0, FILE_END)
SetEndOfFile(hfl)
CloseHandle(hfl)

FINI


ciao...
BruNews, MVP VC++

salut

merci pour ta réponse. cependant, quelque chose me chagrine :

si ton fichier finit par un retour chariot, tu supprimes ce dernier mais la fonction print te le remet à la fin, donc c'est comme si tu ne faisais rien. ne faut-il pas utiliser put à la place de print ?

erreur de ma part ,il faut faire

Print #f, b;

Cordialement Bul. [Site] [Mail]