pb cela ne veut pas se mettre a la lign

salut j'ai fais un code qui permet de mettre a laligne chaque chaine qui est avant un ; le pb c'est qu'il m'enléve bien les ; mais ne me l'ai mes pas a la ligne. Voici le code
Private Sub Command4_Click()
Dim st As String
Dim St1() As String
st = "dede; toto;2;12055;;;;12548;;;;OK;;;;0;;"
St1() = Split(st, ";")
For i = 0 To UBound(St1)
   Text2.Text = Text2.Text & St1(i)
Next i
End Sub
il m'affiche tous comme ca dedetoto212005................et moi je veux
toto
dede
210055
merci de bien vouloire m'aider j'ai chercher m'ai ai pas trouver pb

Salut,
C'est normal si tu ne lui indique pas un retour à la ligne.

For i = 0 To UBound(St1)
   Text2.Text = Text2.Text & St1(i) & vbcrlf
Next i

merci mai vbcrlf m'affiche de cette facon toto||dede||20145 il me les mets entre pipes et non a la ligne c bizarre car je savais que c'était considéré comme le passage à la ligne. (tout ca est fais en vb6)

 

Il est d'ailleurs, cent fois plus simple de faire :
Text2.Text = Replace (st,";",vbcrlf)

;)

Mindiell Software

MINDIELL ta méthode fonctionne aussi bien mais pourquoi vbcrlf ne me fais pas passer a la ligne c peut être parce que c'est un text box je vais essayer avec un label

ca fonctionne ds un label sa me les met a la ligne.
merci qd mm

j'ai un autre pb aprés que sela a été fais je voudrais mettre toute ses valeur dans des variable pour pouvoir les rappeler ensuite et les mettre ds l'ordre que je désire.mais je ne sais pas comment faire.

merci sa fonctionne et si je veut mettre ses variable ds une chaine de caractere pour pouvoir les rappeller et les remmetre ds l'ordre que je veux comment faire

met dans les declarations générales
Dim Ligne(100) ' j'ai mis jusqu'a 100 lignes tu peux adapter
'et en suite soit dans une function soit dans un commandbutton par exemple

a = Text1.Text
numero = 1
For n = 1 To Len(a)
lettre = Mid$(a, n, 1)
If lettre = Chr$(13) Then
: Ligne(numero) = mot
: numero = numero + 1
: mot = ""
: GoTo suivant
Else
: mot = lettre & mot
End If
suivant:
Next


Ensuite pour lire la ligne 4 par exemple tu mets
MsgBox Ligne(4)

Voila