Aide pour comprendre une fonction

Version imprimable

Bonjour à tous

Je me suis mis depuis quelques heures à la programmation sur Visual basic .net

Je me vois contraint de convertire une varaible String en une suite de Byte . En gros j'aimerais visualiser quelque part les bytes que compose mon string.

Pour cela, j'ai écrit cela:

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
    '1)Création du message
 
    Private Sub BpSendMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpSendMsg.Click
 
 
        Dim IdMsgBinaire As String     'Valeur de l'ID du message associée à la TextBox
        Dim ValmsgBinaire As String    'Valeur du message contenu dans la messaeg bix
        Dim IdDatabinaire As String    'Valeur de la text box associée a l'ID data
        Dim toto As Int32
 
        'Conversion du string en integer
 
        IdDatabinaire = TxtMsgIdData.Text
        IdMsgBinaire = TxtMsgIdMsg.Text
        ValmsgBinaire = TxtMsgValMsg.Text
 
        'Appel de la fonction de conversion
 
        StrToByteArray(str:=IdDatabinaire)
 
 
        MsgBox(IdDatabinaire & "         " & IdMsgBinaire & "         " & ValmsgBinaire)
 
    End Sub
 
 
 
    Public Shared Function StrToByteArray(ByVal str As String) As Byte()
 
 
        Dim encoding As New System.Text.UTF8Encoding()
 
 
 
        Return encoding.GetBytes(str)
 
    End Function 'StrToByteArray

J'avoue, j'ai trouver sur le net la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
 
    Public Shared Function StrToByteArray(ByVal str As String) As Byte()
 
 
        Dim encoding As New System.Text.UTF8Encoding()
 
 
 
        Return encoding.GetBytes(str)
 
    End Function 'StrToByteArray

Le problème c'est qu'il n'y avais pas le mode d'emploi et je ne comprend pas comment récupérer le résultat de la conversion pour l'afficher.

Quelque peut-il éclairer ma lenterne ?

Par avance merci pour le temps consacré à me lire et/ou répondre.

Meilleures salutations

Vorens

21/03/2012, 15h03
shayw
Salut

Citation:

Le problème c'est qu'il n'y avais pas le mode d'emploi

bah il faut demander au magasin :aie:

comment récupérer le résultat de la conversion pour l'afficher.
si tu veux l'afficher dans un listbox
ta fonction StrToByteArray
Code:

1 2 3 4 5 dim mybytes() as byte mybytes = StrToByteArray("TOTO1234") For Each item In mybytes ListBox1.Items.Add(item) Next

Re,

Merci pour ta réponse =)

A force de me triturer le cerveau j'ai trouvé une solution comme sa

Code:

Dim R As Byte() = StrToByteArray(str:=IdDatabinaire)

En gros je range dans un tableau de byte le résultat quand j'appel la fonction et apres je l'affiche dans une message de box de façon artisanale
Code:

1 2 3 4 5 6 7 8 9 10 11 12 toto = R.Rank + 1 MsgByte = "" H = 0 For o As Integer = 1 To toto MsgByte = MsgByte & R(H) & vbLf H = H + 1 Next MsgBox(MsgByte)
et par miracle, sa a fonctionné.

Maintenant, j'essais de transcrire une variable en string =>Hexa => déc => byte => déc => Hexa

21/03/2012, 15h44
shayw

Tout d'abord si tu codes en vb.net
retire la réference visualbasic comme ça tu prendras la bonne habitude
de coder en pure vb.net
projet -> tonprojet properties -> reference
après compilation tu vas obtenir une erreur
vblf inconnu
vblf -> Environment.NewLine

tu veux convertir un nombre en hexa pas trop compris :roll:
21/03/2012, 15h50
Vorens
Re,

En fait j'aimerais l'afficher en format Hexa. tout fonctionne sauf ma derniere ligne de code que j'arrive pas a écrire.

RetourString = 15 format int32 (cette variable est traitée dans une fonction et sa valeur de sortie dans l'exemple est 15)
Code:

1 2 3 4 5 6 7 Dim ValRecuHexa As String = String.Format(RetourString,NumberStyles.HexNumber) ValRecuHexa.Format("D", RetourString, NumberStyles.HexNumber) MsgBox(ValRecuHexa)
Mon but, est que cette valeur de sortie de fonction 15 en décimale soit afficher dans ma message box en hexa donc F

Dans monde code "ValRecuHexa.Format" est souligné en vert avec l'erreur suivant:

Citation:

Accès d'un membre partagé, d'un membre de constante, d'un membre enum ou d'un type imbriquer via une instance; l'expression qualifiante ne sera pas évaluée

késako ?

Edit: en haut de code j'ai écrit les deux lignes suivant pour accèder a certaine possibilités
Code:

1 2 Imports System.IO Imports System.Globalization