Entrecouper chaque caractère d'un chaine avec un autre caractère


Commenter

Contenu du snippet 

    Public Function ExplodeChars(ByVal Exp As String, Optional ByVal sChar As Char = " ", Optional ByVal bLast As Boolean = False)  As String
        Dim Result As String = String.Empty
        If Exp.Length > 0 Then
            Dim Buffer As New System.Text.StringBuilder()
            For i As Integer = 0 To Exp.Length - 1
                Buffer.Append(String.Concat(Exp.Chars(i),  sChar))
            Next i
            Result = Buffer.ToString
            Buffer.Length = 0
            If Not bLast Then Result = Result.Substring(0, Result.Length - 1)
        End If
        Return Result
    End Function

Compatibilité : VB 2005

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