domino开发 ：RTF域施用总结

domino开发 ：RTF域使用总结
假定 A为可编辑RTF域，B为计算型RTF域，用户在A中输入数据，保存后在B中展示。
（一）、如果A中包含html代码，在B中显示html的显示结果。如果想要在B中展示html源代码，需要在代理中调用下面的方法。

Private Function removeHTML(txt As String) As String'/**' * Convert HTML tags the user enters to escaped entities' * @param String mark-up to parse' * @return String parsed mark-up' */On Error Goto StackError' Clunky I know...removeHTML = Replace(txt, "&amp;", "~AMPERSAND~")removeHTML = Replace(removeHTML, "&", "&amp;")removeHTML = Replace(removeHTML, "<", "&lt;")removeHTML = Replace(removeHTML, ">", "&gt;")removeHTML = Replace(removeHTML, "~AMPERSAND~", "&amp;")Exit Function

（二）、如果A中包含换行符（windows下为回车+换行，即“\r\n”），如果要想在B中显示出换行效果，需要做如下处理。

s1 = Replace(s1, Chr(13) & Chr(10), "<br>")

查看更多 下一篇