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特殊字符的转换显示，确保程序运行正常。