Leer texto caracter a caracter

[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