Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 834 fois - Téléchargée 67 fois
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
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.