1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
-- Recherche de la position de la chaine strsrch
-- dans la chaine str
-- Retourne 0 si la chaine n'a pas ete trouvee
create function strpos(str char(40),strsrch char(40)) returning smallint
define i,pos,lenstr,lenstrsrch smallint;
let lenstrsrch = length(strsrch);
let lenstr = length(str);
if lenstr=0 or lenstrsrch=0 then return 0; end if;
let pos=0;
for i=1 to lenstr
if substr(str,i,lenstrsrch)=strsrch then
let pos=i;
exit for;
end if;
end for;
return pos;
end function; |
Partager