int count = 2;    //Le nombre de caractères
std::string text = "Bonjour";
text.remove(text.length - count, text.length);

dim s as string : s = "bijour"
 dim n as byte :  n = 2  ' nombre de caractères à supprimer
 
 s = left(s, len(s) - n)
 ' ou
 s = mid( s,1,len(s)-n )
 

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
 Private Function TronquerChaine(ByVal s As String, ByVal n As Integer) As String
     Dim Adr As Long
     Dim Lng As Long
     Adr = StrPtr(s) - 4
     CopyMemory Lng, ByVal Adr, 4
     Lng = Lng - n * 2
     If Lng < 0 Then Lng = 0
     CopyMemory ByVal Adr, Lng, 4
     TronquerChaine = s
 End Function
 
 

$nb_char = 3; // nombre de caractères à supprimer
$string = "Chaine de caractères devant subir l'opération";
// utilisation de la fonction substr, avec valeur négative (attention au signe '-' devant $nb_char)
$shorten = substr( $string, 0, - $nb_char);

ch est une chaine
NbCara est un entier // Nombre de caractère à supprimer
ch = ch[[1 A (Taille(ch)-NbCara)]]

DECLARE @CHAINECHAR AS VARCHAR(500)
DECLARE @NBCHARASUPPR AS INT
SET @CHAINECHAR = 'Bonjour'
SET @NBCHARASUPPR = 3

SELECT
  @CHAINECHAR AS CHAINEORIGINE,
  LEFT(@CHAINECHAR, LEN(@CHAINECHAR)-@NBCHARASUPPR) AS CHAINEMODIF

 

int count = 2; // Le nombre de caractères à supprimer depuis la fin
string txt = "Bonjour"; // Le texte
string val = txt.Substring(0, txt.Length - count); // Suppression

void EnleverCaracs(char *str, DWORD count)
{
  char *c = str;
  if(!*str) return;   // CHAINE VIDE
  if(!count) return;  // 0 A ENLEVER
  while(*c) c++;      // POINTE 0 FINAL DE CHAINE
  if(count >= (DWORD) (c - str)) c = str; // PAS ECRIRE HORS BUFFER
  else c -= count;
  *c = 0; // TRONQUE CHAINE
}

Dim count As Integer = 2 ' Le nombre de caractères à supprimer depuis la fin
Dim txt As String = "Bonjour" ' Le texte
Dim val As String = txt.Substring(0, txt.Length - count) ' Suppression

function StrCutRight(const S : string; const Count : integer) : string;
 begin
    result := S;
    if (count = 0) or (count > Length(S)) then exit;
    SetLength(result,Length(S)-Count);
 end;
 
 

S := StrCutRight('Bonjour',3);
renvois : "Bonj" 

chaine="Bonjour.";
var nb=6;//nombres de caractères a supprimer.
chaine=chaine.substring(0,chaine.length-nb)

nb_car = 4
print "totototototo"[:-nb_car]

proc CutRight {s n} {return [string replace $s end-[incr n -1] end]}