Petite fonction de recherche et de remplacement de chaine dans une grande chaine
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 390 fois - Téléchargée 38 fois
Contenu du snippet
C'est une toute ch'tite fonction qui va remplacer une chaine dans une autre...
J'espère que ça servira autant qu'à moi car ça m'a été bien utile ces derniers temps :)
Si vous avez mieux par contre, n'hésitez pas à me le communiquer par email...
Source / Exemple :
'----------------------------------------------------------------------------------------
' 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
Conclusion :
J'espère que ça servira autant qu'à moi car ça m'a été bien utile ces derniers temps :)
Si vous avez mieux par contre, n'hésitez pas à me le communiquer par email...
A voir également
- Petite fonction de recherche et de remplacement de chaine dans une grande chaine
- Petite class mysql avec fonction de recherche, ect - Codes sources - PHP (Base de données)
- Petite fonction de conversion de d'heure - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Fonction de recherche de fichiers. c tout simple mais utile - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Petites fonctions pour utiliser les dates - Codes sources - ASP / ASP.NET (Date/Heure)
- Petites fonctions entre amis - Codes sources - ASP / ASP.NET (SQL)
Commentaires
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é !
Mais effectivement, dans la plupart des cas, cette fonction est amplement suffisante.
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.