[ホーム] - [ノーツドミノプログラミングサンプル一覧] - [リッチテキストフィールドが空か確認するロータススクリプト]

リッチテキストフィールドが空か確認するロータススクリプト| ノーツドミノ

ノーツドキュメント内のリッチテキストフィールドが空かどうかチェックする方法を紹介します。リッチテキストフィールドが空の場合は、サイズが14であるためそれを利用して確認します。
以下の例ではfield1(リッチテキストフィールド)が空がどうかをチェックしています。



Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim richTextItem As NotesRichTextItem

Dim doc As NotesDocument

Set uidoc = workspace.CurrentDocument

Set doc = uidoc.Document

Set richTextItem = doc.GetFirstItem("field1")



rem サイズが14か確認する

If (richTextItem .ValueLength = 14) Then

　　Msgbox("field1は空です。")

End If

(注)このチェックが正常に実行されるためには、文書が保存されている必要があります。リッチテキストフィールドの変更後に文書が保存されていない場合には、最後に保存された状態に対してチェックが実行されます。正しく確認するには文書を保存してから実行してください。

(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)

本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノプログラミングサンプル一覧]