Discussion :

[yaume91]

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 :

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

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 :

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

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 :

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

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 :

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

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

[wallace1]

Bonsoir,

Comme ceci :

Code :

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

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)

++

[yaume91]

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

[François DORIN]

Bonjour,

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

[hacker59]

Bonjour,


voici le code :

Code :

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

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,

[wallace1]

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 :

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

1
2
 
Imports System.Xml.Linq

A+

[yaume91]

Bonjour,

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

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

merci

[François DORIN]

Merci, mais ca se met ou ca ?

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.

[yaume91]

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