separation des caracteres

[Franck]

TVoila - dans un textbox j'ai un texte au hazard 'DJ357NT85btr'
je voudrai créer autant de variable qu'il y a de caracteres dans mon textbox et que chaque variable prene la valeur d'un caractere - Bien sur je ne metrise pas le nombre de caracteres de mon textbox

Merci d'avance et bon courage

 

[Robert]

Re:separation des caracteres RB

Bonjour Franck, bonjour le forum,

Voici quelques lignes de code que tu devras placer à l'endroit qui te paraît le plus adéquat et qui va générer autant de variables (string) que de lettres dans la TextBox1 :

Dim nb As Byte 'déclare la variable nb
nb = Len(TextBox1.Value) - 1 'définit la variable nb (nombre de caractère du Textbox1 - 1)
Dim vari() As String 'définit le tableau (de variables) vari
ReDim vari(nb) 'redimensionne le tableau vari (de 0 à nb éléments)
'boucle sur nb + 1 éléments (de 0 à nb)
For x = 0 To nb
vari(x) = Mid(TextBox1.Value, x + 1, 1) 'définit la variable vari(x)
Next x 'prochaine élément de la boucle
'la première lettre de la TextBox1 = vari(0), la seconde = vari(1), la troisième = vari(2).... jusqu'à vari(nb)

RB

Message édité par: Robert, à: 12/03/2005 20:07

 

[Franck]

Salut Robert

Merci pour ton aide et celle de bien d'autres

A + Franck