Re: [firebase-br] Função COPY do Firebird. Existe?

[Luciano Carneiro]

Veja se isto te serve:

CREATE PROCEDURE COPY(
    WVAR VARCHAR(1024),
    WINI INTEGER,
    WTAM INTEGER)
RETURNS (
    R_COPY VARCHAR(1024))
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 1023);
 k = :k + 1;
 i = :i - 1;
end

suspend;
end

com o auxílio de mais esta

CREATE PROCEDURE LEN(
    WSTR VARCHAR(2048))
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

Faça bom uso

Luciano C Santos


----- Original Message ----- 
From: ".:. Enio Marconcini .:. 1010011010 .:." <eniorm em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Tuesday, July 05, 2005 9:57 AM
Subject: [firebase-br] Função COPY do Firebird. Existe?


Salve!
Pessoal, estou procurando uma função no FB1.5 que funcione igual ao Copy do
Delphi. Não sei se existe naturalmente, ou se já tem em UDF ou se tem como
criar uma.
 Abraços,

-- 
ENIO RODRIGO MARCONCINI
.:. msnm: eniorm em gmail.com .:.
http://spaces.msn.com/members/eniomestresith/
°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°°[º]°
a long time ago in a galaxy far, far away...
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa