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