16 lines
599 B
VB.net
16 lines
599 B
VB.net
Imports System.Runtime.CompilerServices
|
|
|
|
Public Module StringEx
|
|
''' <summary>
|
|
''' Truncates a string to the specified length if it exceeds that length.
|
|
''' </summary>
|
|
''' <param name="pString">The string</param>
|
|
''' <param name="pLength">The maximum string length</param>
|
|
''' <returns>The truncated string</returns>
|
|
<Extension()>
|
|
Public Function Truncate(pString As String, pLength As Integer) As String
|
|
If String.IsNullOrEmpty(pString) Then Return pString
|
|
Return pString.Substring(0, Math.Min(pLength, pString.Length))
|
|
End Function
|
|
End Module
|