String cleaner

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 141 fois - Téléchargée 66 fois

Contenu du snippet

cette fonction vous permet de ne conserver que du texte ou des chirffres en supprimant le reste inutile(retour chariots, caractères spéciaux, (,),{, etc...).
Vous pouvez aussi remplacer ces caractères par des autres.

Source / Exemple :


Public Function OnlyChars(ByVal txt As String, ByVal Uchars As Boolean, ByVal Lchars As Boolean, ByVal Digits As Boolean, Optional Remplacement As String) As String
Dim h As Long
Dim tempon As String

For h = 1 To Len(txt)
    num = Asc(Mid$(txt, h, 1))
    'suppression des uchars
    If Uchars Then
        If num >= 65 And num <= 90 Then
            tempon = tempon & Mid$(txt, h, 1)
        Else
            tempon = tempon & Remplacement
        End If
     
    End If
    
    If Lchars Then
        If num >= 97 And num <= 122 Then
        tempon = tempon & Mid$(txt, h, 1)
        Else
        tempon = tempon & Remplacement
            
        End If
    
    End If
    
    If Digits Then
        If num >= 48 And num <= 57 Then
            tempon = tempon & Mid$(txt, h, 1)
        
        Else
        tempon = tempon & Remplacement
            
        End If
    
    End If
   'If Uchars And Lchars And Digits Then tempon = tempon & Mid$(txt, h, 1)
Next
OnlyChars = tempon

End Function

Conclusion :


'txt est le texte à analyser
il faut répondre true lorsque vous désirez garder
il faut répondre false lorsque vous désirez ne pas gerder

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.