作成者カテゴリ 
公開
始続終余
04/27/1998 01:21 PM
エージェント
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
N/AN/AN/AN/AN/A

リッチテキストフィールドをテキストフィールドに変換

リッチテキストフィールドの内容をビューで表示させたいと思い、以前の書き込みを検索したら以下の回答がありましたが(1月28日)、スクリプトに関する知識が無いので手順が分かりません。
どなたか手順を追って説明してもらえないでしょうか?

フィールドを作って、記述されたスクリプトをコピー&ペーストし、該当するフィールド名に変更したけれどエラーがでて動作しませんでした…

$$QuerySaveAgentフィールドに下記のようなエージェントを入れればリッチテキストフィールドの内容がテキストに変換されますので、その後、ビューに表示する際に@left等を使って文字数を指定すれば大丈夫だと思います

Dim session As New NotesSession
Dim doc As notesdocument
Dim rtitem As Variant
Dim plainText As String

Set doc = session.DocumentContext
Set rtitem = doc.GetFirstItem( "リッチテキストフィールド名" )

If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( True, 0 )
End If
doc.ビューに表示したいフィールド名 = plainText


[Previous Main Document]
リッチテキストフィールドをテキストフィールドに変換 (始続終余) * 現在地 *
. . ノーツクライアント用コーディングの説明 (SKI)
. . デバッグの結果は? (SKI)
[Next Main Document]