Replace

Soyez le premier à donner votre avis sur cette source.

Vue 5 373 fois - Téléchargée 286 fois

Description

Voici un petit bout de code très simple reconstituant la fonction REPLACE de VB6.
Cette fonction permet de rechercher une chaine de charactere contenue dans une expression et de la remplacer par une autre...
Le screen parle de lui meme.

J'espere que ce code pourra se rendre utile autant que possible.

Source / Exemple :


Public Function ReplaceBis(Expression As String, Find As String, Replace As String) As String
Dim pos As Integer
    For i = 0 To Len(Expression)
        pos = InStr(1, Expression, Find)
        If pos <> 0 Then
            Expression = Mid(Expression, 1, pos - 1) & Replace & Mid(Expression, pos + Len(Find))
        End If
    Next i
    
ReplaceBis = Expression
End Function

Conclusion :


Merci par avance pour vos commentaires...
A++ et bonne prog a tous...

DeAtH_-_CrAsH

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
7 nov. 2002 à 09:57
La fonction REPLACE existe bien et me paraît très pratique
MAIS elle a un inconvénient : elle prend toutes les chaines qui correspondent sans se poser de question...
J'ai une phrase du genre "L'auteur du livre s'est rendu au toilette"
Si je fait Replace(MaPhrase, "au", "") et Replace(MaPrase, "du", "") pour déblayer un peu, ça donne:
L'teur livre s'est ren toilette... Pour mois c'est un peut trop déblayer
Donc une fonction personnalité me paraît être intéressante puisqu'on peut y mettre des paramètres de vérification (à moins que dans replace aussi ???)...
Parce qu'il y a le zip et la capture, je met 9 et m'en vais voir la fonction split
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013

9 août 2002 à 13:23
Mercury => Exact... J'ai aussi fait la meme chose pour la fonction SPLIT... La source est aussi sur VbFrance pour ceux que ca interresse....
tahbre
Messages postés
41
Date d'inscription
mercredi 31 juillet 2002
Statut
Membre
Dernière intervention
15 septembre 2003

9 août 2002 à 13:11
yep, très très utile pour moi et pour les utilisateurs de vb5 et versions précédentes,
tks DeAtHCrAsH
cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005

9 août 2002 à 10:52
Cyberdevil => Effectivement, ça existe déjà, mais seulement depuis la version de VB6, d'où l'intérêt du code proposé par DeAtHCrAsH pour ceux ayant une version antérieure à VB6 ;-)
Cyberdevil
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006

8 août 2002 à 21:30
C'est bien meme si ça existe déjà !
Mais vive VB6 !
lol
a+
cyberdevil

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.