Fonction rightof

Commenter

Contenu du snippet

Celle la elle se mêle pas au moin
Salut/Salutation
Va sortir Salutation

Source / Exemple : 


Private Function RightOf(Chaine As String, Delim As String) As String
Dim a As Integer
Dim LeStop As Boolean
Chaine = Chaine & " "
LeStop = False
For a = 1 To Len(Chaine)
If Mid(Chaine, Len(Chaine) - a, 1) = Delim Then LeStop = True
If LeStop = True Then Exit Function
RightOf = Mid(Chaine, Len(Chaine) - a, a)
Next a
End Function

Conclusion :


En passant j'ai ouvert un channal #VisualBasic_Français sur ICQnet pour MIRC si sa vous interresse irc.icq.com port 6667

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_max12)