{ ExcludeChars
    
    Fonction permettant d'exclure des caracteres d'une chaine selon un "charset" donné.
  
    Params :
     S  [I] string, chaine originale dont ont vas exclure les caracteres
     CS [I] TSysCharSet (SysUtils), ensemble des caracteres a exclure.
  
    Return :
     String, chaine excluant tout les caracteres definis dans CS.
  
    Exemple 1 :
     // OldStr = '"; echo "tentative d'injection sql";
     NewStr := ExcludeChars(OldStr, ['<','>',';','"','''','/']);
     // NewStr = echo tentative dinjection sql
 
   Exemple 2 :
    const
     CSNumber : TSysCharSet = ['0'..'9'];
     CSSymbols: TSysCharSet = ['+','-','*','/','='];
    ...
    NewStr := ExcludeChars(OldStr, CSNumber+CSSymbols);
 
 }
  function ExcludeChars(const S : string; const CS : TSysCharSet) : string;
  var pR : PChar;
      L,I,N: integer;
  begin
    L := Length(S);
    I := 0;
    for N := 1 to L do 
      if S[N] in CS then I := I + 1;
    I := L - I;
    if I = 0 then 
    begin
      result := '';
      exit;
    end else
    begin
      SetLength(Result, I);
      pR := PChar(Result);
      for N := 1 to L do
        if not (S[N] in CS) then 
        begin 
          pR[0] := S[N];
          inc(pR);
        end;
    end;
  end;

Option Explicit
'Appel
Private Sub Command1_Click()
   'NOTE: Il faut bien séparer les caracteres a remplacer
   'Comme ci dessous sinon cela ne fonctionne pas.
   Call MsgBox(ExcludeChars("TEST POUR VOIR", "R", "E"))
End Sub 
'Fonction
Public Function ExcludeChars(ByVal S As String, ParamArray CS()) As String
Dim pR
   'Boucle sur chaque Element du ParamArray
   For Each pR In CS
       'Utilise la fonction Replace sur la chaine S
       S = Replace(S, pR, vbNullString)
   Next
   'retourne le résultat des remplacement
   ExcludeChars = S
End Function 

/*
   Exclue de la chaîne string tous les caractères 
   contenus dans la chaîne e.
   Les modifications sont effectuées à même la chaîne 
   originale ce qui signifie qu'elle sera modifiée.
 
   Exemple d'utilisation:
   char test[] = "Bonjour les amis";
   exclchrs(test, "oes");
 
   test contiendra:
   "Bnjur le ami"
 */
 char *exclchrs (char *string, char *e)
 {
   char *c, *p;
 
   if(!string || !e || !*e) return 0; // <- À retirer dans un code sûr
 
   c = string;
 
   while(*c) {
     p = e;
 _exclchrs_loop:
     if(*p == *c) { ++c; continue; }
     if(*++p) goto _exclchrs_loop;
 
     *string++ = *c++;
   }
 
   *string = 0;
 
   return string; // Retour sur 0 de fin de chaîne
 }

var caractères="eos";
var chaine="Bonjour les amis";
enleve(chaine,caractères)
function enleve(string,chars){
for(i=0;i<chars.length;i++){
string.replace(new RegExp(chars.charAt(i),"gi"),"")}}

Function ExcludeChars(Const S : String; const CS : TSysCharSet): String;
Var P, PR : PByte;
    Size, I    : Integer;
Begin
  P    := PByte(S);
  Size := Length(S);
  SetLength(Result, Size);
  PR   := PByte(Result);
  I := 0;
  While P^ <> $0 do Begin
    If Not (Chr(P^) in CS) Then Begin 
      Pr^ := P^;
      Inc(Pr);
    End
    Else Inc(I);
    Inc(P);
  End;
  If I > 0 Then SetLength(Result, Size - I)
End;

Function ExcludeChars(Const S : String; const CS : TSysCharSet): String;
Var P, PR : PByte;
    BS : Set Of Byte Absolute CS;
    Size, I    : Integer;
Begin
  P    := PByte(S);
  Size := Length(S);
  SetLength(Result, Size);
  PR   := PByte(Result);
  I := 0;
  While P^ <> $0 do Begin
    If Not (P^ in BS) Then Begin 
      Pr^ := P^;
      Inc(Pr);
    End
    Else Inc(I);
    Inc(P);
  End;
  If I > 0 Then SetLength(Result, Size - I)
End;

public static string ExcludeChars(string str, params char[] Chars) {
  foreach (char c in Chars)
    str = str.Replace(c.ToString(), string.Empty);
  return str;
}

Public Function ExcludeChars(ByVal str As String, ByVal ParamArray Chars() As Char) As String
  For Each c As Char In Chars
    str = str.Replace(c.ToString(), String.Empty)
  Next
  Return str
End Function