Version imprimable
Bonjour,
J'ai un signal codé sur 8 bits et enregistré dans un fichier et j'aimerai utiliser ces valeurs les unes après les autres.
Je pensai utiliser les procédures open-input-binary-file et input-char, mais au lieu d'avoir ma suite de 0 et de 1 j'ai le charactère que l'octet code.
Faut-il que j'utilise d'autres procédures ou existe-t-il une fonction me transformant un caractère en octet?
Je sais pas si je suis clair.
Merci d'avance
Je pense que tu es clair, mais je préfère m'en assurer.Citation:
Envoyé par PaM...
Tu ouvres un port pour lire une suite d'octet (open-input-binary-file). Mais tu les comme des caractères (read-char car je ne connais pas input-char) et tu t'étonnes de voir un caractère. C'est bien ça.
Si tu les lis avec (read-byte port) (1 par 1) ou (read-bytes n port) (n par n) tu obtiendras un caractère quand c'est un caractère affichable ou un nombre lorsque c'est un caractère non affichable. C'est mieux, mais ce n'est pas ce que tu aimerais si j'ai bien compris.
Tu peux obtenir le code hexadécimal avec bytes->hex-string qui requiert file/sha1. Si tu veux obtenir une suite de 0 et de 1 je crois que tu vas devoir coder la fonction qui va te l'afficher.
Maintenant ce n'est que de l'affichage. La manipulation via les octets (bytes) est suffisante. Pour les manipuler comme des entiers, transformes les en listes de nombres (bytes->list).
Voir l'exemple ci-joint.
merci pour ta réponse
j'ai essayé mais je n'ai pas la fonction require (j'utilise bigloo) quelqu'un connait l'équivalent ?
Mais pourquoi as-tu besoin d'avoir cette chaîne de caractère ?Citation:
Envoyé par PaM...
La liste des entiers n'est pas suffisante ?
Je ne comprends pas l'intérêt.
Parce que sinon il te suffit de la créer à partir des entiers. C'est quand même particulièrement simple.
Avec Bigloo :
(define p (open-input-file "le-flux-data"))
(integer->string/padding (read-byte p) 8 2)
;; (read-byte p) lit un octet et retourne son code ascii
;; (integer->string/padding (read-byte p) 8 2) convertit le résultat en chaîne de bits,
;; complétée à gauche par des zéros pour avoir huit bits, le tout en base 2
Si mais je n'ai pas la fonction bytes->hex-stringCitation:
Envoyé par ceciestunpseudo
au vue de ton exemple je suppose qu'il faut faire (require file/sha1)
mais bigloo ne semble pas connaitre la fonction require.
La solution proposée par lbloch (integer->string/padding (read-byte p) 8 2) répond à ma demande et fonctionne dans bigloo.
Merci à vous
Je me suis effectivement basé sur la documentation de DrRacket (anciennement DrScheme) et non sur celle de Bigloo.Citation:
Envoyé par PaM...