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