[Résolu]String To Array Byte

[N00B]

Salut, j'ai une petite question comme je pourrais lire une string dans un tableau de bytes en PB? Voici mon code :

Code : Tout sélectionner

Dim BytesTableau.b(10)
MyStr.s = "12/\34/\-20/\32/\102/\-99/\0/\-23/\65/\87"

For i = 1 To 10
BytesTableau(i) = StringField(MyStr, i, "/\") 'ici il faut que je convertis la chaine qui a été extraites en Byte et je sais pas comment m'y prendre
Next

Merci d'avance et bonne journée

[GallyHC]

Bonjour,

Voila la petite modification très simple :

Code : Tout sélectionner

Dim BytesTableau.b(10)
MyStr.s = "12/\34/\-20/\32/\102/\-99/\0/\-23/\65/\87"

For i = 1 To CountString(MyStr, "/\")
  BytesTableau(i) = Val(StringField(MyStr, i, "/\"))
  Debug BytesTableau(i)
Next i
;
; ON RECUPERE LE DERNIER SI PAS "/\"
;
If Right(MyStr, 2) <> "/\"
  BytesTableau(i) = Val(StringField(MyStr, i, "/\"))
  Debug BytesTableau(i)
EndIf

Cordialement,
GallyHC

[N00B]

Bonjour,

Voila la petite modification très simple :

Code : Tout sélectionner

Dim BytesTableau.b(10)
MyStr.s = "12/\34/\-20/\32/\102/\-99/\0/\-23/\65/\87"

For i = 1 To CountString(MyStr, "/\")
  BytesTableau(i) = Val(StringField(MyStr, i, "/\"))
  Debug BytesTableau(i)
Next i
;
; ON RECUPERE LE DERNIER SI PAS "/\"
;
If Right(MyStr, 2) <> "/\"
  BytesTableau(i) = Val(StringField(MyStr, i, "/\"))
  Debug BytesTableau(i)
EndIf

Cordialement,
GallyHC

Je connaissais pas la fonction Val, Merci de ton aide problème résolu

[Micoute]

Bonjour N00B,

pour indiquer que ton problème à été résolu, tu édites ton post de départ et tu mets dans le titre [Résolu], de cette manière tout le monde la saura.

Merci.

[nico]

Le même code remanié pour en faire un usage général:

Code : Tout sélectionner

Dim BytesTableau.b(1)

MyStr.s = "12/\34/\-20/\32/\102/\-99/\0/\-23/\65/\87"

count.l = CountString(MyStr, "/\")
a = 0

If count > 1
  ReDim BytesTableau.b(count)
  For i = 1 To count + 1
    Valeur$ = StringField(MyStr, i, "/\")
    If valeur$ <> ""
      BytesTableau(a) = Val(valeur$)
      Debug BytesTableau(a)
      a = a + 1
    EndIf
  Next i
EndIf 

[N00B]

Bonjour N00B,

pour indiquer que ton problème à été résolu, tu édites ton post de départ et tu mets dans le titre [Résolu], de cette manière tout le monde la saura.

Merci.

C'est fait

@nico : merci pour ton aide , c'est résolu