Compression d'un binaire

Nous travaillons sur cet exercice et on a trouvé des difficultés à le résoudre.
SVP, si vous pouvez nous aider à le resoudre:)


Un CODEC est un logiciel compresseur décompresseur de fichiers. En effet, les suite de bits composant un fichier
comportent des similitudes comme 10000111. Plutôt que de stocker la totalité de cet octet, on gagne de la place en
écrivant 14031 (qui se lit un quatre zéros trois un). Cet octet (huit bits) retrouva ensuite son format original à la
décompression.
Il s'agit alors de saisir une chaîne de huit chiffres formée uniquement 0 et 1 pour désigner un octet puis la compresser
suivant le principe de compression du CODEC et enfin l'afficher.
Exemple :
Si octet = ˝10010111˝ Alors l'octet compressé est : ˝1201031˝


Voici le code VB:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

Module Module1 Sub Main() Dim tab() As String Dim ok As Boolean = True Dim i, l, occ As Integer Dim car As String Dim octet As String = "" Dim oct As String Console.WriteLine( "Tapez la valeur de l'octet") oct = Console.ReadLine l = oct.Length ReDim tab(l) For i = 0 To l - 1 tab(i) = oct.Substring(i, 1) Console.WriteLine(tab(i)) Next   Do If tab(i) <> 0 Or tab(i) <> 1 Then i = i + 1 End If Loop Until (ok = False) Or (i > 8) And l = 8 i = 1 Do occ = 1 ok = True Do If tab(i) = tab(i + 1) Then occ = occ + 1 i = i + 1 Else ok = False End If Loop Until ok = False Or i > 8 If occ = 1 Then octet = oct & occ Else Console.WriteLine(oct & occ) End If i = i + 1 Loop Until i > 8 Console.WriteLine( "l'octet compressé est" & octet) Console.ReadKey() End Sub End Module

---

J'étais habitué à voir le CODEC comme un logiciel qui fait que j'ai de la vidéo et du son sur mon pc ... :aie:

Blague à part, peut de nous seront prêt à faire l'exercice pour toi. Alors dit nous précisément sur quel point tu bloques (qu'est-ce que ton code fait ? qu'est-ce qu'il fait mal ?, etc..).

je ne reçoit pas message d'erreur.
Il boucle à l'infinie.

Je suis débutant en VB et j'ai voulu travailler cet exercice.
Si vous pouvez m'aider à le réaliser

merci

Je hais le vb... :aie:
Bon, quelques remarques :

Code:

---

ReDim tab(l)

---

Alors que je pensais que ReDim tab(l) créait un tableau de taille l, il crée un tableau de taille (l+1) alors déjà utilise ReDim tab(l-1). (Pourquoi crée un tableau de 9 cases pour stocker 8 éléments ?)

Code:

---

Do

---

Apparemment tu te perds avec les Do..While (et moi aussi d'ailleurs, c'est illisible). Essayes de refaire ton programme avec que des boucles For, au moins là tu vois exactement d'où tu pars et où tu arrives alors que là j'ai l'impression que la condition de fin est faite un peut au hasard ...

Code:

---

tab(i) = tab(i + 1)

---

Du coup fait attention, ton i doit aller pour un tableau de 8 éléments de 0 à 6 car 6+1=7 est valide mais pas 7+1=8 (on compte à partir de 0, donc l'élément 8 sur un tableau de 8 éléments n'existe pas).

Code:

---

1 2 3 4 5

If occ = 1 Then octet = oct & occ Else Console.WriteLine(oct & occ) End If

---

Dans le cas "Else", comment tu rajoutes occ dans oct ? donc finalement le occ tu le laisses dans le néant j'ai l'impression, il faudrait toujours faire octet = oct & occ (quelle abération, utiliser & pour concaténer, l'est bizarre VB :aie:)

C'est tout pour l'instant, essayes de refaire avec les z'indications.

Cela dit concernant ton algorithme, j'espère que tu vous avez bien analysé les probabilités des séquences de données, car dans le cas le moins favorable, ton fichier compressé fera le double du fichier initial. ;)

Citation:

---

Envoyé par SaumonAgile

Cela dit concernant ton algorithme, j'espère que tu vous avez bien analysé les probabilités des séquences de données, car dans le cas le moins favorable, ton fichier compressé fera le double du fichier initial. ;)

---

Si tu parles du fait de rencontrer:
1 0 1 0 1 0

Et que le CODEC le modifie en:
11 10 11 10 11 10

Je crois pas que ça fasse ça selon la description initial de notre ami. Du moins j'espère bien, sinon c'est complètement stupide..héhé

C'est tout de même intéressant comme compression...
http://fr.wikipedia.org/wiki/Codec

Bon j'avais du temps à perdre...

Sous VS08.
Ça ouvre avec un OpenFileDialog le fichier voulu.
Crée un fichier avec le même nom + "codé".
Compresse à la manière initiale, et pas que les 1/0 mais n'importe quel char qui se répête (TOUS! chiffres, lettre, espace, etc.)
Écrit le résultat dans le nouveau fichier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Private Sub BTOuvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTOuvrir.Click Dim SR As StreamReader = Nothing Dim SW As StreamWriter = Nothing Dim fichier As Stream Dim OFD As New OpenFileDialog Dim tampon As Char = "" Dim compteur As Integer = 1 Dim fin As Boolean = False   OFD.InitialDirectory = "c:\" OFD.FileName = "" OFD.Filter = "Text files (*.txt)|*.txt" OFD.FilterIndex = 2 OFD.RestoreDirectory = True OFD.ShowDialog() fichier = OFD.OpenFile()   SR = New StreamReader(fichier) SW = File.CreateText(Replace(OFD.FileName, ".txt", "") + "_codé.txt")   tampon = Convert.ToChar(SR.Read)   While SR.EndOfStream = False While tampon = Convert.ToChar(SR.Peek()) tampon = Convert.ToChar(SR.Read) compteur += 1   If SR.Peek = -1 Then fin = True Exit While End If End While   If compteur > 1 Then SW.Write(compteur.ToString + tampon) Else SW.Write(tampon) End If   If fin = False Then tampon = Convert.ToChar(SR.Read) compteur = 1 End If End While   If compteur = 1 Then SW.Write(tampon) End If   SR.Close() SW.Close()   End Sub

---

Exemple:

Code:

---

1 2	1110000 000 aaaaaaaaaa b 10 10 111 00

---

Devient:

Code:

---

1 2	3140 30 10a3 b5 10 104 313 20

---

J'ai fait passé un fichier complétement aléatoire de 1/0 de 160kb à 124kb
J'ai fait passé un fichier truqué de 47kb à 2kb

C'est pas parfait et je sais que en décodant il y aura des problèmes comme:

1111111111 =codé= 101 =décodé= 101 :oops:

D'où le fait de les groupés par octet sûrement...

Mais bon là je n'ai plus de temps à perdre...héhéhé

Au fait ce que "vous" essayez de faire est sur quasiment le même principe que la compression RLE. Celà pourrai te donner des idées ... :roll:

Citation:

---

10000111 donne 14031 (qui se lit un quatre zéros trois un).

---

Question a 2 bits ...
Et pourquoi pas 1143 qui serait plus court ...:aie:
- 1 : La séquence commence par 1 "un"
- 1 : 1 "un"
- 4 : 4 "zero"
- 3 : 3 "un"

Citation:

---

Envoyé par smyley

Au fait ce que "vous" essayez de faire est sur quasiment le même principe que la compression RLE. Celà pourrai te donner des idées ... :roll:

---

Oui, c'est meme quasi la meme chose ;)
Mais vous vous cassez la tete juste pour pas grand chose, car c'est juste un exercice :

Citation:

---

Envoyé par dolsky

Je suis débutant en VB et j'ai voulu travailler cet exercice.

---

Citation:

---

Envoyé par Totanne

Et pourquoi pas 1143 qui serait plus court ...:aie:

---

Ca c'est deja plus interessant mon cher ;)
Juste que imaginons dans le pire des cas : 10101010 ca augmente la chose ... (reflexion) ... mais dans ce cas, on peut se baser sur du 64/256 bits :P

Ah intéressant...

En passant est-ce que dolsky suit encore la discussion...j'ai l'impression que c'est devenu un forum public sur les CODECs.

haha

Faudrait peut-être mettre résoudre :mouarf:

En fait si on veut faire court, le meilleur codec c'est celui ou 1111 1111 donne 255 ... :lol: