Page 1 sur 1
[Résolu]String To Array Byte
Publié : dim. 31/août/2014 9:57
par 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
Re: [Aide]String To Array Byte
Publié : dim. 31/août/2014 10:03
par 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
Re: [Aide]String To Array Byte
Publié : dim. 31/août/2014 11:22
par N00B
GallyHC a écrit :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
Re: [Aide]String To Array Byte
Publié : dim. 31/août/2014 18:09
par 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.
Re: [Aide]String To Array Byte
Publié : dim. 31/août/2014 18:57
par 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
Re: [Aide]String To Array Byte
Publié : dim. 31/août/2014 19:20
par N00B
Micoute a écrit :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