這篇文章主要為大家展示了“在B/S下如何保持RTF域格式”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領大家一起研究并學習一下“在B/S下如何保持RTF域格式”這篇文章吧。

創(chuàng)新互聯(lián)長期為1000+客戶提供的網(wǎng)站建設服務，團隊從業(yè)經(jīng)驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為臨川企業(yè)提供專業(yè)的網(wǎng)站設計制作、成都網(wǎng)站建設，臨川網(wǎng)站改版等技術(shù)服務。擁有10多年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

在B/S下保持RTF域格式的方法

在Lotus b/s程序的開發(fā)中,經(jīng)常要使用到RTF域,而Lotus提供的RTF雖然可以使用applet來顯示并可以編輯文本文字的格式,但其功能有限,而且顯示速度比較慢.也并不是所有的IE都支持.那么現(xiàn)在開發(fā)中用的最多的還是自已來處理RTF域的格式.目前使用最多的應該是基于DHTML編寫的網(wǎng)頁編輯器,它最終產(chǎn)生的是HTML代碼,而在Lotus中HTML代碼在RTF域中默認是把標簽顯示給了用戶,這不是我們所想要的效果.解析后的效果才是我們所想要的. 現(xiàn)在總結(jié)一下顯示RTF域中輸入的文字的格式應該有三個不同的方法.看情況而定.

　
1.在RTF域中輸入HTML代碼,想保持HTML網(wǎng)頁的格式.
　 解決方法如下:
　Sub Initialize　　　　
　　　　 Dim session As New NotesSession
　　　　 Dim db As NotesDatabase
　　　　 Set db = session.CurrentDatabase
　　　　 Dim doc As New NotesDocument(db)
　　　　 Call doc.AppendItemValue("From", session.UserName)
　　　　 Call doc.AppendItemValue("Subject", _
　　　　 "Meeting time changed")
　　　　 Dim richStyle As NotesRichTextStyle
　　　　 Set richStyle = session.CreateRichTextStyle
　　　　 Dim richText As New NotesRichTextItem(doc, "Body")
　　　　 richStyle.PassThruHTML = True
　　　　 Call richText.AppendStyle(richStyle)
　　　　 Call richText.AppendText("Hello")
　　　　 Call doc.Save(True, False)
End Sub
　
以上代碼顯示的最后效果是Hello而不是Hell,這段代碼的關鍵是richStyle.PassThruHTML = True這句,它把RTF域的PassThruHTML屬性設為了TRUE這時候RTF就會完全解析HTML標簽并顯示成網(wǎng)頁的格式.
　
但是我好像發(fā)現(xiàn)在用代理來創(chuàng)建一個新文檔時并不能直正的創(chuàng)建出一個richStyle.PassThruHTML = True的RTF域.有時候并不是很靈.特別是在當代理產(chǎn)生了多個同名的RTF域時這種情況出現(xiàn)的更多.
　
2.當RTF域中輸入的是文本文字不帶 HTML標簽時,這時如果要在IE下保持格式需要把回車符換成HTML標簽即:
或者是

標簽.并把空格符換成 
　 又因為在dominoR5下lotusScript沒有提供replace函數(shù)(Domino R6下自帶了)所以我們必須要自已寫一個replace函數(shù)來處理回車換行符.

以上是“在B/S下如何保持RTF域格式”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學習更多知識，歡迎關注創(chuàng)新互聯(lián)-成都網(wǎng)站建設公司行業(yè)資訊頻道！

文章標題：在B/S下如何保持RTF域格式-創(chuàng)新互聯(lián)
URL地址：http://weahome.cn/article/dcdees.html