Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 513
Nombre de snippets : 1595
Connexion

Tableau de bytes vers tableau de booléens

Niveau requis pour utiliser/comprendre cette source : 2 ( Initié )
Créé le 29/10/2007 15:52:27 et initié par the_wwt [Liste]
Date de mise à jour : 09/04/2008 17:26:16
Vue : 2481
Catégorie(s) : Compression & Split
Langage sélectionné : Caml
Langages dispo pour ce code :
- Java
- Delphi 5
- Caml, CamlLight, ObjectiveCaml
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : Caml , ObjectiveCaml , CamlLight
Date ajout : 09/04/2008
Posté par coucou747 [Liste]
let rec byteListAdd nbrBits acc i = if nbrBits = 0 then acc else byteListAdd (nbrBits-1) ( (i mod 2 = 1) ::acc) (i / 2);;
let formStringToBinarySeq str =
    let strget=String.get str
    in let rec f acc i = if i = -1
        then acc
        else f (byteListAdd 8 acc (int_of_char (strget i) )) (i-1)
    in f [] ((String.length str) -1);;
Remarque :
(*reciproque et test*)
let formBinarySeqToString tab =
let rec f l i c = function
| [] ->String.concat "" (List.rev ((String.make 1 (char_of_int c))::l))
| hd::tl ->
if i=8 then f ((String.make 1 (char_of_int c))::l) 0 0 (hd::tl)
else f l (i+1) (c*2 + (if hd then 1 else 0)) tl
in f [] 0 0 tab;;

formBinarySeqToString (formStringToBinarySeq "moi");;

Snippets en rapport avec : Conversion, Bits, Booléens, Bytes, Binaires

05/11/2007 - Convertir un tableau de bytes en image

07/04/2007 - Connaître l'heure GMT à partir de l'heure système de l'ordinateur

26/10/2006 - Convertir une couleur Long en code HTML (et vice versa)

30/07/2006 - Conversion unités/octets

20/05/2006 - Conversion images BMP/JPG/PNG avec GDI+



Codes sources en rapport avec : Conversion, Bits, Booléens, Bytes, Binaires

{Visual Basic, VB6, VB.NET, VB 2005} TRADUCTEUR VB6.VBP EN VB5.VBP
Ben oui ! Il y a encore des utilisateurs de VB5. C'est ce qui m'a amené à faire ce petit programm...

{Visual Basic, VB6, VB.NET, VB 2005} ANALYSE IP
analyse une adresse ip. donne le classe de l'adresse ip, ainsi que divers renseignement. et il tra...

{C / C++ / C++.NET} CXIMAGE LIB
lib example load les fichier format BMP, JPEG, GIF, PNG, TIFF, MNG, ICO, PCX, TGA, WMF, WBMP, JBG...

{PHP} CONVERSION RGB <-> TSL
J'ai cherché sur tous les sites comment passer du mode RGB à TSL et ci-ce-versa sans résultat. Puis...

{JAVA / J2EE} ROMANOP : UN UTILITAIRE POUR LES NOMBRES ROMAINS (CONVERSION ROMAN -> ENTIERS, ENTIERS -> ROMAINS, CALCULS...)
Voici une utilitaire sur les nombres romains. Il permet la conversion de nombres romains vers les en...

{Visual Basic, VB6, VB.NET, VB 2005} MODULE POUR MANIPULATION ET CONVERSIONS DES BITS
Cette module contient des fonctions prés à utiliser dans vos programmes,le module contient les fonct...

{Graphisme} EXPORT DE FICHIER AUTOCAD VERS WMF ET DXF (EN LOT)
Ayant besoin d'exporter une bonne quantité de dessins dans différents formats, j'ai fait ce petit bo...

{C / C++ / C++.NET} DVD2AVI2 ---- ENCODAGE FICHIERS : VOB VERS AVI
Transformation de fichiers VOB vers AVI démuxage(séparation) du son vers WAV ou AC3 ou mpeg1 audio ...

{Javascript / DHTML} CONVERSION TEXTE ACCENTUÉ -> CODE HTML
Etant donné que je n'ai pas trouvé de code qui permettait de me générer un code HTML à partir d'un t...

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTISSEUR DEVISES ACTUALISÉ
Ce code permet de convertir les principales devises entres elles (Eur, USD, Yen, CHF, GBP) C'est ...