Split a 1 ou 2 niveaux

Commenter

Contenu du snippet


Source / Exemple : 


'Function split a 1 ou 2 niveaux
'1- a un niveau lorsque PosN2 = 0
'2- a 2 niveaux lorque PosN2 >= 1

'ex :
'si chaine = "a1$b1#a2$b2#a3$b3"
'spameliore(chaine,1,1)  rend   "a1"
'spameliore(chaine,1,0) rend    "a1$b1"
'spameliore(chaine,2,2) rend    "b2"

public Function SpAmeliore(Chaine As String, PosN1 As Integer, PosN2 As Integer)
Dim DataP1
Dim Tableau1() As String
Tableau1() = Split(Chaine, "#", -1)
DataP1 = Tableau1(PosN1 - 1)
If PosN2 = 0 Then SpAmeliore = DataP1: Exit Function
Dim Tableau2() As String
Tableau2() = Split(DataP1, "$", -1)
SpAmeliore = Tableau2(PosN2 - 1)
End Function

Conclusion :


Mettez cette function dans un module et vous l'utiliserez tot ou tard.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_bassma)