Discussion :

[nellynew]

J'ai un champ NomClient pouvant contenir des caractères spéciaux. A partir de ce champ je créer un CodeClient reprenant les 4 premières lettres de NomClient. Mais pour cela, il me faut épurer ce nom en supprimant les carctères spéciaux. Existe t'il une fonction qui le fait?

[mcdotta]

Hello, voici une fonction que j'utilise.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Function CleanComptePseudo(strString As String) As String
    Dim strOut As String
    Dim i As Integer
    On Error Resume Next
    strOut = ""
    i = 1
    Do While i <= Len(strString)
        If Mid(strString, i, 1) = "*" Or Mid(strString, i, 1) = "\" Or Mid(strString, i, 1) = "/" Or Mid(strString, i, 1) = "?" Or Mid(strString, i, 1) = "." Or Mid(strString, i, 1) = "-" Then
            strOut = strOut
        Else
            If Mid(strString, i, 1) = " " Then
                strOut = strOut & "_"
            Else
                strOut = strOut & Mid(strString, i, 1)
            End If
        End If
        i = i + 1
    Loop
    CleanComptePseudo = strOut
 
End Function

J'espère que ca te donne un début de fil....

[nellynew]

oui mais je trouve que c'est un peu long. t'as pas essayé avec la fonction replace?

[mcdotta]

Ben alors pourquoi pas...
Essayes...