En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222897 visiteurs

 4 visiteurs en ligne

Nous contacter

Contact

Supprimer accentués

Supprimer les caractères parasites d'une chaîne

Pour y voir un peu plus clair (peut-être ...)
 

Function EpurerTexte(strTexte As String) As String
    Dim Resultat As String
    Dim Signe As String    '* 1
    Dim Position As Integer

    If Len(strTexte) > 0 Then
        For Position = 1 To Len(strTexte)
            Signe = Mid$(strTexte, Position, 1)
            If (Signe >= "A" And Signe <= "Z") _
               Or (Signe >= "a" And Signe <= "z") _
               Or (Signe >= "0" And Signe <= "9") Then
                Resultat = Resultat & Signe
            End If
        Next Position
        EpurerTexte = Resultat
    End If

End Function

Catégorie : - String
Page lue 4180 fois
Vous êtes ici :   Accueil » Supprimer accentués