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 : 551
Nombre de snippets : 1692
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 : 3307
Catégorie(s) : Compression & Split
Langage sélectionné : CamlLight
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

{Python} CONVERSION ET COMPARAISON D'ENTIER RELATIFS EN BINAIRE
Slt! J'ai écri une fonction qui permet de convertir à la fois deux entiers relatifs en binaire sur k...

{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...

{Python} CONVERTISSEUR EN LOT D'ITINÉRAIRES GPS
Convertisseur en lot d'itinéraires GPS avec l'aide du logiciel ITNConv (à télécharger sur http://ben...

{Delphi} CONVERSION D'UN NOMBRE COMPRIS 0 ET 999999999999999999 (18 CHIFFRES) EN LETTRES
Unité capable de convertir un nombre compris 0 et 999999999999999999 qui peut etre utile pour des a...

{Delphi} CONVERSION DE TEMPERATURE
c'est une application qui vous permette de converetire les temperatures entre differentes unités c'...

{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...