IDDN CertificationIDDN Certification 		 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal
 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 		 

  ObjetsBois.com : des produits faits main, des produits artisanaux faits dans du bois de qualité.

 		 

 
Partenaires
 Les Partenaires

 		 
 

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
 		 


[ ObjetsBois.com ]
[ Foot Phocéen / Olympique de Marseille ] - [ turf / pmu / paris ]

Copyright © 2000-2010 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192


PageRank Actuel