LotusScript处理特殊字符

if instr(xmlStr,"<") > 0 then
     xmlStr = replace(xmlStr,"<","&lt;")
end if
if instr(xmlStr,"&") > 0 then
     xmlStr = replace(xmlStr,"<","&amp;")
end if
if instr(xmlStr,">") > 0 then
     xmlStr = replace(xmlStr,"<","&gt;")
end if
'注意：英文双引号替换时为4个英文双引号
if instr(xmlStr,"""") > 0 then
     xmlStr = replace(xmlStr,"""","&quot;")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if instr(xmlStr,"'") > 0 then
     xmlStr = replace(xmlStr,"'","&apos;")
end if

原来链接如下：