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
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.