我相信 dbms_xmlgen 的问题在于技术上只有五个 XML 实体。您的示例有一个数字 HTML 实体,对应于 Unicode:
http://theorem.ca/~mvcorks/cgi-bin/unicode.pl.cgi?start=0100&end=017F
Oracle 有一个函数 UNISTR 在这里很有帮助:
select unistr('sloven\010dina') from dual;
在上面的示例中,我已将 269 转换为等效的十六进制010d
(在 Unicode 中是U+010D
)。但是,您可以传递一个十进制数并进行如下转换:
select unistr('sloven\' || replace(to_char(269, 'xxx'), ' ', '0') || 'ina') from dual;
编辑:PL/SQL 解决方案:
这是我为你准备的一个例子。这应该循环并替换您从表中选择的每一行的任何出现。
create table html_entities (
id NUMBER(3),
text_row VARCHAR2(100)
);
INSERT INTO html_entities
VALUES (1, 'Hallöle slovenčina Ċ ú');
INSERT INTO html_entities
VALUES (2, 'I like the letter Ċ');
INSERT INTO html_entities
VALUES (3, 'Nothing to change here.');
DECLARE
v_replace_str NVARCHAR2(1000);
v_fh UTL_FILE.FILE_TYPE;
BEGIN
--v_fh := utl_file.fopen_nchar(LOCATION IN VARCHAR2, FILENAME IN VARCHAR2, OPEN_MODE IN VARCHAR2, MAX_LINESIZE IN BINARY_INTEGER);
FOR v_rec IN (select id, text_row from html_entities) LOOP
v_replace_str := v_rec.text_row;
WHILE (REGEXP_INSTR(v_replace_str, '&#[0-9]+;') <> 0) LOOP
v_replace_str := REGEXP_REPLACE(
v_replace_str,
'&#([0-9]+);',
unistr('\' || replace(to_char(to_number(regexp_replace(v_replace_str, '.*?&#([0-9]+);.*$', '\1')), 'xxx'), ' ', '0')),
1,
1
);
END LOOP;
-- utl_file.put_line_nchar(v_fh, v_replace_str);
dbms_output.put_line(v_replace_str);
END LOOP;
--utl_file.fclose(v_fh);
END;
/
请注意,我已在对 UTL_FILE 函数的调用中存根,以将 NVARCHAR 行(Oracle 的扩展字符集)写入数据库服务器上的文件。dbms_output 虽然非常适合调试,但似乎不支持扩展字符,但如果您使用 UTL_FILE 写入文件,这应该不是问题。这是 DBMS_OUTPUT:
Hallöle slovencina C ú
I like the letter C
Nothing to change here.