Re: [firebase-br] Espaço em branco

Luciano luciano em praticsistemas.com.br
Ter Abr 26 08:18:43 -03 2005


Experimente este conjunto de procedures.....
Se precisar de algo mais entre em contato

CREATE PROCEDURE RTRIM(
    WVAR VARCHAR(255))
RETURNS (
    R_RTRIM VARCHAR(255))
AS
DECLARE VARIABLE I INTEGER;
declare variable s varchar(1);
begin
select r_Len from Len(:wvar) into :i;

if ((:i < 2) or (:wvar = ' ')) then
 r_rtrim = '';
else begin
 while ((:i > 0) and (:wvar is not null)) do begin
  select r_Sright from S_Right(:wvar, 1) into :s;

  if (:s = ' ') then
   begin
    select r_copy from copy(:wvar, 1, (:i - 1)) into :wvar;
    i = :i - 1;
   end
  else
   break;
 end

 r_rtrim = :wvar;
end

suspend;
end

===========================
CREATE PROCEDURE COPY(
    WVAR VARCHAR(1024),
    WINI INTEGER,
    WTAM INTEGER)
RETURNS (
    R_COPY VARCHAR(255))
AS
DECLARE VARIABLE I INTEGER;
DECLARE VARIABLE J INTEGER;
DECLARE VARIABLE K INTEGER;
begin
select r_Len from Len(:wvar) into :i;
j = 1;
k = 1;
r_copy = '';

while ((:wvar is not null) and (:i > 0) and (j <= :wtam)) do begin
 if (:k >= :wini) then begin
  r_copy = :r_copy || substring(:wvar from 1 for 1);
  j = j + 1;
 end

 wvar = substring(:wvar from 2 for 255);
 k = :k + 1;
 i = :i - 1;
end

suspend;
end

======================
CREATE PROCEDURE LEN(
    WSTR VARCHAR(1024))
RETURNS (
    R_LEN SMALLINT)
AS
DECLARE VARIABLE L varchar(10);
begin
if (:wstr = 'MithBuster') then
 r_Len = 10;
else begin
 wstr = :wstr || 'MithBuster';
 r_Len = 0;
 l = substring(:wstr from 1 for 10);

 while (:l <> 'MithBuster') do begin
  r_Len = :r_Len + 1;
  wstr = substring(:wstr from 2 for 1023);
  l = substring(:wstr from 1 for 10);
 end
end

suspend;
end

Luciano C dos Santos


----- Original Message ----- 
From: "Rodrigo - Alma Informática Ltda" <desenv28 em almainformatica.com.br>
To: "Pha-Lista" <lista em pha.com.br>; "ListaFireBase" <lista em firebase.com.br>
Sent: Monday, April 25, 2005 2:59 PM
Subject: [firebase-br] Espaço em branco


Boa tarde a todos,

Alguém sabe algum comando sql que retira espaço em brancos da direita.

Muito obrigado.


Rodrigo






Mais detalhes sobre a lista de discussão lista