Séparateur

Description

voila qqchose de simple
comment recuperer une chaine de charactere avant et apres un separateur,de la manière la plus simple qui soit.(j'ai fait cette source car les votres me parraisse trop touffu et trop anglaise ! n'oubliez pas d'ou vous venez,ne vous sentez pas obligés de declarer en anglais du style getstringafter.....c'est débile)

Source / Exemple :


Function Avant(Text As String, Separateur As String) As String
Dim a, b As Integer
'récupère la position du separateur
a = InStr(Text, Separateur) - 1
' Avant est egal au texte à gauche du separateur
Avant = Left(Text, a)
End Function
Function Apres(Text As String, Separateur As String) As String
Dim a, b As Integer
'récupère la position du separateur
a = InStr(Text, Separateur)
'On enleve au texte la position de ce dernier
b = Len(Text) - a
' et on recupère tout ce qu il y a Apres
Apres = Right(Text, b)
End Function

Conclusion :


+ une source qui le met en application

Codes Sources

A voir également

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.