Leer texto caracter a caracter

[Combat-F2D]

mira la:

http://freeadhocudf.org

creo que te pueden valer y tiene soporte para IB7.5

[kikecg]

Hola.

Gracias por la respuesta.

Le echare una ojeada, pero no se si me van a permitir utilizarlas.

A ver si localizo alguna otra solución.

Saludos.

[Gallosuarez]

Kikecg:

¿Como utilizas la función? En Firebird yo la utilizo así y me funciona perfectamente:

Código SQL [-]
SUBSTRING(CADENA FROM 1 FOR 160)

Se que dices que estás utilizando Interbase 7.5, pero aún así se me hace raro que está función la reduzcan a solo 80 caracteres (como lo mencionas).

Saludos,
Gerardo Suárez Trejo

[[RONPABLO]]

Empezado por Gallosuarez

Kikecg:

¿Como utilizas la función? En Firebird yo la utilizo así y me funciona perfectamente:
Código SQL [-]SUBSTRING(CADENA FROM 1 FOR 160)


Se que dices que estás utilizando Interbase 7.5, pero aún así se me hace raro que está función la reduzcan a solo 80 caracteres (como lo mencionas).

Saludos,
Gerardo Suárez Trejo

solo se puede usar "SUBSTRING(CADENA FROM 1 FOR 160)" en firebird desde la versión 2.0 (creo), en la versión 1.5 (y me imagino que en Interbase ocurrirá lo mismo), la UDF SubString solo permite hasta los 80 caracteres.

[Gallosuarez]

Kikecg:

Deja intento hacer lo que tu quieres utilizando un procedimiento almacenado. Voy primero a tomar un baño y cuando regrese intento el procedimiento almacenado.

Atte:
Gerardo Suárez Trejo

PD. Si la reducen a 80 caracteres, entonces se podría hacer en dos paso, ¿o no?

[Gallosuarez]

Kikecg:

¿Puedes verificar si esto de sirve?

Solución 1

Código SQL [-]
cadena1 = SUBSTRING(CADENA FROM 1 FOR 80);
cadena1 = SUBSTRING(CADENA FROM 81 FOR 80);
result = cadena1 || cadena2;

Solución 2

Código SQL [-]
if (STRLEN(TEXTO) > 160) then
  BEGIN
    I = 1;
    CADENA = TEXTO;
    V_AUX = '';
    WHILE (I <= 160) DO
      BEGIN
        V_AUX = V_AUX || SUBSTRING(CADENA FROM 1 TO 1);
        I = I + 1;
        CADENA = SUBSTRING(CADENA FROM 2);
      END
    TEXTO = V_AUX;
  END

Me parece, que esto resuelve tu problema...

Saludos,
Gerardo Suárez Trejo