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
7 nov. 2002 à 09:57
MAIS elle a un inconvénient : elle prend toutes les chaines qui correspondent sans se poser de question...
J'ai une phrase du genre "L'auteur du livre s'est rendu au toilette"
Si je fait Replace(MaPhrase, "au", "") et Replace(MaPrase, "du", "") pour déblayer un peu, ça donne:
L'teur livre s'est ren toilette... Pour mois c'est un peut trop déblayer
Donc une fonction personnalité me paraît être intéressante puisqu'on peut y mettre des paramètres de vérification (à moins que dans replace aussi ???)...
Parce qu'il y a le zip et la capture, je met 9 et m'en vais voir la fonction split
9 août 2002 à 13:23
9 août 2002 à 13:11
tks DeAtHCrAsH
9 août 2002 à 10:52
8 août 2002 à 21:30
Mais vive VB6 !
lol
a+
cyberdevil
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.