ORACLE中处理xml字符中的特殊符号函数

最新推荐文章于 2023-05-10 21:53:48 发布

狂狼的小蝴蝶

最新推荐文章于 2023-05-10 21:53:48 发布

阅读量906

点赞数 1

分类专栏： oracle 文章标签： XML

本文链接：https://blog.csdn.net/yuchen488/article/details/88892305

版权

oracle 专栏收录该内容

9 篇文章 2 订阅

订阅专栏

CREATE OR REPLACE Function ZLYG.Rep_Xml_Qjc(v_Data In Varchar2) Return Varchar2 Is
  Result Varchar2(2000);
Begin
  Result := v_Data;
  If Instr(Result, '<=') > 0 Then
    Result := Replace(Result, '<=', '≤');
  End If;
  If Instr(Result, '>=') > 0 Then
    Result := Replace(Result, '>=', '≥');
  End If;
  If Instr(Result, '<') > 0 Then
    Result := Replace(Result, '<', '＜');
  End If;
  If Instr(Result, '>') > 0 Then
    Result := Replace(Result, '>', '＞');
  End If;
  If Instr(Result, '=') > 0 Then
    Result := Replace(Result, '=', '═');
  End If;
  If Instr(Result, Chr(39)) > 0 Then
    Result := Replace(Result, Chr(39), '＇');
  End If;
  If Instr(Result, Chr(39)) > 0 Then
    Result := Replace(Result, Chr(39), '＇');
  End If;
  If Instr(Result, '/') > 0 Then
    Result := Replace(Result, '/', '／');
  End If;
  If Instr(Result, chr(47)) > 0 Then
    Result := Replace(Result, chr(47), ' ');
    If Instr(Result, '、') > 0 Then
      Result := Replace(Result, '、', ' ');
    End If;
  
  End If;
  If Instr(Result, '[') > 0 Then
    Result := Replace(Result, '[', ' ');
  End If;
  If Instr(Result, ']') > 0 Then
    Result := Replace(Result, ']', ' ');
  End If;
  If Instr(Result, '—') > 0 Then
    Result := Replace(Result, '—', '＞');
  End If;
  If Instr(Result, '&') > 0 Then
    Result := Replace(Result, '&','＆');
  End If;
  Return(Result);
End Rep_Xml_Qjc;