EMULATION DE LA FONCTION REPLACE() DE VBA6

Signaler
Messages postés
46
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
12 février 2004
-
Messages postés
46
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
12 février 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4090-emulation-de-la-fonction-replace-de-vba6

Messages postés
46
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
12 février 2004

Voici une ligne qu'il faut ajouter en fin de la fonction :

If Start > 1 Then Replace = Mid$(Replace, Start)

J'ai retrouvé cette idée sur un site étranger :
http://www.programmazione.it/index.php?entity=etip&idTip=110&idArea=1

C'est marrant, on a toujours réinventé la roue, sa fonction replace me semble correcte, a voir ...
Messages postés
46
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
12 février 2004

Fais attention, j'ai remarqué que ce source ne fonctionne pas correctement avec la version Replace() de VB6. J'ai commis une erreur de retranscription, donc tu dois utiliser la fonction replace() que j'ai postée sur vbfrance.
A+
Messages postés
10
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
23 juillet 2004

Merci bcp,

C trop fort pile poil ce que je cherchais
Messages postés
46
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
12 février 2004

Le 29-07-2002, j'ai corrigé un bug.
Do While start And count
remplacé par
Do While (start<>0) And (count<>0)

Le source est à jour.

Bigane
Afficher les 7 commentaires