Bastou26
Messages postés4Date d'inscriptionmardi 12 avril 2005StatutMembreDernière intervention 4 juillet 2006 10 nov. 2006 à 03:46
Julbute, Pourquoi tu ne mets pas toutes tes lignes dans une seule variable (Tu peux faire un Replace(Variable,(chr(10),"") et Replace (Variable,chr(13),"") pour enlever les sauts de ligne. Ça te donnerais :
1153748,13/04/2006 03:02:35,1,SpaceManager,1153747,12/04/2006 22:06:25,1,RS_Global.asp,1153746,12/04/2006 22:06:08,1,RS_Global.asp, (sur une seule ligne)
Et tu pourrais faire ton split après.... Tu pourrais mettre aussi un if Morceau <> "" then pour t'assurer que ton dernier bloc ne soit pas un bloc vide....
Bastou26
Messages postés4Date d'inscriptionmardi 12 avril 2005StatutMembreDernière intervention 4 juillet 2006 10 nov. 2006 à 03:39
Bonjour, Voici une façon encore plus simple:
1. Dim st, St1
2. st = "17;18;19;20"
3. For Each St1 In Split(st, ";")
4. MsgBox St1
5. Next
cs_julbute
Messages postés8Date d'inscriptionmardi 4 avril 2006StatutMembreDernière intervention13 avril 2006 13 avril 2006 à 09:50
Bon ok dans ton exemple ça marche mais serais tu comment proceder si on devait effectuer un split sur plusieurs lignes et qu'il y a également un séparateur à la fin de chaque lignes.
exemple:
Nmiss
Messages postés1Date d'inscriptionmardi 8 février 2005StatutMembreDernière intervention16 mars 2005 16 mars 2005 à 18:01
Ça fonctionne mais moi, je l'essaie dans mon application et il m'affiche mes données plusieurs fois. Comment y remédier??
Voici mon code:
Dim strChaine() As String
Dim i As Integer
strChaine = Split(MonChamp, "|")
For i = 0 To UBound(strChaine)
txtTest = txtTest & strChaine(i) & vbNewLine
Next i
soldier8514
Messages postés295Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention24 janvier 20141 27 mai 2003 à 16:49
un petit 9/10 pour votre ingéniosité ( comparé à bon nombre qui ont crées des fonctions un peu trop lourde pour faire ce que vous faites le mieux en 7 lignes ;)
couriousous
Messages postés68Date d'inscriptionlundi 21 mai 2001StatutMembreDernière intervention 4 janvier 2003 1 mars 2002 à 20:17
et bien vu!!! bonne astuce!!
Clonk
Messages postés278Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention29 août 2006 28 févr. 2002 à 09:55
La fonction marche bien comme ça.
Bon tutoriel, même qi les explications manquent dans le code pour ceux qui ne la conaissent pas du tout.
10 nov. 2006 à 03:46
1153748,13/04/2006 03:02:35,1,SpaceManager,1153747,12/04/2006 22:06:25,1,RS_Global.asp,1153746,12/04/2006 22:06:08,1,RS_Global.asp, (sur une seule ligne)
Et tu pourrais faire ton split après.... Tu pourrais mettre aussi un if Morceau <> "" then pour t'assurer que ton dernier bloc ne soit pas un bloc vide....
10 nov. 2006 à 03:39
1. Dim st, St1
2. st = "17;18;19;20"
3. For Each St1 In Split(st, ";")
4. MsgBox St1
5. Next
13 avril 2006 à 09:50
exemple:
1153748,13/04/2006 03:02:35,1,SpaceManager,
1153747,12/04/2006 22:06:25,1,RS_Global.asp,
1153746,12/04/2006 22:06:08,1,RS_Global.asp,
16 mars 2005 à 18:01
Voici mon code:
Dim strChaine() As String
Dim i As Integer
strChaine = Split(MonChamp, "|")
For i = 0 To UBound(strChaine)
txtTest = txtTest & strChaine(i) & vbNewLine
Next i
27 mai 2003 à 16:49
1 mars 2002 à 20:17
28 févr. 2002 à 09:55
Bon tutoriel, même qi les explications manquent dans le code pour ceux qui ne la conaissent pas du tout.