Discussion :

[Hadware]

Bonjour, j'ai tenté de trouver ce genre de question sur le forum, mais n'ayant pas de mot-clé précis...impossible.
Bref: J'aimerai Séparer une chaine de charactère en un tableau de charactère, donc en gros si j'ai:

Code :

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

1
2
3
4
5
Chaine1 = "manger"
Dim Chaine2() as String
Chaine2(0) = "m"
Chaine2(1) = "a"
Chaine2(2) = "n"

... Et ainsi de suite.

Je saurai le faire en C avec des Char, mais en VB?

Merci d'avance

[ucfoutu]

Bonsoir,

les possibilités ne manquent pas ...
Je te laisserai faire seul une boucle For... to ... pour alimenter un tableau, caractère par caractère, en utilisant la fonction Mid... (trop simple).

Voici deux autres méthodes, que je préfère :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
  machaine = "Voilà"
  montableau = Split(StrConv(machaine, vbUnicode), Chr(0))
  'preuve
  For i = 0 To UBound(montableau) - 1
   MsgBox montableau(i)
  Next
End Sub
 
Private Sub Command2_Click()
   toto = "Voilà"
   Dim titi() As Byte
   titi = StrConv(toto, vbFromUnicode)
   For i = 0 To UBound(titi)
     MsgBox Chr(titi(i))
   Next
End Sub

J'ai un faible pour la seconde, qui évite le split.

[Hadware]

Okay merci bien!
Mais pourquoi préfères-tu sans le split?

[ucfoutu]

par avarice (et l'avarice n'est pas un défaut en développement informatique)