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

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

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



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には対応していません。本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。このページはリンクフリーです。(このページへの直接リンクも可能です。)

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