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

 1237951 visiteurs

 40 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 4241 fois
Vous êtes ici :   Accueil » Supprimer accentués