RemoveLastSlash

Public Function RemoveLastSlash(ByVal strSource As String, _
                                Optional ByVal strSlash As String = "\") As String
    
    Dim strReturn   As String
    
    ' Inizializzazione
    RemoveLastSlash = ""
    strReturn = Trim(strSource)
    
    ' Processo
    If Right(strReturn, Len(strSlash)) = strSlash Then
        strReturn = Trim(Left(strReturn, Len(strReturn) - Len(strSlash)))
    End If

    ' Ritorno
    RemoveLastSlash = strReturn
End Function

Torna su
Categoria

Visual Basic 6 (996)


Autore

Marco Cecchetti


Data pubblicazione.

05/05/2021



Recensioni

Articolo non ancora recensito