if instr(xmlStr,"<") > 0 then
xmlStr = replace(xmlStr,"<","<")
end if
if instr(xmlStr,"&") > 0 then
xmlStr = replace(xmlStr,"<","&")
end if
if instr(xmlStr,">") > 0 then
xmlStr = replace(xmlStr,"<",">")
end if
'注意:英文双引号替换时为4个英文双引号
if instr(xmlStr,"""") > 0 then
xmlStr = replace(xmlStr,"""",""")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if instr(xmlStr,"'") > 0 then
xmlStr = replace(xmlStr,"'","'")
end if
LotusScript处理特殊字符
最新推荐文章于 2020-08-20 15:54:10 发布