Explique comment se servir de la fonction split
Source / Exemple :
Dim st As String
Dim St1() As String
st = "17;18;19;20"
St1() = Split(st, ";")
For i = 0 To UBound(St1)
MsgBox St1(i)
Next i
Conclusion :
Vous donnera successivement 17 18 19 et 20 dans un msgbox.
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....
1. Dim st, St1
2. st = "17;18;19;20"
3. For Each St1 In Split(st, ";")
4. MsgBox St1
5. Next
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,
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.