rsx602
Messages postés140Date d'inscriptionjeudi 24 août 2006StatutMembreDernière intervention28 août 2014
-
2 juil. 2009 à 00:56
rsx602
Messages postés140Date d'inscriptionjeudi 24 août 2006StatutMembreDernière intervention28 août 2014
-
2 juil. 2009 à 03:08
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!
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 2 juil. 2009 à 01:12
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)
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 2 juil. 2009 à 01:42
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]
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 2 juil. 2009 à 01:44
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]
Vous n’avez pas trouvé la réponse que vous recherchez ?