Fonction 'Trim' permettant de choisir le texte à supprimer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 542 fois - Téléchargée 7 fois

Contenu du snippet

    Public Function TrimStartStr(ByRef Src As String, Optional ByRef TrimString As String = " ") As String
        Dim lStart As Integer
        Dim lStep As Integer
        Dim lMax As Integer
        If Len(TrimString) > 0 And Len(Src) > 0 Then
            lStep = Len(TrimString)
            lMax = Len(Src) - lStep
            lStart = 1
            Do Until lStart >= lMax Or Mid(Src, lStart, lStep) <> TrimString
                lStart = lStart + lStep
            Loop
            TrimStartStr = Mid(Src, lStart)
        Else
            TrimStartStr = Src
        End If
    End Function
    Public Function TrimEndStr(ByRef Src As String, Optional ByRef TrimString As String = " ") As String
        Dim lEnd As Integer
        Dim lStep As Integer
        If Len(TrimString) > 0 And Len(Src) > 0 Then
            lStep = Len(TrimString)
            lEnd = Len(Src) + 1 - lStep
            Do Until lEnd <= 1 Or Mid(Src, lEnd, lStep) <> TrimString
                lEnd = lEnd - lStep
            Loop
            TrimEndStr = Left(Src, lEnd)
        Else
            TrimEndStr = Src
        End If
    End Function
    Public Function TrimStr(ByRef Src As String, Optional ByRef TrimString As String = " ") As String
        Dim lStart As Integer
        Dim lEnd As Integer
        Dim lStep As Integer
        Dim lMax As Integer
        If Len(TrimString) > 0 And Len(Src) > 0 Then
            lStep = Len(TrimString)
            lMax = Len(Src) - lStep
            lStart = 1
            Do Until lStart >= lMax Or Mid(Src, lStart, lStep) <> TrimString
                lStart = lStart + lStep
            Loop
            lEnd = Len(Src) + 1 - lStep
            Do Until lEnd <= 1 Or Mid(Src, lEnd, lStep) <> TrimString
                lEnd = lEnd - lStep
            Loop
            TrimStr = Mid(Src, lStart, lEnd - lStart + 1)
        Else
            TrimStr = Src
        End If
    End Function


Compatibilité : VB 2005, VB.NET 1.x

Disponible dans d'autres langages :

A voir également

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.