Discussion :

[yaume91]

Bonjour,

J'ai vraiment du mal avec les conversions de chaines sous vb.net.
J'aimerai pouvoir convertir une chaine string contenant du binaire (mais pas forcement sur 8 bits, ca peut etre 9 ou 7, etc..) en hexa.

ci dessous la fonction que l'on m'a donné pour convertir de l'hexa vers du binaire que je trouve tres bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Private Function ConvertHexToBin(hex As String) As String
        Return String.Concat(hex.Select(Function(c) Convert.ToString(Convert.ToInt32(c, 16), 2).PadLeft(4, "0"c)))
    End Function

J'ai essayé de l'adapter pour faire l'inverse , mais je n'arrive pas à la faire fonctionner, merci pour vos idées, par avance.
J'avoue ne pas tous comprendre dans cette fonction que j'utilise et qui fonctionne tres bien, pour ma part j'avais modifié comme suit, mais j'ai vraiment pas du tout comprendre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
	    Private Function ConvertirUneChaineBinenHex(bin As String) As String
        Return String.Concat(bin.Select(Function(c) Convert.ToByte(Convert.ToInt32(c, 2), 16).PadLeft(4, "0"c)))
    End Function

[hacker59]

Bonjour,

voici en image :


Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        TextBox4.Text = BinToHex(TextBox3.Text)
    End Sub
 
    Private Function BinToHex(Bin As String) As String
        If Bin Is Nothing Then
            Throw New ArgumentNullException("bin")
        End If
        If Bin.Length Mod 8 <> 0 Then
            Throw New ArgumentException("La longueur doit être un multiple de 8", "bin")
        End If
 
        Dim hex = Enumerable.Range(0, Bin.Length / 8).Select(Function(i) Bin.Substring(8 * i, 8)).Select(Function(s) Convert.ToByte(s, 2)).Select(Function(b) b.ToString("x2").ToUpper)
        Return String.Join(Nothing, hex)
    End Function

Cordialement,

[François DORIN]

Bonjour,

Attention, le code ne répond pas exactement au besoin. Il faut qu'il marche quelque soit la longueur de la chaîne d'entrée. Hors le code que tu fournies ne fonctionne que pour des codes dont la longueur est un multiple de 8.

[jopopmk]

Salut, le Linq est-il vraiment nécessaire ici ?
La chaine en entrée peut-elle dépasser 64 char ?

[yaume91]

Bonsoir,

Merci pour vos contribution.
Visiblement le code fonctionne pour une chaine binaire pas forcement sur 8 bits.

Par contre j'ai le warning suivant "conversion de double en integer" sur "bin.lenght" au niveau de cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim hex = Enumerable.Range(0, Bin.Length / 8).Select(Function(i) Bin.Substring(8 * i, 8)).Select(Function(s) Convert.ToByte(s, 2)).Select(Function(b) b.ToString("x2").ToUpper)

Pour ma part, j'avais fais ca dans mon coin qui a l'air de fonctionner, mais qui est peut être un peu plus archaïque dans la méthode:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
	Private Function ConvertirBinenOctet (bin As String) As String
		Dim chaineOctet As String = ""
		Dim x = 0
		Do While x < bin.Length
		x = x + 4	
		Dim Octet = Convert.ToString(Convert.ToByte(bin.Substring((bin.Length-x),4),2),16).ToUpper
		chaineOctet = Octet + chaineOctet
		Loop
		Return chaineOctet
	End Function

[François DORIN]

Visiblement le code fonctionne pour une chaine binaire pas forcement sur 8 bits.

Attention, le fait que cela te retourne un résultat ne signifie pas que le résultat est correct ! Si tu testes les valeurs suivantes, tu constateras que :

• "10" = (rien)
• "0010" = (rien)
• "00000010" = 02
• "000000010" = 01 !!!

Pour ma part, j'avais fais ca dans mon coin qui a l'air de fonctionner, mais qui est peut être un peu plus archaïque dans la méthode:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
	Private Function ConvertirBinenOctet (bin As String) As String
		Dim chaineOctet As String = ""
		Dim x = 0
		Do While x < bin.Length
		x = x + 4	
		Dim Octet = Convert.ToString(Convert.ToByte(bin.Substring((bin.Length-x),4),2),16).ToUpper
		chaineOctet = Octet + chaineOctet
		Loop
		Return chaineOctet
	End Function

Des fois, les solutions simples sont les plus efficaces

Les solutions à base de requête Linq ont l'avantage d'être souvent compact, mais au prix d'un surcoût en terme de performance.

[jopopmk]

Re,

au cas où (avec la limite précisée plus haut) : txtOutput.Text = Convert.ToInt64(txtInput.Text, 2).ToString("X");

Bonne continuation.

[hacker59]

Bonsoir,

j'ai modifier mon code, il fonction avec 4 chiffre en longueur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Function BinToHex2(Bin As String) As String
        If Bin Is Nothing Then
            Throw New ArgumentNullException("bin")
        End If
        If Bin.Length Mod 4 <> 0 Then
            Throw New ArgumentException("La longueur doit être un multiple par 4", "bin")
        End If
        Dim hex = Enumerable.Range(0, Bin.Length / 4).Select(Function(i) Bin.Substring(4 * i, 4)).Select(Function(s) Convert.ToByte(s, 2)).Select(Function(b) b.ToString("x").ToUpper)
        Return String.Join(Nothing, hex)
    End Function

cordialement,

[yaume91]

Merci à tous pour vos reponses et explications.
En effet mes chaines binaires ne seront pas forcement un multiple de 4 bits, genre je peux avoir 7 ,115, .... du coup je vais voir si je peux adapter votre réponses à mon cas perso.


Merci encore à vous tous.