Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 183 fois - Téléchargée 44 fois
Private Function charAt(s As String, i As Integer) As String charAt = Right(Left(s, i), 1) End Function Private Function cuter(s As String, i As Integer, sep As String) As String 'renvoit le ieme element dont le separateur est sep, dans s Dim s1 As String Dim nb As Integer Dim j As Integer Dim b As Boolean s1 = "" nb = 0 b = False For j = 0 To Len(s) If nb = i And charAt(s, j) <> sep Then s1 = s1 + charAt(s, j) b = False Else If charAt(s, j) = sep And b = False Then nb = nb + 1 b = True Else If charAt(s, j) <> sep Then b = False End If End If Next j cuter = Trim(s1) End Function
7 mai 2002 à 08:58
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.