Censurer(remplacer) certains caracteres dans un texte...

Commenter

Contenu du snippet

Voila voila,

Comme je codai un p'ti chat g du faire une fonction qui censure certains caracteres pour les pseudos et remplace les espace par _

J'ai d'abord fait une source qui utilisai If car je ne trouvai pas comment faire avec Select Case mais Warny m'a éclairé et j'ai pu le fair avec. Je vous ai mit les 2 exemples.

Pour l'exemple ici vous avec besoin de minimum : 2 TextBox (Text1, Text2) et d'un bouton (Command1)

Source / Exemple : 


Private Sub Command1_Click()
    longueur = Len(Text1)
    Text2 = ""
    For i = 1 To longueur
        Text2 = Text2 + Translate(Mid(Text1, i, 1)) 'Fait Appliquer la fonction Translate sur chaques lettres unes après l'autre dans Text1
    Next
End Sub

Function translate(a)
Select Case Asc(a)
Case 58 To 64, 91 To 94
translate = ""
Case 96, 47
translate = ""
Case 45 To 122
translate = a
Case 32
translate = "_"
End Select
End Function

' <-> Ou différament (pour exemple) : <->

Function Translate(a)
    If Asc(a) >= 58 And Asc(a) <= 64 Then
           Translate = ""
    ElseIf Asc(a) >= 91 And Asc(a) <= 94 Then
           Translate = ""
    ElseIf Asc(a) = 96 Then
           Translate = ""
    ElseIf Asc(a) = 47 Then
           Translate = ""
    ElseIf Asc(a) >= 45 And Asc(a) <= 122 Then
           Translate = a
    ElseIf a = " " Then
            Translate = "_"
    Else
            Translate = ""
    End If
End Function

Conclusion :


Voula c'est tout Bon CodInG :)

& Merci à Warny

A voir également

S'inscrire maintenant

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.

Du même auteur (carabidule)