Modifie les caractères spéciaux

Commenter

Contenu du snippet 

Private Function ModifCaracters(ByVal UnMot As String) As String 
    ModifCaracters = UnMot 
    Dim i As Integer 
    For i = 1 To Len(UnMot) 
        Select Case Asc(Mid$(UnMot, i, 1)) 
                Case 138:                           Mid$(ModifCaracters, i, 1) = "S" 
                Case 142, 221:                      Mid$(ModifCaracters, i, 1) = "Z" 
                Case 158:                           Mid$(ModifCaracters, i, 1) = "z" 
                Case 159:                           Mid$(ModifCaracters, i, 1) = "Y" 
                Case 192, 193, 194, 195, 196, 197:  Mid$(ModifCaracters, i, 1) = "A" 
                Case 200, 201, 202, 203:            Mid$(ModifCaracters, i, 1) = "E" 
                Case 204, 205, 206, 207:            Mid$(ModifCaracters, i, 1) = "I" 
                Case 208:                           Mid$(ModifCaracters, i, 1) = "D" 
                Case 209:                           Mid$(ModifCaracters, i, 1) = "N" 
                Case 210, 211, 212, 213, 214:       Mid$(ModifCaracters, i, 1) = "O" 
                Case 217, 218, 219, 220:            Mid$(ModifCaracters, i, 1) = "U" 
                Case 224, 225, 226, 227, 228, 229:  Mid$(ModifCaracters, i, 1) = "a" 
                Case 231:                           Mid$(ModifCaracters, i, 1) = "c" 
                Case 232, 233, 234, 235:            Mid$(ModifCaracters, i, 1) = "e" 
                Case 236, 237, 238, 239:            Mid$(ModifCaracters, i, 1) = "i" 
                Case 241:                           Mid$(ModifCaracters, i, 1) = "n" 
                Case 242, 243, 244, 245, 246:       Mid$(ModifCaracters, i, 1) = "o" 
                Case 249, 250, 251, 252:            Mid$(ModifCaracters, i, 1) = "u" 
                Case 253, 255:                      Mid$(ModifCaracters, i, 1) = "y" 
        End Select 
    Next i 
End Function

Compatibilité : VB6

Disponible dans d'autres langages :

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 (danielamaury)