Replace

0/5 (5 avis)

Vue 5 554 fois - Téléchargée 311 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 2
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.