Couper un text en 2

Signaler
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014
-
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014
-
BOnjours, je fait présentement un programme et j'ai une ListBox qui contient environs 900 Lignes, chaque lignes contient 13 caractères, exemple : Ligne 1 = asdfgh:zxcvbn , Ligne 2 = 147896:123456 , je cherche un moyen que dans mon Textbox 1 je me retrouve avec asdfgh et 147896 , dans mon Textbox 2 ce qui est après les : donc , zxcvbn et 123456 Merci!

8 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Wow, j'ai pas tout compris.
Tu as des lignes de 13 caractères de long au format xxxxxx:yyyyyy et tu veux récupérer les 2 parties séparément ?
Pas compliqué :
Dim ligneTab(1) As String : ligne = Split(ligne,":")
Me.Text1.Text = ligneTab(0)
Me.Text2.Text = ligneTab(1)
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Enfait jai xxxxxx:yyyyyy Dans un listbox et je désire séparé les x des y
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Facile alors (ici il le fait en fonction de la sélection) :
With Me.List1
 Dim ligneTab() As String:
 ligneTab = Split(.List(.ListIndex), ":")
End With
Me.Text1.Text = ligneTab(0)
Me.Text2.Text = ligneTab(1), ----
[../code.aspx?ID=41455 Syntax color by Renfield]
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Oh, j'avais oublié de vérifier si une ligne était sélectionnée :
If Me.List1.ListIndex >= 0 Then
 With Me.List1
   Dim ligneTab() As String
   ligneTab = Split(.List(.ListIndex), ":")
 End With
 Me.Text1.Text = ligneTab(0)
 Me.Text2.Text = ligneTab(1)
End If , ----
[../code.aspx?ID=41455 Syntax color by Renfield]
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Hmm c'est tu possible de prende toujours la première ligne du Listbox sans nécésairement le sélectionner?
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
37
Bonsoir,

Biensur que c'est possible, remplace .ListIdex par 0, la proprité ListIndex retourne le N° de la ligne sélectionné.

@+ Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
37
Ah j'oubliais dans ce cas, il ne faut pas vérifier qu'une ligne est sélectionné, mais que la liste ne soit pas vide : 

With  List1
If .ListCount <> 0Then
   DimligneTab() As String
   ligneTab = Split(.List(0), ":" )
   Text1 = ligneTab(0)
   Text2 = ligneTab(1)
End If
End With

@+ Mayzz.
                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <
Messages postés
140
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
28 août 2014

Super MErci BEaucoupp!!