Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 545 fois - Téléchargée 41 fois
'---------------------------------------------------------------------------------------- ' Nom : RSTR_Remplace ' ' But : Permet de remplacer une partie d'une chaine par une autre ' ' Paramètres : pstrChaineComplete : Chaine complete avant traitement ' pstrChaineCherchee : Chaine que l'on veut remplacer ' pstrChaineRemplacement : Chaine de remplacement de la chaine cherchee ' Fonctions appelées : - ' ' Valeur de retour : Chaine de caractères si OK , "ERREUR" si... erreur :) ' Auteur : Jean-Francis Date : 14/11/2002 '---------------------------------------------------------------------------------------- Public Function RSTR_Remplace(ByVal pstrChaineComplete As String, ByVal pstrChaineCherchee As String, ByVal pstrChaineRemplacement As String) As String On Error GoTo err: Dim lngPosition As Long Dim lngLongueur As Long If LenB(pstrChaineRemplacement) = 0 Then Exit Function End If lngLongueur = Len(pstrChaineCherchee) lngPosition = InStr(pstrChaineComplete, pstrChaineCherchee) Do While lngPosition <> 0 If lngPosition = 1 Then pstrChaineComplete = pstrChaineRemplacement & Mid$(pstrChaineComplete, lngLongueur + 1) Else pstrChaineComplete = Left$(pstrChaineComplete, lngPosition - 1) & pstrChaineRemplacement & Mid$(pstrChaineComplete, lngPosition + lngLongueur) End If lngPosition = InStr(pstrChaineComplete, pstrChaineCherchee) Loop RSTR_Remplace = pstrChaineComplete Exit Function err: RSTR_Remplace = "ERREUR" End Function
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
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.