TRIMMER UN FICHIER ( GBA ROM TOOLS ) : REDUIRE LA TAILLE D'UN FICHIER EN SUPPRIMANT LES OCTETS INUTILES DE LA FIN DU FICHIER , Source N°27098

Information sur la source

Catégorie :Fichier / Disque

Niveau : Débutant Date de création : 26/10/2004 Date de mise à jour : 03/11/2004 01:36:26 Vu / téléchargé: 13 127 / 231

Auteur : hvb

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

8,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Une autre procédure tiré de GBATOols (qui sera posté d'ici peu ici) qui permet de reduire la taille
d'un fichier en supprimant les octets inutiles de la fin du fichiers.
Moi cela m'interessait pour les roms gba.
Beaucoup de roms finissent par des centaines d'octets FF ou 00 pour faire une taille ronde (1,2,4,8,16,32,64,128,256...Mbits)
Mais que ce soit les emulateurs ou les flashs cards, aucuns ne se preoccupent de ces octets inutiles.
Ce qui permet donc, par exemple, sur la rom 0628 (0624 - Yoshi's Island - Super Mario Advance 3 (E)) de gagner
+ de 3,5Mo (28Mbits) ce qui n'est negligeable par aucuns utilisateur de flash cards.
(flash card : cartouche reinscriptible permettant d'y mettre ses backup de roms sur une seule cartouche... ;) )

Je parle de fichier rom gba, mais cela s'applique aussi à toutes les autres roms d'autres
consoles, et surement à d'autres types de fichiers.

Pour l'exemple de yoshi, je vous accorde que 3.5Mo c'est assez exceptionnel, cette roms semblant être overdumpée,
mais vous gagnerez assez souvent entre 10Ko (lol...c'est toujours ça non?) et 1Mo.
Si vous voulez d'autres exemples, je vous donnerais ça de suite.

Source

Version C# de ce code disponible !

Public Function rom_end_offset(ByVal filez As String)
Dim arrz() As Byte
Dim i As Integer = FileLen(filez) - 1
Dim y As Integer
Dim n As Integer
Dim endrom As Integer
Dim hbread As New BinaryReader(File.OpenRead(filez))
ReDim arrz(i)
hbread.Read(arrz, 0, i)
hbread.BaseStream.Flush()
hbread.Close()
y = arrz(i - 1)
n = y
Do While n = y
i -= 1
n = arrz(i)
Loop
endrom = ((i \ 16) + 1) * 16
Return endrom
End Function
Public Sub rom_trim(ByVal pathz As String, ByVal offsetend As Integer)
Dim arrz() As Byte
Dim i As Integer = FileLen(pathz)
Dim hbread As New BinaryReader(File.OpenRead(pathz))
ReDim arrz(i - 1)
hbread.Read(arrz, 0, i)
hbread.BaseStream.Flush()
hbread.Close()
ReDim Preserve arrz(offsetend - 1)
Dim hbwrite As New BinaryWriter(File.OpenWrite(pathz.ToLower.Replace(".gba", ".trimmed.gba")))
hbwrite.BaseStream.Seek(0, SeekOrigin.Begin)
hbwrite.Write(arrz)
hbwrite.BaseStream.Flush()
hbwrite.Flush()
hbwrite.Close()
End Sub
'on l'appelera ensuite comme ceci : rom_trim(pathtxt.Text, rom_end_offset(pathtxt.Text))

    Public Function rom_end_offset(ByVal filez As String)
        Dim arrz() As Byte
        Dim i As Integer = FileLen(filez) - 1
        Dim y As Integer
        Dim n As Integer
        Dim endrom As Integer
        Dim hbread As New BinaryReader(File.OpenRead(filez))
        ReDim arrz(i)
        hbread.Read(arrz, 0, i)
        hbread.BaseStream.Flush()
        hbread.Close()
        y = arrz(i - 1)
        n = y
        Do While n = y
            i -= 1
            n = arrz(i)
        Loop
        endrom = ((i \ 16) + 1) * 16
        Return endrom
    End Function


    Public Sub rom_trim(ByVal pathz As String, ByVal offsetend As Integer)
        Dim arrz() As Byte
        Dim i As Integer = FileLen(pathz)
        Dim hbread As New BinaryReader(File.OpenRead(pathz))
        ReDim arrz(i - 1)
        hbread.Read(arrz, 0, i)
        hbread.BaseStream.Flush()
        hbread.Close()
        ReDim Preserve arrz(offsetend - 1)
        Dim hbwrite As New BinaryWriter(File.OpenWrite(pathz.ToLower.Replace(".gba", ".trimmed.gba")))
        hbwrite.BaseStream.Seek(0, SeekOrigin.Begin)
        hbwrite.Write(arrz)
        hbwrite.BaseStream.Flush()
        hbwrite.Flush()
        hbwrite.Close()
    End Sub




'on l'appelera ensuite comme ceci : rom_trim(pathtxt.Text, rom_end_offset(pathtxt.Text))

Conclusion

commentaires?

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

FileTrimmer.sln 919 octets
FileTrimmer.suo8 704 octets
AssemblyInfo.vb 1 110 octets
FileTrimmer.exe16 896 octets
FileTrimmer.pdb22 016 octets
FileTrimmer.vbproj 4 382 octets
FileTrimmer.vbproj.user 1 814 octets
Form1.resx 9 237 octets
Form1.vb 4 451 octets
Module1.vb 1 304 octets
FileTrimmer.exe16 896 octets
FileTrimmer.Form1.resources5 907 octets
FileTrimmer.pdb22 016 octets

Télécharger le zip

Historique

29 octobre 2004 14:21:37 :: titre
03 novembre 2004 01:36:26 :: .

Sources du même auteur

Toutes les sources de hvb

Sources de la même categorie

Toutes les sources de la catégorie Fichier / Disque

Commentaires

Commentaire de Golog le 27/10/2004 14:37:50

C kler que c pas mal , connaisans les rooms, il doit y en avoir pas mal comme celle que tu décris ! et puis , ac ta méthode faut voir si d'autre fichier fréquament utilisé ne son po ossi comme cela.

A testé ^^
Commentaire de Benouille le 03/11/2004 12:38:23

8/10
Commentaire de Rohja le 09/04/2007 12:40:47

Pour ma part je le fait directement avec HexEditor mais si ce soft peu automatisé cette fonctione, ça peu ètre pratique ! :)
Commentaire de hvb le 09/04/2007 23:39:03

j'espere pour toi qu'il y a une fonction préfaite dans HexEditor (perso j'utilise hexworkshop), parcque selectionner 3Mo de char(0) ça doit pas être pratique ^^
Commentaire de Rohja le 10/04/2007 18:44:18

Evitons le flood ok ?

[Je trouve le debut des FF FF FF.... je selectionne disont, une ligne, je descent jusque a la fin et en maintenant la touche shift, je click sur le dernier FF ce qui selectionne tout ! ]