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;