【Oralce】oralce字符窜转变为数组

最新推荐文章于 2023-06-08 11:20:19 发布

转载最新推荐文章于 2023-06-08 11:20:19 发布 · 291 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：https://mp-new.csdn.net/mp_blog/creation/editor/78768749

收录于

数据库

本文介绍了一个用于验证某个区域值是否被另一个区域值集合包含的PL/SQL函数。该函数通过解析输入的区域字符串，并逐一比较来确定是否满足包含条件。

CREATE OR REPLACE FUNCTION validate_zone_contain (zone_value VARCHAR2,zone1 VARCHAR2,delimiter varchar2)
RETURN BOOLEAN IS
v_flag BOOLEAN;
v_zone VARCHAR2(500);
v_zone1 VARCHAR2(500);
i NUMBER := 1;
c_i NUMBER := 1;
j NUMBER := 1;
k NUMBER := 1;
c_k NUMBER := 1;
h NUMBER := 1;
v_zone_value NUMBER;
v_zone_start NUMBER;
v_zone_end NUMBER;
BEGIN
-- 区域
v_zone := RTrim(LTrim(zone_value, delimiter), delimiter);
v_zone1 := RTrim(LTrim(zone1, delimiter), delimiter);
v_flag := TRUE;
LOOP
i := InStr(v_zone, delimiter, j);
c_i := InStr(v_zone, delimiter, j);
IF v_flag AND i> 0 THEN
v_zone_value := to_number(Trim(SubStr(v_zone, j, i-j)));
j := i+1;
LOOP
k := InStr(v_zone1, delimiter, h);
-- 多个值时 K > 0 (112,113)
IF k>0 THEN
v_zone_start := to_number(Trim(SubStr(v_zone1, h, k-h)));
v_zone_end := to_number(Trim(SubStr(v_zone1, h, k-h)))+100;
IF v_zone_value < v_zone_start OR v_zone_value > v_zone_end THEN
v_flag := FALSE;
END IF;
k := h+1;
ELSIF c_k >0 AND k = 0 THEN -- c_k 避免k遍历最后一个报错
v_zone_start := to_number(TRIM(v_zone1));
v_zone_end := v_zone_start+100;
IF v_zone_value < v_zone_start OR v_zone_value > v_zone_end THEN
v_flag := FALSE;
END IF;
END IF;
EXIT WHEN k=0;
END LOOP;
ELSIF v_flag AND c_i > 0 AND i= 0 THEN
v_zone_value := to_number(v_zone);
LOOP
k := InStr(v_zone1, delimiter, h);
IF k>0 THEN
v_zone_start := to_number(Trim(SubStr(v_zone1, h, k-h)));
v_zone_end := to_number(Trim(SubStr(v_zone1, h, k-h)))+100;
IF v_zone_value < v_zone_start OR v_zone_value > v_zone_end THEN
v_flag := FALSE;
END IF;
k := h+1;
ELSIF c_k >0 AND k = 0 THEN
v_zone_start := to_number(TRIM(v_zone1));
v_zone_end := v_zone_start+100;
IF v_zone_value < v_zone_start OR v_zone_value > v_zone_end THEN
v_flag := FALSE;
END IF;
END IF;
EXIT WHEN k=0;
END LOOP;
END IF;
EXIT WHEN i=0 OR v_flag = FALSE;
END LOOP;
RETURN v_flag;
END;

标签

#plsql