14 respuestas en este tema

[enecumene]

Pues eso cómo puedo filtrar datos que contengan caracteres especiales y números en tres campos de una tabla DBF, me explico, yo quiero mostrar en un DBGrid los Datos que tengan al menos un caracter especial, datos nulos o números en tres de sus campos por ejemplo:

0005555 /FERNANDO LEONOR
0006667 % RODRIGUEZ
MONT JUANA LA PELADORA
;M FRANCISCO

Como verán ese es un ejemplo del resultado que espero, los campos son código, nombre y apellido, en el caso de código debo filtrar los datos que contengan valores distintos a números, se comprende?.

Puede serpor consulta o por filtered. Uso Delphi7, ADO y BD DBF (FoxPro).

Saludos.

[egostar]

Yo creo que es más fácil hacerlo con delphi, con una sentencia SQL lo veo complicadon, aunque no se, puede que haya una función que haga eso.

Voy a hacer unas pruebas a ver que pex

Salud OS

[enecumene]

Ah pues espero tus pruebas , mientras he intentado lo siguiente, pero no me muestra nada:

sql

SELECT CODE, LASTNAME, NAME, CDEPART, CODPOS FROM EMPLOYEE.DBF WHERE CODE LIKE "%[a-zA-Z,;:.-_¿?·$%]%"

Saludos.

[bigleaguer]

Saludos.
Creo que lo que necesitas es filtrar por expresiones regulares. Nunca he utilizado base de datos DBF por lo que no estoy familiarizado con la sintaxis, pero en MySQL existe REGEXP el cual te permite especificar un patrón para una búsqueda compleja, sería cuestión de que investigues si tu motor cuenta con este tipo de busqueda.

En MySQL quedaría algo asi tu sentencia:

sql

SELECT CODE, LASTNAME, NAME, CDEPART, CODPOS FROM EMPLOYEE
WHERE CODE REGEXP "^[a-z][:.-_¿?·$%]";

Espero haberte dado una idea. 

[egostar]

Saludos.
Creo que lo que necesitas es filtrar por expresiones regulares. Nunca he utilizado base de datos DBF por lo que no estoy familiarizado con la sintaxis, pero en MySQL existe REGEXP el cual te permite especificar un patrón para una búsqueda compleja, sería cuestión de que investigues si tu motor cuenta con este tipo de busqueda.

En MySQL quedaría algo asi tu sentencia:

sql

SELECT CODE, LASTNAME, NAME, CDEPART, CODPOS FROM EMPLOYEE
WHERE CODE REGEXP "^[a-z][:.-_¿?·$%]";

Espero haberte dado una idea. 

Muy interesante y práctico, yo utilizo Firebird pero sólo hasta la versión 2.5 se cuenta con esta funcionalidad.

Si no se tiene, pues habrá que hacer algo como esto desde delphi (si tampoco se tiene una versión con Expresiones Regulares).

delphi

function verificaCaracteres(const Str: string): bool;
var
  I: Integer;
begin
  result := false;
  for I := 1 to length(Str) do
  begin
    if Str[i] in ['0'..'9',':','¿','?','$','%'] then  //Agregas tantos caracteres como desees filtrar
    begin
       result := true;
       exit;
    end;
  end;
end;
 
procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  accept :=  VerificaCaracteres(IBQuery1CODE.Text) or 
             VerificaCaracteres(IBQuery1NAME.Text) or 
             VerificaCaracteres(IBQuery1LASTNAME.Text);
end;

Salud OS

[Rolphy Reyes]

Saludos.

En Oracle y MS SQL se puede utilizar las funciones InStr y CharIndex respectivamente.

También existe la función Position, mira a ver si alguna de esta tiene su equivalente para FoxPro.  Entiendo que con esto puedes resolver tu problema sin necesidad de utilizar Regular Expression.

[enecumene]

Gracias Rolphy, no encontré nada similar a InStr y CharIndex, pero sí tiene la función Position de la cual no encuentro info de uso, me podrías ayudar?

Saludos.

[enecumene]

Yo creo que es más fácil hacerlo con delphi, con una sentencia SQL lo veo complicadon, aunque no se, puede que haya una función que haga eso.

Voy a hacer unas pruebas a ver que pex

Salud OS

Nada aún mi estimado??

[egostar]

Yo creo que es más fácil hacerlo con delphi, con una sentencia SQL lo veo complicadon, aunque no se, puede que haya una función que haga eso.

Voy a hacer unas pruebas a ver que pex

Salud OS

Nada aún mi estimado??

No mam.....nches

Salud OS

[Rolphy Reyes]

Saludos.

Position:

Returns the start position of the first string inside the second string, relative to the beginning of the outer
string. In the second form, an offset position may be supplied so that the function will ignore any matches
occuring before the offset position and return the first match following that.

POSITION( <string> IN <string> )
POSITION( <string>, <string> [, <offset-position>] )

sql

SELECT rdb$relation_name
FROM rdb$relations
WHERE POSITION('RDB$' IN rdb$relation_name) = 1;

/* */
position ('be', 'To be or not to be', 10)
returns 17. The first occurrence of 'be' occurs within the offset and is ignored.

Extraído de ayuda de Firebird Release Note 2.1.3.

Espero pueda servirte!

[enecumene]

No mam.....nches

No te molestes wey no lo había visto , pues sí me ha funcionado de perlas , ahora, tengo un inconveniente, como agrego los nulos?, como distingo un espacio al inicio y no en todo el string?

Saludos.

[egostar]

No te molestes wey no lo había visto , pues sí me ha funcionado de perlas , ahora, tengo un inconveniente, como agrego los nulos?, como distingo un espacio al inicio y no en todo el string?

Saludos.

A ver si así te funciona, lo hago de memoria, no lo he probado.

delphi

procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  accept :=  VerificaCaracteres(IBQuery1CODE.Text) or 
             VerificaCaracteres(IBQuery1NAME.Text) or 
             VerificaCaracteres(IBQuery1LASTNAME.Text) or
             Trim(IBQueryCODE.text) = '' or
             Trim(IBQueryNAME.text) = '' or
             Trim(IBQueryLASTNAME.text) = '';
end;

Salud OS

[enecumene]

Pos sí, sí funciona sólo hay que cerrarlas entre comillas , gracias wey , doy como resuelto el tema.

Saludos.

[egostar]

Pos sí, sí funciona sólo hay que cerrarlas entre comillas , gracias wey , doy como resuelto el tema.

Saludos.

Entre comillas ???? 

Pues que bien que funcionó otra de mis acostumbradas chapuzas

Salud OS

[enecumene]

Ufff quise decir entre Paréntesis