''' <summary>
''' Retourne une chaine racourcie de taille {Lenght}
''' </summary>
''' <param name="Str">Source</param>
''' <param name="Lenght">Taille de sortie</param>
''' <param name="Separator">Séparateur</param>
Public Function GetShortString(ByVal Str As String, Optional ByVal Lenght As Integer = 8, Optional ByVal Separator As String = "...") As String
Try
If Str.Length < Lenght + 1 Then Return Str
Dim MyLenght As Integer = Int((Lenght - Separator.Length) / 2)
Dim Supp As Integer = (Lenght - Separator.Length) Mod 2
Return Str.Substring(0, MyLenght + Supp) & Separator & Str.Substring(Str.Length - MyLenght)
Catch ex As Exception
Return Str.Substring(0, Lenght)
End Try
End Function