Séparateur

Soyez le premier à donner votre avis sur cette source.

Vue 3 946 fois - Téléchargée 239 fois

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

Ajouter un commentaire Commentaires
Messages postés
8
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
5 juin 2006

Bien que moi-même, je ne sois un très grand "Anglophyle", je trouve curieux ta remarque sur le choix de la langue... car, enfin, si tu est si fière d'être Français (et je le suis...), pourquoi avoir choisi "Blindman" comme pseudo?
Enfin, et quand même, merci pour la source!

Oups!! Pardon pour l'orthographe, il est vrai qu'il laisse à désirer sur le site (que j'apprécie par ailleurs...)
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Kelkun peut mexpliker ce que fait get?
Ben c'est vrai que GET c'est + court que RECUPERER
PUT que deposer etc...

Et on evite les franglisation du genre 'getnomdumec' :))
C bien mais il y a aussi ca:

Dim Lettre

For i = 1 to Len(Text1.Text)
Lettre = Mid(Text1.Text,i,1) 'sépare toutes les lettres (ou chiffres) de la phrase
If Lettre = txtSéparateur.Text Then Goto SUIVANT 'si Lettre égal un séparateru genre "-" ou "&" et encore d'autre!
txtAvant.Text = txtAvant.Text & Lettre 'ajoute caractères par caractères
Next i

SUIVANT:

For j = i+1 to Len(Text1.Text)
Lettre = Mid(Text1.Text,j,1) 'on reprend la ou on s'était arreté mais SANS le séparateur
txtAprès.Text = txtAprès.Text & Lettre
Next j


!!! CE CODE A ETE MIS EN DIRECT!!! donc s'il y a des erreures, prévenez-moi.

merci
Je ne sais pas à quel source tu fait allusion, mais je reconnais que souvent j'utilise des non de variable ou de fonction en anglais car dans cette langues, les mots sont souvent plus courts...

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.