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

創(chuàng)新互聯(lián)建站從2013年開(kāi)始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站設(shè)計(jì)、網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元固陽(yáng)做網(wǎng)站,已為上家服務(wù),為固陽(yáng)各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18982081108

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

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


1.在RTF域中輸入HTML代碼,想保持HTML網(wǎng)頁(yè)的格式.
解決方法如下:
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,這段代碼的關(guān)鍵是richStyle.PassThruHTML= True這句,它把RTF域的PassThruHTML屬性設(shè)為了TRUE這時(shí)候RTF就會(huì)完全解析HTML標(biāo)簽并顯示成網(wǎng)頁(yè)的格式.

但是我好像發(fā)現(xiàn)在用代理來(lái)創(chuàng)建一個(gè)新文檔時(shí)并不能直正的創(chuàng)建出一個(gè)richStyle.PassThruHTML= True的RTF域.有時(shí)候并不是很靈.特別是在當(dāng)代理產(chǎn)生了多個(gè)同名的RTF域時(shí)這種情況出現(xiàn)的更多.

2.當(dāng)RTF域中輸入的是文本文字不帶 HTML標(biāo)簽時(shí),這時(shí)如果要在IE下保持格式需要把回車(chē)符換成HTML標(biāo)簽即:
或者是

標(biāo)簽.并把空格符換成 
又因?yàn)樵赿ominoR5下lotusScript沒(méi)有提供replace函數(shù)(Domino R6下自帶了)所以我們必須要自已寫(xiě)一個(gè)replace函數(shù)來(lái)處理回車(chē)換行符.

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