Visual Basic > Strings

String Triming Functions

String Triming Functions

Public Function TrimEnds(ByVal SourceString As String, _
 ByVal TrimThis As String) As String
    Do Until Left$(SourceString, 1) <> TrimThis
        SourceString = Right$(SourceString, Len(SourceString) - 1)
    Loop
    Do Until Right$(SourceString, 1) <> TrimThis
        SourceString = Left$(SourceString, Len(SourceString) - 1)
    Loop
    TrimEnds = SourceString
End Function


Public Function TrimLeft(ByVal SourceString As String, _
 ByVal TrimThis As String) As String
     Do Until Left$(SourceString, 1) <> TrimThis
        SourceString = Right$(SourceString, Len(SourceString) - 1)
    Loop
    TrimLeft = SourceString
End Function


Public Function TrimRight(ByVal SourceString As String, _
 ByVal TrimThis As String) As String
    Do Until Right$(SourceString, 1) <> TrimThis
        SourceString = Left$(SourceString, Len(SourceString) - 1)
    Loop
    TrimRight = SourceString
End Function