[Code Source] Formater une chaîne de caractères sans caractères spéciaux

Certaines chaines de caractères ont des caractères spéciaux qui ne sont pas utilisables lors de l’enregistrement d’un fichier sur le disque dur par exemple.

Si on veut conserver la chaîne de caractères pour la rendre compatible il suffit d’utiliser cette fonction…

Imports System.Text.RegularExpressions
Public Function TexteSansCaracteresSpec(stIn As String) As String
        'Dim stmin As String = LCase(stIn)
        Dim stacc As String = stIn.Normalize(NormalizationForm.FormD)
        Dim sb As New StringBuilder()
        For ich As Integer = 0 To stacc.Length - 1
            Dim uc As UnicodeCategory = CharUnicodeInfo.GetUnicodeCategory(stacc(ich))
            If uc <> UnicodeCategory.NonSpacingMark Then
                sb.Append(stacc(ich))
            End If
        Next
        Return Regex.Replace(stIn, "[^a-zA-Z0-9-()]", " ")
End Function
.

Soyez le premier à commenter

Poster un Commentaire

Votre adresse de messagerie ne sera pas publiée.


*