Discussion :

[fabienschmitt]

Voilà mon souci :
Voici ma chaine "1,5" et je souhaiterai ranger chacun des caractères constitutif dans un tableau et en récupérer le code Ascii.
Concrétement,

Code :

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

1
2
3
4
 
tab(1)=Asc("1")
tab(2)=Asc(",")
tab(3)=Asc("5")

Le tout à l'aide d'une boucle for. Comment recuperer chaque caractére individuellement ? La fonction Split() a besoin d'un séparateur!
Merci

[Najdar]

Bonjour fabienschmitt,

Crée un tableau à une dimension de la taille de ta chaine, fonction Len(), et utilise la fonction Mid().

[AlainTech]

Mid...


+

[Delbeke]

Sans boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command1_Click()
  Dim Txt As String
  Dim Tb() As Byte
  Dim iPnt As Integer
  Txt = "1234567890ABCDEF"
  Tb() = StrConv(Txt, vbFromUnicode)
  For iPnt = 0 To Len(Txt) - 1
    Print Chr$(Tb(iPnt))
  Next
End Sub

[AlainTech]

Code :

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

1
2
 
  Tb() = StrConv(Txt, vbFromUnicode)

Géniale, cette utilisation de StrConv.

Tu as trouvé ça où?
Certainement pas dans l'aide...

[fabienschmitt]

Voilà ce à quoi j'aboutie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim i As Integer
Dim n As Integer
Dim parts As String
Dim tabInt(1 To 3) As String
 
parts = "1,5"
n = 0
For i = 1 To Len(parts) Step 1
tabInt(i) = Asc(Mid(parts, 1 + n, 1))
MsgBox tabInt(i)
n = n + 1
Next i

Merci
Sinon Delbeke pourrais tu m'expliquer 2-3 truc ?
Pourquoi tu déclare tb() en Byte ?
Que fait exactement StrConv(Txt, vbFromUnicode) ?
et la fonction Chr$ ?
Et je n'arrive pas a faire en sorte que mon tableau soit de taille variable.
Je suis obligé de fixer la taille dés le début.

[ced600]

Tu peut utiliser Redim tableau() pour redimensionner un tableau.
Attention tu perds les données du tableau.
Avec le mot cle Preserve tu peut les conserver :

Code :

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

1
2
3
4
5
 
Dim tabInt(1 To 3) As String
'Remplissage du tableau
'Puis tu décide de redimensionner
ReDim Preserve tabInt (1 To 4) As String

Attention, j'ai utilisé redim uniquement en VBS, mais je suppose que cela fonction en VB6.

[Delbeke]

Sinon Delbeke pourrais tu m'expliquer 2-3 truc ?
Pourquoi tu déclare tb() en Byte ?
Que fait exactement StrConv(Txt, vbFromUnicode) ?
et la fonction Chr$ ?

l'aide en ligne de vb donne ceci comme définirion pour StrConv.

Code :

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

Renvoie une valeur de type Variant (String) convertie au format indiqué

vas regarder l'aide en ligne pour plus d'explication

La fonction chr$(x) convertit le chiffre x en son equivalent caractère
exemple chr$(65) retourne un A. la valeur de x étant comprise entre 0 et 255

je definis tb comme un tableau de byte, chaque element du tableau recevras le caractere ascii pour chacun des caractères comprenant ton string

j'utilise de façon non courante la fonction strconv, je dois bien le reconnaitre, mais c'est tres efficace. tu n'obtiens pas un tableau de type string, mais c'est vraiement pas grave a mon avis.