Si possible en vbs est -ce que vous avez un exemple, c'est pour implementer dans un programme de cretation de divx. Et 'ai la fleme de le faire.
 
 
Sinon comment on fait une fois qu'on la chaine transformée en binaire pour l'écrire directemnt dans un fichier et pas comme un simple txt dans un fichier.
 
ldivx
Merci d'avance

Précise.
Tu veux trandformer une chaîne de caractères faite de '0' et '1' en sa valeur binaire ?

Dans VirtualDub il peut generer des batch mais comme le logiciel en lui meme ne connait pas les valeurs du codecs il les recuperes codeés.
 
voici une des chaines.
 
GAEAAMAzBwDQBwAACgAAABQAAAAsAQAADAAAAAIAAAAFAAAAAgAAAJABAAAAAAAAAAAAABBmkQVkAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAyAAAAAAAAAAAAAAAAAACgmZnJPwAAAKCZmck/QAAAAAEAAACAAAAAAAAAAAAAAAAAAAAAAAAAAIACAADgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOA/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAEAAAD/////BAAAAGU6XGxvcmRzXGxvcmRzLmxvZwBjOlx0ZXN0LmRpdngAZTpcbG9yZHNcbG9yZHMuYmluAGk=
 
 
Voici une chaîne décodé en binaire ( tronquée juste pour ex=
0001100000000001000001010000000001110000000....................010001100110001011100110110001101111011001110000000001100011001110100101110001110100011010011000101110011000100110100101101110000000000110100100100100
 
Et voici la fonction de décodage
et oui j'y suis arrivée car j'avais réussi à trouver de la doc
 
chainepass="GAEAAAAAAADQBwAACgAAABQAAAD6AAAADAAAAAIAAAAFAAAAAgAAACgAAAAAAAAAAAAAAAAAAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAyAAAAAAAAAAAAAACamZmZmZnJP5qZmZmZmck/QAAAAAAAAACAAAAAAAAAAAAAAAAAAAAAgAIAAOABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOA/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAEAAAD/////AQAAAEM6XGRpdnhwYXNzLmxvZwBjOlx0ZXN0LmRpdngAYzpcbXZpbmZvLmJpbgBp"
 
 
 
 
 
 
 
lngfpass=len(chainepass)
 
 
Rem -----------------------------------------
Rem Decodage chaine premiere passe
Rem -----------------------------------------
 
Dim fpassbin, spassbin
 
 
 
Do  
 
pos=pos+1
MyVar=""
MyVar = Mid(chainepass,pos,1)  
 
Select Case MyVar
 
case "A" result="000000"
case "B" result="000001"
case "C" result="000010"
case "D" result="000011"
case "E" result="000100"
case "F" result="000101"
case "G" result="000110"
case "H" result="000111"
case "I" result="001000"
case "J" result="001001"
case "K" result="001010"
case "L" result="001011"
case "M" result="001100"
case "N" result="001101"
case "O" result="001110"
case "P" result="001111"
case "Q" result="010000"
case "R" result="010001"
case "S" result="010010"
case "T" result="010011"
case "U" result="010100"
case "V" result="010101"
case "W" result="010110"
case "X" result="010111"
case "Y" result="011000"
case "Z" result="011001"
case "a" result="011010"
case "b" result="011011"
case "c" result="011100"
case "d" result="011101"
case "e" result="011110"
case "f" result="011111"
case "g" result="100000"
case "h" result="100001"
case "i" result="100010"
case "j" result="100011"
case "k" result="100100"
case "l" result="100101"
case "m" result="100110"
case "n" result="100111"
case "o" result="101000"
case "p" result="101001"
case "q" result="101010"
case "r" result="101011"
case "s" result="101100"
case "t" result="101101"
case "u" result="101110"
case "v" result="101111"
case "w" result="110000"
case "x" result="110001"
case "y" result="110010"
case "z" result="110011"
case "0" result="110100"
case "1" result="110101"
case "2" result="110110"
case "3" result="110111"
case "4" result="111000"
case "5" result="111001"
case "6" result="111010"
case "7" result="111011"
case "8" result="111100"
case "9" result="111101"
case "+" result="111110"
case "/" result="111111"
     End Select
 
fpassbin=fpassbin&result
Loop Until pos=lngfpass
 
NB (c'est en vbs)
Maintenant je cree la fonction d'edition du binaire et de recodage)
Comme quoi comme on chercher  on peut que trouver
 
 
 

Tiens, j'avais tenté de modifier cette chaîne... certains paramètres évoluent bizarrement.
Leur valeur interne n'est pas celle affichée par les contrôles. Peut-être même qu'il y a des flottants ?
 
Vu qu'elle est de toutre façons si longue, ils auraient pu mettre de l'hexadécimal !
 
Pour réencoder, on fait l'inverse:

Mais:
D'une part on peut peut-être faire mieux.
D'autre part il te faudra sûrement des fonctions de conversion entier<->chaîne binaire.
 
Voici les miennes en VB6: