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
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.