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

    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))