[匯入]ASP常用函數:TrimLR()

<%
'功能:返回去除前sStr、後sStr 或前後sStr 的字串sString副本。(區分大小寫)
'來源:http://jorkin.reallydo.com/article.asp?id=443

Public Function TrimLR(ByVal sString, ByVal sStr, ByVal sLeftOrRight)
    Dim iStrLen : iStrLen = Len(sStr)
    Select Case UCase(sLeftOrRight)
        Case "L", "LEFT"
            Do While Left(sString, iStrLen) = sStr
                sString = Mid(sString, iStrLen + 1)
            Loop
        Case "R", "RIGHT"
            Do While Right(sString, iStrLen) = sStr
                sString = Mid(sString, 1, Len(sString) - iStrLen)
            Loop
        Case Else
            sString = TrimLR(sString, sStr, "L")
            sString = TrimLR(sString, sStr, "R")
    End Select
    TrimLR = sString
End Function
%>

文章來源:http://Jorkin.Reallydo.Com/default.asp?id=444