XML Publish开发--特殊字符转换

在利用XML Publish开发打印PDF文件中，对于物料描述和供应商的显示经常会碰到一些特殊字符，例如“<,>”等。

这些特殊字符是XML的标记字符，在XML中有特殊的含义，所以，对一些可能有特殊字符的VARCHAR2类型的内容进行处理，确保程序运行正常。

可以单独写成一个函数，供重复使用，如下：

FUNCTION xml_text_replace(pi_text IN VARCHAR2 -- Source text
) RETURN VARCHAR2 IS
w_text VARCHAR2(5000);
BEGIN
w_text := REPLACE(pi_text,CHR(38),CHR(38) || 'amp;');
w_text := REPLACE(w_text,'<',CHR(38) || 'lt;');
w_text := REPLACE(w_text,'>',CHR(38) || 'gt;');
w_text := REPLACE(w_text,'"',CHR(38) || 'quot;');
w_text := REPLACE(w_text,'''',CHR(38) || 'apos;');
w_text := REPLACE(REPLACE(w_text,CHR(13),''),CHR(10),'');
RETURN w_text;
EXCEPTION
WHEN OTHERS THEN
RETURN NULL;
RAISE;
END xml_text_replace;

使用方法，如下：

varchar2（500） v_data := ‘********’

xml_text_replace（v_data）；

如上便可以实现XML特殊字符的转换显示，确保程序运行正常。