Changement de format de fichirer

adamacompaore Messages postés 1 Date d'inscription jeudi 19 mars 2009 Statut Membre Dernière intervention 19 mars 2009 - 19 mars 2009 à 15:37
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 - 20 mars 2009 à 10:56
Bonjour à tous!
Pourrai je avoir de l'aide pour transformer un fichier sous format binaire en format text?

2 réponses

kakenette Messages postés 218 Date d'inscription dimanche 1 mai 2005 Statut Membre Dernière intervention 15 novembre 2009 1
19 mars 2009 à 16:26
Quelque chose comme ca : ?

Dim StrContenue As String

Open "CheminFichierBinary" For Binary As #1
    StrContenue = String$(LOF(1), vbNullChar)
        Get #1, , StrContenue
Close #1

    Open "CheminFichierString" For Output As #1
        Print #1, StrContenue
    Close #1

kakenette
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
20 mars 2009 à 10:56
Bonjour
Chaque octet contient deux digit Hexa, chaque digit Hexa peut s'afficher sous forme texte en lui ajoutant 30 en hexa pour les renbdre imprimables
0
Rejoignez-nous