“VBA Retire los descansos de línea” Código de respuesta

VBA Retire los descansos de línea

' Removes line breaks and spaces at the end of text
Function RemoveLastLineBreaks(ByRef pText As String) As String
    Dim textLng As Long
    RemoveLastLineBreaks = pText
    textLng = Len(RemoveLastLineBreaks)
    While (textLng > 0 And (Mid(RemoveLastLineBreaks, textLng) = vbCr _
            Or Mid(RemoveLastLineBreaks, textLng) = vbLf) _
            Or Mid(RemoveLastLineBreaks, textLng) = " ")
        RemoveLastLineBreaks = Mid(RemoveLastLineBreaks, 1, textLng - 1)
        textLng = Len(RemoveLastLineBreaks)
    Wend
End Function
VasteMonde

VBA eliminar el último vbcrlf

' Removes the Line Break from the string if my string Ends with Line Break
Sub RemoveLineBreak(myString)
    If Len(myString) > 0 Then
        If Right$(myString, 2) = vbCrLf Or Right$(myString, 2) = vbNewLine Then 
            myString = Left$(myString, Len(myString) - 2)
        End If
    End If
End Sub
VasteMonde

Respuestas similares a “VBA Retire los descansos de línea”

Preguntas similares a “VBA Retire los descansos de línea”

Más respuestas relacionadas con “VBA Retire los descansos de línea” en VBA

Explore las respuestas de código populares por idioma

Explorar otros lenguajes de código