PETITE FONCTION DE RECHERCHE ET DE REMPLACEMENT DE CHAINE DANS UNE GRANDE CHAINE
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
28 nov. 2002 à 10:31
zefri Messages postés 33 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 11 décembre 2002 - 29 nov. 2002 à 00:01
zefri Messages postés 33 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 11 décembre 2002 - 29 nov. 2002 à 00:01
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/5194-petite-fonction-de-recherche-et-de-remplacement-de-chaine-dans-une-grande-chaine
https://codes-sources.commentcamarche.net/source/5194-petite-fonction-de-recherche-et-de-remplacement-de-chaine-dans-une-grande-chaine
29 nov. 2002 à 00:01
Function Pseudo_Replace(chaine As String, mot As String, substitut As String) As String
Dim i As Integer, position As Integer
Dim debut As String, fin As String
position = InStr(1, chaine, mot)
If position > 0 Then
debut = Mid(chaine, 1, position - 1)
fin = Mid(chaine, Len(debut) + Len(mot) + 1)
Pseudo_Replace = debut + substitut + fin
Else
Pseudo_Replace = chaine
End If
End Function
Mais bon, pourquoi faire simple quand on peut faire compliqué !
28 nov. 2002 à 13:54
28 nov. 2002 à 10:36
Mais effectivement, dans la plupart des cas, cette fonction est amplement suffisante.
28 nov. 2002 à 10:31