String.prototype.Raccourcir = function (longueur,mettre)
/*======================================================
 "Raccourcir" un texte 
  ( abcd...xyz au lieu de l'alphabet abcdefghijklmnopqrstuvwxyz par exemple )
 =======================================================
 exemples :
 alert("abcdefghijklmnopqrstuvwxyz".Raccourcir(taille maxi,
                                  "signes pour signaler le raccourci ... par défaut"); */

{
 if ( this.length<=longueur )
 {
  return this;
 }
 var lng = longueur ? longueur : 16 ; // valeurs par défaut
 var met = mettre ? mettre : " ... ";
 return this.substring(0,(lng-met.length)/2) 
          + met
          + this.substring(this.length-(lng-met.length)/2);

<?php
$sSep = '...'; // séparateur
$sLength = 3; // longueur à conserver de chaque côté
$sString = 'abcdefghijklmnopqrstuvwyxz'; // chaîne originale
echo substr_replace ($sString, $sSep, $sLength, - $sLength); // affiche 'abc...xyz'
?>

string sep = "..."; //séparateur
int longueur = 3; //longueur
string chaine = "abcdefghijklmnop"; // chaine originale
string resultat = string.Format("{0}{1}{2}", chaine.Substring(0, longueur), sep, chaine.Substring(chaine.Length - longueur))); 

Public Function GetShortString(ByVal Str As String, ByVal Lenght As Integer, Optional ByVal Separator As String = "...") As String
  If Str.Length - Lenght < Lenght + 1 Then Return Str
  Return Str.Substring(0, Lenght) & Separator & Str.Substring(Str.Length - Lenght)
End Function

''' <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

DECLARE @Variable AS VARCHAR(50)
DECLARE @NbChar AS INT
DECLARE @Separateur AS VARCHAR(3)

SET @Variable = 'ABCDEFGHIJKLMNOPQRSTUVXYZ'
SET @Separateur = '...'
SET @NbChar = 3

SELECT 
 LEFT(@Variable, @NbChar) + @Separateur + RIGHT(@Variable, @NbChar)
AS RESUME;

;Utilisation :
;$reduit(mot-très-très-long,a,b)
;a étant le nombre de lettres que l'on veut afficher a gauche
;et b étant le nombre de lettres que l'on veut afficher a droite
[code]
alias reduit { if $calc($$2 + $$3) < $len($$1) { return $+($left($$1,$$2),...,$right($$1,$$3)) } }
[/code]
Exemple :
$reduit(abcdefghijklmnopqrstuvwxyz,3,2) 
retourne : abc...yz

/** renvoie la chaine, qui si elle dépasse <code>longueur</code>, est rétrécie avec au milieu un "..." */
public static String retrecitString(String s,int longueur){
  if (s.length() <= longueur) return s;
  String debut = s.substring(0,longueur/2-1);
  String fin = s.substring(s.length()-longueur/2+2,s.length());
  return debut+"..."+fin;
}

Public Function GetShortString(ByVal Str As String, Optional ByVal Lenght As Integer = 3,  _
                Optional ByVal Separator As String = "...") As String
    If Lenght < 1 Then Lenght = 1
    If Len(Str) - Lenght < Lenght + 1 Then
        GetShortString = Str
    Else
        GetShortString = Left$(Str, Lenght) & Separator & Right$(Str, Lenght)
    End If
End Function

def reduit(s,l,r):
    if ((l+r)<len(s)):
        return s[0:l]+'...'+s[-r:]
    else:
        return s