Foros Club Delphi - Función que devuelva la posición del primer carácter que no esté en la máscara de bus

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Función que devuelva la posición del primer carácter que no esté en la máscara de bus (https://www.clubdelphi.com/foros/showthread.php?t=95095)

Función que devuelva la posición del primer carácter que no esté en la máscara de bus

Buenas, pues eso, hay alguna función en C para buscar unos caracteres en una cadena y que devuelve la posición de la primera o última de cualquier carácter pero yo quiero lo contrario, o sea, Supongamos que la función se llama buscar, pues:
Buscar("abc", "acabo");
Devolviese la posición del carácter 'o' ya que no está entre los caracteres indicados en la máscara de busqueda, no sé si me explico.
¿Conocen algo así?
Lo que quiero hacer es filtrar lo que se pegue desde el portapapeles a un tedit y que solo sean caracteres hexadecimales.

Hola.

Si se diera que hay dos o más caracteres que no existen en la máscara de búsqueda, ¿ Cuál debería devolver ?

Saludos :)

Eso es lo de menos ya que si hay uno no válido la idea es no permitir el pegado.

Podrías usar una expresión regular para hacer la busqueda.

Código Delphi [-]function BuscarPattern(Pattern, Input: string): string;
  var
    i: integer;
    lRegex: TRegEx;
begin
  Result := '';
  lRegex.Create(Pattern, [roIgnoreCase]);
  if lRegex.IsMatch(Input) then
    for i := 0 to lRegex.Matches(Input).Count - 1 do
      Result := Result + lRegex.Matches(Input)[i].Value;
end;

El valor de búsqueda lo conviertes a un pattern válido. Por ej, "abc" podría ser "[a]|[b]|[c]". De esa manera encontrará "acab" de "acabo"

Ejemplo colores hexadecimales:
Texto de busqueda: "#0123456789ABCDEF"
Pattern: "[#]|[0]|[1]|[2]|[3]|[4]|[5]|[6]|[7]|[8]|[9]|[A]|[b]|[C]|[D]|[E]|[F]" (Que podría resumirse en "[#]|[0-9]|[A-F]")
Resultados

Código:

ORIGEN      RESULTADO

-#ffff00.,  #ffff00

-#e5e500[]  #e5e500

-#cccc00`^  #cccc00

-#b2b200{}  #b2b200

-#ff0000%   #ff0000

-#e50000$   #e50000

-#cc0000"   #cc0000

-#b20000!   #b20000

-#0000ffq   #0000ff

-#1919ffw   #1919ff

-#3232ffr   #3232ff

-#4c4cfft   #4c4cff

Pero yo no quiero filtrar, lo que quiero es que si el formato no es válido no se pegue nada de nada.
Podría usar strspn para ello pero si la vcl tiene algo así me ahorro de añadir la librería string solo para eso.

Hola.

No conozco alguna función de la VCL que haga lo que buscas. Y si deseas prescindir de la librerá string, tendrías que hacer una función en C que lo realize, vg.r.:

Código PHP:


		
			
/* 

   devuelve la posición del caracter que no está

   en la máscara, o -1 si todos los caracteres coinciden

   con la máscara 

*/.

int buscar(char *msk, char *str)

 {

  int i, j, x;

  for (i=0; str[i] != '\0'; i++) {

    x = 0;

    for(j=0; msk[j] != '\0'; j++)

      if (msk[j] == str[i]) x = 1;

    if (!x) return i;

  }

  return -1;

}

Por ejemplo:

Código PHP:


		
			
printf("\n%d\n",buscar("abc", "acaba"));

devuelve -1
y

Código PHP:


		
			
printf("\n%d\n",buscar("abc", "acabo"));

devuelve 4

Saludos :)

Bueno, al final lo he pensado mejor y voy a hacer que imprima solo caracteres válidos pero la cosa es que consigo filtrarlo pero me lo muestra al final de lo que pego con Ctrl + V en vez de sustituir lo que pego por lo filtrado. Tengo esto:

Código PHP:


		
			
void __fastcall TForm1::EditValue1KeyPress(TObject *Sender, System::WideChar &Key)
{
    if(Key == 0x16){
        if(Clipboard()->HasFormat(CF_TEXT)){
            String CBText = Clipboard()->AsText;
            EditValue1->Text = SuprimirCaracteresInvalidos(CBText.UpperCase());
        }
    }else if((Key < '0' || (Key > '9' && (Key < 'A' || Key > 'F'))) && Key != '\b' && Key != 0x03 && Key != 0x18)
        Key = NULL;
}
//---------------------------------------------------------------------------

String TForm1::SuprimirCaracteresInvalidos(String input)
{
    int i, j;
    String output = "";
    String mask = "0123456789ABCDEF";

    for(i = 1; input.Length() > 0 && i < input.Length(); i++){
        for(j=1; j < mask.Length(); j++){
            if(input[i] == mask[j]){
                output += (WideString)input[i];
            }
        }
    }
    return output;
}

Además también me falta que al pegar con el menú contextual tenga el mismo comportamiento. El menú contextual o popup no lo he creado yo, es el de Windows y no se como hacer eso.

Lo del menú contextual lo he solucionado con mi propio popupmenu y gestionando ahí pero lo de Ctrl+V no lo consigo.