我制作了Oracle 的 GetVertices() 函数的自定义版本。该解决方案涉及创建用户定义的类型和函数。
这是代码(工作):
CREATE TYPE vertex_type_cust AS object
(
x NUMBER,
y NUMBER,
z NUMBER,
w NUMBER,
id NUMBER );
CREATE TYPE vertex_set_type_cust AS TABLE OF vertex_type_cust;
CREATE OR replace FUNCTION getvertices_cust(geometry mdsys.sdo_geometry)
RETURN vertex_set_type_cust
IS
i NUMBER;
dims NUMBER;
coords NUMBER;
result vertex_set_type_cust;
dim mdsys.sdo_dim_array;
is_zero BOOLEAN;
etype NUMBER;
BEGIN
result := vertex_set_type_cust();
-- handle the POINT case here
IF (geometry.sdo_ordinates IS NULL) THEN
result.extend;
result(1) := vertex_type_cust(geometry.sdo_point.x, geometry.sdo_point.y, geometry.sdo_point.z,NULL,1);
RETURN result;
END IF;
-- all other cases here
coords := geometry.sdo_ordinates.count;
dims := geometry.get_dims;
IF (dims = 0) THEN
RETURN result;
END IF;
coords := coords/dims;
FOR i IN 0 .. coords-1
LOOP
result.extend;
IF (dims = 2) THEN
result(i+1) := vertex_type_cust(geometry.sdo_ordinates(2*i+1), geometry.sdo_ordinates(2*i+2), NULL,NULL,i+1);
ELSIF (dims = 3) THEN
result(i+1) := vertex_type_cust(geometry.sdo_ordinates(3*i+1), geometry.sdo_ordinates(3*i+2), geometry.sdo_ordinates(3*i+3) ,NULL,i+1);
ELSIF (dims = 4) THEN
result(i+1) := vertex_type_cust(geometry.sdo_ordinates(4*i+1), geometry.sdo_ordinates(4*i+2), geometry.sdo_ordinates(4*i+3), geometry.sdo_ordinates(4*i+4), i+1);
END IF;
END LOOP;
RETURN result;
END;
测试数据:
create table a_sdo_geometry_tbl (line_id integer, shape mdsys.sdo_geometry);
insert into a_sdo_geometry_tbl (line_id, shape)
values (1, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1),
sdo_ordinate_array (671539.6852734378,4863324.181436138, 671595.0500703361,4863343.166556185, 671614.013553706,4863350.343483042, 671622.2044153381,4863353.525396131)) );
insert into a_sdo_geometry_tbl (line_id, shape)
values (2, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1),
sdo_ordinate_array (71534.5567096211,4863119.991809748, 671640.7384688659,4863157.132745253, 671684.8621150404,4863172.022995591)) );
insert into a_sdo_geometry_tbl (line_id, shape)
values (3, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1),
sdo_ordinate_array (671622.2044153381,4863353.525396131, 671633.3267164109,4863357.846229106, 671904.0614077691,4863451.286166754)) );
insert into a_sdo_geometry_tbl (line_id, shape)
values (4, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1),
sdo_ordinate_array (671684.8620521119,4863172.022995591, 671892.1496144319,4863244.141440067, 671951.2156571196,4863264.824310392, 671957.4471461186,4863266.847617676, 671966.8243856924,4863269.146632658)) )
select
a.line_id,
b.id as vertex_id,
b.x,
b.y
from
a_sdo_geometry_tbl a
cross join
table(getvertices_cust(a.shape)) b --<<-- the query uses the custom function
order by
a.line_id, b.id;
问题:
我正在使用在线 Oracle 环境测试此解决方案,因为我在公司的 Oracle 数据库中没有 CREATE TYPE 权限。
当我在 Oracle 的免费测试环境 (19c) 中运行上面的代码时,我可以让它工作:
- https://livesql.oracle.com/
- 创建功能:截图
- 使用函数查询:截图
但是,当我尝试使用db<>fiddle运行代码时,在创建函数时出现错误:
- db<>fiddle session (18c)
ORA-24344: success with compilation error
问题:
使用 db<>fiddle 创建自定义函数时,如何避免出现该错误?
我知道 Oracle Live 和 db<>fiddle(19c 与 18c)之间存在版本差异。但如果这是问题所在,我会感到惊讶。这对我来说似乎不是版本问题。
/
在函数定义之后添加一个。https://dbfiddle.uk/?rdbms=oracle_18&fiddle=4031e203694674dbc764b5290dd93bdb