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

 1224885 visiteurs

 22 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 : Les mémos - String
Page lue 4189 fois
Vous êtes ici :   Accueil » Supprimer accentués