ASP: Trim a String Without Cutting Any Words

This function will accept a string of any length, and trim it to the space nearest your desired trimming length.

'====
Function neatTrim( strToTrim, desiredLength )
'====
    strToTrim = trim( strToTrim )
   
    if len( strToTrim ) < desiredLength then
        neatTrim = strToTrim
        exit function
    else
        if inStrRev( strToTrim, " ", desiredLength ) = 0 then
            strToTrim = left( strToTrim, desiredLength – 1 ) & "…"
         else
            strToTrim = left( strToTrim, inStrRev( strToTrim, " ", desiredLength + 1 ) -1 ) & "…" 'no carriage return here
        end if
    end if
   
    neatTrim = trim( strToTrim )
End Function

Tagged as: a, any, ASP, Cutting, string, Trim, without, words