Posted By

ceduard0 on 07/16/13

Tagged

Versions (?)

Last Edited at 07/16/13 09:04am

Statistics

Viewed 759 times

Favorited by 0 user(s)

Related snippets

Find token into list of values

/ Published in: PL/SQL

Find a key from a list of valuesâ€‹â€‹.
parameters:
sbValuesâ€‹â€‹: List of Values 'A;B;C;D'
sbToken: Key 'B'
sbSeparator: ',' or any defined sbValues

Example:
select FSBFINDTOKEN('A;B;C;D','B',';')
from DUAL;

-------------------
Y

Highlighted TextExpand

create or replace
function fsbFindToken(sbValues    in VARCHAR2, 
                      sbToken     in VARCHAR2,
                      sbSeparator in VARCHAR2)
return VARCHAR2
/*
 *
 * Function    : fsbFindToken.sql
 * Autor       : ceduard0
 * Fecha       : 16/02/2011
**/
is
 sbLocated VARCHAR2(1) := 'N';
 sbListOfValues VARCHAR2(2000);
 nuLength  NUMBER;
 sbValue     VARCHAR2(2000);
begin
  sbListOfValues := trim(sbValues);
  nuLength       := Length(sbListOfValues);
		
  if (nuLength = length(REPLACE(sbListOfValues, sbSeparator))) then
       if (sbToken = sbListOfValues) then
         sbLocated := 'Y';
       end if;--if (sbToken = sbListOfValues) then
     else
        --Get data from list of value
        for i in 1..length(sbListOfValues) + 1 loop

if (trim(substr(sbListOfValues, i, 1)) <> trim(sbSeparator)) then
               sbValue := sbValue || substr(sbListOfValues, i, 1);
           else
              -- tbcausal(i).nuCausa:=to_number(sbValue);
               if (sbToken = sbValue) then
                  sbLocated := 'Y';
                  exit;
               end if;--if (sbToken = sbValue) then
               sbValue := null;
           end if;--if (trim(substr(sbListOfValues, i, 1)) <> trim(sbSeparator)) then
       end loop;--for i in 1..length(sbValues) + 1 loop
  end if;--if (nuLength = length(REPLACE(sbListOfValues, sbSeparator))) then

return sbLocated;
end fsbFindToken;
/

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.