Nouveau replace

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 594 fois - Téléchargée 65 fois

Commenter

Contenu du snippet

Un petit algo sympa et très pratique au niveau de la maitenance. Les caractères a enlevés étant placés dans une chaine

Source / Exemple : 


Public Function Remplace(ByVal strChaine As String) As String
    Dim caracteres() As String 'Tableau contenant les caractères à supprimer
    Dim chaine, separateur As String 'la chaine de caractère et le séparateur
    Dim n As Integer ' variable de boucle
    
    separateur = "f;f" 'on fixe le séparateur
    
    'On fabrique la chaine de caractere a supprimer : caractere & separateur
    chaine = "--" & separateur
    'on splitte la chaine dans le tableau sur le séparateur
    caracteres() = Split(chaine, separateur)
    
    'On teste la chaine
    If Len(strChaine) < 0 Then Exit Function
    
    'On opère les modifications
    For n = 0 To UBound(caracteres)
        strChaine = Replace(strChaine, caracteres(n), " ")
    Next n
    
    'La nouvelle chaine
    Remplace = Replace(strChaine, "  ", " ")
End Function

Conclusion :


On passe une chaine de caratère a la fonction.

Dans la fonction on définit:

-un séparateur sous forme de chaine de caratères.
-la chaine de caractère a remplacer sous la forme : caractères & separateur

Ensuite le traitement s'opère avec decomposition de la chaine en tableau, puis remplacement dans la chaine.

Enfin on supprime les espaces supperflus et on renvoie la chaine epurée

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme
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.