Buscar Valor dentro de una Cadena
 

Saludos


Me gustaría saber si existe alguna función de Firebir que me permita buscar un valor dentro de una cadena de caracteres es decir lo mismo que hace la Función POS de Delphi.

Nota: es para usarla dentro de un Procedimiento Almacenado no para buscar datos ya que probé con la Función "Position" y no compila

Uso Firebid 2.1

Si solo necesitas saber si contiene la cadena, puedes probar con LIKE

Código SQL [-]
cadena = 'ESTO ES UNA PRUEBA DE CADENAS';
resultado_contiene = '';
resultado_empieza = '';
resultado_termina =  '';

if (cadena like '%PRUEBA%') then
   resultado_contiene = 'CONTIENE PRUEBA';
else
   resultado_contiene = 'NO CONTIENE PRUEBA';

if (cadena like 'PRUEBA%') then
   resultado_empieza = 'EMPIEZA CON LA PALABRA PRUEBA';
else
   resultado_empieza = 'NO EMPIEZA CON LA PALABRA PRUEBA';

if (cadena like '%PRUEBA') then
   resultado_termina = 'TERMINA CON LA PALABRA PRUEBA';
else
   resultado_termina = 'NO TERMINA CON LA PALABRA PRUEBA';

Código SQL [-]
/* Busca todos los clientes que contengan GOMEZ en el nombre sin tener en cuenta mayúsculas o minúsculas */
select * from clientes
where upper(nombre) like '%GOMEZ%'

También con containing que encuentra ya esté en mayúsculas o minúsculas, al principio, enmedio o al final, sin tener que especificar nada.

Gracias por sus aportes

Amigo duilioisola probare esta opción ya que es la que se parece mas a lo que necesito...

Amigo Casimiro Notevi la instruccion containing funciona con clausalas SELECT ... yo la necesito para comprar 2 variables dentro de un Procedimiento almacenado

Avisare los resultados

Hola Efren2006
Pues a mi me funciona muy bien sin usar SELECT...

Código SQL [-]
SET TERM ^;

CREATE OR ALTER PROCEDURE PR_CONTAINING(
  SUBSTR VARCHAR(255), STR VARCHAR(255))
RETURNS (
  RESULT SMALLINT)
AS
BEGIN
  IF (STR CONTAINING(SUBSTR)) THEN
    RESULT = 1;
  ELSE
    RESULT = 0;
  SUSPEND;
END^

SET TERM ;^

De todos modos Firebird 2.1 ya cuenta con la función POSITION() que creo hace lo que buscas.

Código SQL [-]
SELECT POSITION('PERRO' in 'EL VIEJO PERRO DE JUAN') FROM RDB$DATABASE

Saludos :)

Amigo ecfisa Tienes razon fue un error mio en la implementación de la función CONTAINING

Perdona Casimiro Notevi tu aporte fue el acertado..

Gracias a ambos por el aporte esto era exactamente lo que necesitaba

El aporte de [duilioisola] también es acertado, aunque use otra función.
:)

Se me olvidaba comentar la Función POSITION NO funciona dentro de los Procedimientos Almacenados.... Pero SI en consultas

Hola Efren2006.
Lamento tener que disentir nuevamente...

Realizá esta simple prueba:

Código SQL [-]
SET TERM ^;

CREATE OR ALTER PROCEDURE PR_POSITION(
  SUBSTR VARCHAR(255), STR VARCHAR(255))
RETURNS (
  RESULT SMALLINT)
AS
BEGIN
  RESULT = POSITION(SUBSTR, STR);
  SUSPEND;
END^

SET TERM ;^

Y podrás usar PR_POSITION del mismo modo que POSITION, por ejemplo:

Código SQL [-]
SET TERM ^;

CREATE OR ALTER PROCEDURE PR_TEST_PR_POSITION(
  SUBSTR VARCHAR(255), STR VARCHAR(255))
RETURNS (
  RESULT SMALLINT)
AS
BEGIN
  EXECUTE PROCEDURE PR_POSITION(SUBSTR, STR) RETURNING_VALUES(RESULT);
  SUSPEND;
END^

SET TERM ;^

Y si sos de los que te gusta ir a las bases, nada te impide hacer tu propia función POS:

Código SQL [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE POS (
    SUBSTR VARCHAR(255),
    STR VARCHAR(255))
RETURNS (
    RESULT INTEGER)
AS
  DECLARE VARIABLE I INTEGER;
  DECLARE VARIABLE J INTEGER;
BEGIN
  I = 1;
  J = 1;
  STR = STR || ' ';
  WHILE (I <= CHAR_LENGTH(SUBSTR) AND J <= CHAR_LENGTH(STR)) DO
  BEGIN
    IF (SUBSTRING(SUBSTR FROM I FOR 1) = SUBSTRING(STR FROM J FOR 1)) THEN
      I = I + 1;
    ELSE
      I = 1;
    J = J + 1;
  END
  IF (J <= CHAR_LENGTH(STR)) THEN
    RESULT = J - I + 1;
  ELSE
    RESULT = 0;
  SUSPEND;
END^

SET TERM ; ^

Saludos :)

^\||/^\||/^\||/

Amigo ecfisa tal vez el problema lo tengo yo pero copie y pegue dicho procedimiento y al compilar me da el siguiente error:
Uso Firebird 2.1

Hola efren2006.

Seguramente el error es generado por el componente o por el gestor de base de datos que estas usando para conectarte a Firebird, como lo mencionan en The Firebird FAQ: Parsing error.

Desde Flamerobin o IBExpert funciona correctamente tál como está en el mensaje anterior y desde Delphi con los componentes IBX tambien lo hace bién:

Código Delphi [-]
...
begin
  IBStoredProc1.Params.Clear;
  IBStoredProc1.StoredProcName:= 'PR_POSITION';
  IBStoredProc1.ParamByName('SUBSTR').AsString:= 'UN';
  IBStoredProc1.ParamByName('STR').AsString:= 'HOLA MUNDO';
  IBStoredProc1.ExecProc;
  ShowMessage(IBStoredProc1.ParamByName('RESULT').AsString);  // muestra 7
end;

Saludos :)

Yo uso IB Manager 3 para gestionar mi base de Datos,,, Efectivamente según lo que lei en el link que mencionas es asi.... ya estare atento para la proxima vez que me de este tipo de errores

Saludos