[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [ビュー内のすべての文書をループ処理するサンプルコード]




ビュー内のすべての文書をループ処理するサンプルコード


指定したビュー内の各文書をループして取得するサンプルコードを紹介します。基本的な処理でよく使われるので仕組みを理解するとよいでしょう。
以下のようなロータススクリプトを使用します。


Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set view=db.GetView("ViewMain")

i=1
Set doc = view.GetNthDocument(1)

While Not (doc Is Nothing)
i=i+1
Set doc = view.GetNthDocument(i)
rem ここに文書(doc)に対する処理を記述する
Wend



ViewMain に対して文書が無くなる(Nothing)までループされるので、各文書への処理を記述してください。

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




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

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