Discussion :

[will2taz]

Bonjour à tous,

Voilà, j ai dans mon application une valeur obtenue qui est de type "tableau de byte[]". J'arrive à afficher ce fameux tableau de byte[], mais je souhaiterais savoir s'il était possible d'obtenir une convertion de ces bytes en string ??

Par exemple avec le tableau de bytes suivant : "004802500025100010202033000012902420911081530025000251000100038227410000"

Merci a tous.

[Aspic]

Bonjour à tous,

Voilà, j ai dans mon application une valeur obtenue qui est de type "tableau de byte[]". J'arrive à afficher ce fameux tableau de byte[], mais je souhaiterais savoir s'il était possible d'obtenir une convertion de ces bytes en string ??

Par exemple avec le tableau de bytes suivant : "004802500025100010202033000012902420911081530025000251000100038227410000"

Merci a tous.

Oui avec la classe System.Text.Encoding

Code :

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

Dim Tab_String As String = System.Text.Encoding.UTF8.GetString(Tableau_Byte)

[will2taz]

Merci Aspic, mais après avoir essayer, voici ce que j'obtiens :

Impossible d'effectuer un cast d'un objet de type 'System.String' en type 'System.Byte[]'.

Une idée ???

Merci

[Aspic]

Merci Aspic, mais après avoir essayer, voici ce que j'obtiens :



Une idée ???

Merci

Puis je voir ton code complet ?

[will2taz]

Oui, le voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12

While oReader.Read()
 Dim binaryStream As SqlTypes.SqlBinary = oReader.GetSqlBinary(0)
 Dim segBody AsByte() = SqlTypes.SqlBinary.op_Explicit(binaryStream)
 Dim ph AsObject = ""
 ForEach byteId AsByteIn segBody
    ph = ph & byteId
 Next
 ListBox.Items.Add(ph)
 Dim Tab_String AsString = System.Text.Encoding.UTF8.GetString(ph)
EndWhile

[Aspic]

Normal c'est ca qu'il faut faire :

Code :

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

 Dim Tab_String AsString = System.Text.Encoding.UTF8.GetString(segBody)

Mais je ne comprends pas bien ton code... De plus ph est déclaré Object c'est quoi son type ?

[will2taz]

Si tu ne comprend pas trop mon code, c'est normal, je débute en programmation VB alors je n'ai pas encore acquis les bon principes de programmation

Voici mon code en entier, cela t'aidera peut être :

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strConnexion AsString = "Data Source=(local);Integrated Security=SSPI;Initial Catalog=ENTREPRISES"
Dim strRequete AsString = "SELECT BinData FROM Sauvegarde"

Try
Dim oConnection AsNew SqlConnection(strConnexion)
Dim oCommand AsNew SqlCommand(strRequete, oConnection)
oConnection.Open()

Dim oReader As SqlDataReader = oCommand.ExecuteReader()

Do
ListBox.Items.Add(oReader.GetName(0))
ListBox.Items.Add("-------------------")

While oReader.Read()

Dim binaryStream As SqlTypes.SqlBinary = oReader.GetSqlBinary(0)
Dim segBody AsByte() = SqlTypes.SqlBinary.op_Explicit(binaryStream)

Dim ph As String = ""

ForEach byteId AsByteIn segBody
ph = ph & byteId
Next

ListBox.Items.Add(ph)

EndWhile

LoopWhile oReader.NextResult()

oReader.Close()
oConnection.Close()

Catch ex As Exception
MsgBox(ex.Message)
EndTry

EndSub

Ou dois-je intégré ton code stp ???

Merci beaucoup

[Aspic]

Ok c'est une application pour récupérer des données dans une base. Mais que veux tu faire exactement et pourquoi veux tu convertir ton tableau de Byte en string ?

[will2taz]

Oui, voila, en fait, il faut que je décode ces valeurs et les affichés en string... Peut être existe t il un autre moyen plus efficace, mais la je peine...

Pour infos, je type du champ dans la base est du 'varbinary', je pense qu'on peut le convertir en string ou autre pour obtenir de façon lisible une valeur en chaînes de caractères...

Peut être que je me plante complétement ???

Merci pour ton aide...

[Aspic]

Dans cette variable :

Code :

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

Dim segBody AsByte() = SqlTypes.SqlBinary.op_Explicit(binaryStream)

tu récupères ton tableau de byte ?

Alors pour le convertir il faut faire :

Code :

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

Dim Tab_String As String = System.Text.Encoding.UTF8.GetString(segBody )

[will2taz]

Ok, sa passe, mais sa ne renvoit rien (du blanc)

Je pense que je dois me planter quelque part...

[Aspic]

Ok, sa passe, mais sa ne renvoit rien (du blanc)

Je pense que je dois me planter quelque part...

Mets un point d'arret et vérifie que ton tableau de byte n'est pas vide ! Vérifie aussi ton binaryStream

[will2taz]

Je viens d'avoir une info... Il s'agit en fait d'une donnée provenant d'un "dump hexa"

Penses tu qu'il est possible d'en tirer quelque chose ?

Merci

[Aspic]

Je viens d'avoir une info... Il s'agit en fait d'une donnée provenant d'un "dump hexa"

Penses tu qu'il est possible d'en tirer quelque chose ?

Merci

Sincerement aucun idée je ne connais pas ce type de donnée

[will2taz]

Ok, merci beaucoup pour ton aide, tout ceci ma quand même bien éclairé !