Buscar Valor dentro de una Cadena

[Efren2006]

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

[[duilioisola]]

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%'

[Casimiro Notevi]

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.

[Efren2006]

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

[ecfisa]

Hola Efren2006

Empezado por Efren2006

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

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

[Efren2006]

Empezado por ecfisa

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

[Casimiro Notevi]

Empezado por Efren2006

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.

[Efren2006]

Empezado por ecfisa

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

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

[ecfisa]

Hola Efren2006.

Empezado por Efren2006

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

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

[Casimiro Notevi]

[Efren2006]

Empezado por ecfisa

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 ;^

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

Error del precompilador: parsing error - POSITION.

Uso Firebird 2.1

[ecfisa]

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

[Efren2006]

Empezado por ecfisa

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