 |
 |
 |
| |
Amusez-vous et
gagnez de l'argent
|
|
 |
|
 |
|
|
|
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
|
|
|
|
 |
|
 |
| |
Filtrer une Phrase 
Paramètres en entrée : Texte (chaîne), Enlever (chaîne)
Paramètres en sortie : FiltrePhrase (chaîne)
Public Function FiltrePhrase(Texte As String, Enlever As String)
Dim Temp As String
Dim Signe
Dim X As Integer
Temp = ""
For X = 1 To Len(Texte)
Signe = Mid(Texte, X, 1)
If Signe <> Enlever Then
Temp = Temp + Signe
End If
Next X
FiltrePhrase = Temp
End Function
Petit exemple :
MsgBox FiltrePhrase("bonjour", "o")
Nous donne comme résultat : bnjur
|
|
 |
|
 |
|
IDDN Certification
