manipuler un string contenant de l'hexa

Version imprimable

07/05/2017, 22h51
yaume91

manipuler un string contenant de l'hexa
Bonjour,

Je me sens coincé.
Dans mon code je vais lire le contenu d'un fichier texte qui contient des lignes correspondant à des octets

la ligne dans mon fichier ressemble à ca:

Code:

RECORD 07 01 = 24 39 28 01 08 24 E2 10 48 CC 00 08 08 04 80 80 00 00 00 00 00 00 00 00 00 00 00 00 00

que je récupère ainsi:

Code:

Dim mavariable As String = Split(contenu_monfichier(16).ToString, "=")(1).Replace(" ","")

ce qui me permet de récupérer que ce qui m’intéresse, à savoir:

Code:

243928010824E21048CC00080804808000000000000000000000000000

J'aimerai ensuite pouvoir convertir cette chaine hexa (mais que je récupère sous forme de string) en binaire pour avoir un truc comme ca:
Code:

1 2 0010010000111001..............................................
pour pouvoir ensuite extraire des parties, genre les 6 premiers bits correspondent au code d'une agence, les 7 suivants au bureau, etc...

Quelqu'un pourrait il m'aiguiller ?

Merci

Bonsoir,

Comme ceci :

Code:

1
2
3
4
5
 
   Dim hexStr As String = "243928010824E21048CC00080804808000000000000000000000000000"
   Dim binStr = String.Join("", hexStr.Select(Function(f) Convert.ToString(Convert.ToInt32(f + "", 16), 2).PadLeft(4, "0"c)))
 
   MsgBox(binStr)

07/05/2017, 23h30
yaume91

Merci, mais ca me met l'erreur "Select n'est pas un membre de string"
08/05/2017, 07h48
François DORIN

Bonjour,

Il doit juste te manquer un using System.Linq;.

1 pièce(s) jointe(s)

Bonjour,
Pièce jointe 272596

voici le code :

Code:

1
2
3
4
5
6
7
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = ConvertHexToBin(TextBox1.Text)
    End Sub
 
    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’espère j'ai bien répondu a ta question?

Cordialement,

08/05/2017, 14h20
wallace1
Citation:

Envoyé par yaume91

Merci, mais ca me met l'erreur "Select n'est pas un membre de string"

Comme évoqué par f.dorin à un détail près (en vbnet) il faut ajouter cet import :
Code:

1 2 Imports System.Xml.Linq
A+
08/05/2017, 14h22
yaume91

Citation:

Envoyé par François DORIN

Bonjour,

Il doit juste te manquer un using System.Linq;.

Merci, mais ca se met ou ca ?:D
Je debute en vb.net, alors je ne suis pas encore tres familiariser

merci
08/05/2017, 14h35
François DORIN

Citation:

Envoyé par yaume91

Merci, mais ca se met ou ca ?:D

Alors, suite à une correction fort juste de wallace1, c'est Imports System.Linq qu'il faut rajouter. La version que j'avais donné était effectivement pour du C#, pas du VB.Net ! Par contre, c'est bien Imports System.Linq et non Imports System.Xml.Linq qui te manque (à deux, on devrait y arriver wallace1 ;) )

Normalement, c'est en début de fichier. Tu dois avoir une série d'instructions imports au début de ton fichier. C'est ici qu'il faut le rajouter.
08/05/2017, 15h51
yaume91

Merci ca marche nickel.
Ca m'evite d'avoir une fonction à rallonge que j'avais trouver et adapter.