JihEmAir a écrit :
En supposant que ta zone de texte s'appelle lstText, tu récupères le contenu de la liste dans la variable strTemp sans retour chariot...
Dim strTemp As String
Dim i As Integer
For i = 0 To lstText.ListCount - 1
strTemp = strTemp & lstText.List(i)
Next i
Debug.Print strTemp
|
ca marchera pas ton code ! Dans une boucle c'est des chiffres qu'il faut mettre et pas des caractères ce n'est pas ce que t'as mis en seconde partie (lsttex...)
Code :
- dim i as integer
- for i = 1 to len(zonetexte)
- strTemp = mid(zonetexte,1,i)
- if strTemp <> chr(13) then
- strTemp =strTemp + strTemp
- end if
- next i
- msgbox(strTemp)
|
superpingu : vérifie la fonction "mid" j'ai peut-être inversé le '1' et le 'i', j'ai pas Vb sous les yeux, et ensuite le code ASCII du retour chariot, je crois que c'est chr(13); mais sans conviction non +. Le but de de petit bout c'est le prendre chaque caractère, de détecter si le caractère retournée est = chr(13) et de les reasembler !
Message édité par cvb le 22-04-2004 à 09:42:21