環境変数の利用と注意

先日、notes.ini 利用したアプリでちょっとしたトラブルがあったので、まとめておきます。

notes.ini ファイルは、ノーツの動作設定が記録されているファイルで、ノーツクライアントのプログラムディレクトリに存在します。セットアップするなどノーツ担当者であれば知らないはずはないファイルですね。

notes.ini ファイルのアクセス

アプリ開発では、notes.ini にアクセスする機能が提供されています。

	＠関数	LotusScript（NotesSessionクラス）
設定	@Environment	SetEnvironmentVar メソッド
取得	@Environment	GetEnvironmentString メソッド

例えば、SrcStr フィールドの値を notes.ini に Denaoshi という名前で設定するには、次のように記述します。

＠関数	@Environment("Denaoshi"; SrcStr)
LotusScript	Dim ns As New NotesSession Dim nuiw As New NotesUIWorkspace Dim nuid As NotesUIDocument Dim sStr As String Set nuid = nuiw.CurrentDocument sStr = nuid.FieldGetText("SrcStr") Call ns.SetEnvironmentVar("Denaoshi", sStr)

実行すると、以下のように notes.ini に新しいエントリ "$Denaoshi" が追加され、値が設定されます。すでにエントリがある場合には、値のみ更新します。

参考までの情報ですが、全角文字の前に付加されている □ は、LMBCS（Lotus Multi-Byte Character Set）の日本語を表すコード（0x10）です。LMBCS の日本語は、0x10 + Shift-JIS の 3 バイトで構成されます。バイナリエディタで ”出” の文字を確認すると次のようになります（”出” の文字コードは 0x8F6F）。

notes.ini ファイルから値を取得して、IniStr フィールドにセットする方法は、次の通りです。

＠関数	xIni := @Environment("Denaoshi"); @SetField("IniStr"; xIni)
LotusScript	Dim ns As New NotesSession Dim nuiw As New NotesUIWorkspace Dim nuid As NotesUIDocument Dim sIni As String Set nuid = nuiw.CurrentDocument sIni = ns.GetEnvironmentString("Denaoshi") Call nuid.FieldSetText("IniStr", sIni)

取得した値には LMBCS の □ は付加されず、セットした通りの値が取得できます。LMBCS については notes.ini をテキストエディタなどで直接開いたときにだけ気にすればいいということですね。

notes.ini の使い方

上記の通り、notes.ini に値を入出力する方法を紹介しました。これを ”環境変数” と呼び、その名の通り、変数のように利用できます。notes.ini はノーツクライアントに一つですから、アプリをまたがっても値の共有が可能となる点がポイントです。

ワークフローアプリを例にすると、前回選択した上司を保持させ、別のワークフローアプリでそれを上司として初期表示するというような使い方ができます。notes.ini を使えば、簡単な仕組みで大きな効果を得ることができます。

ただ、次にその値を利用するタイミングが、明日なのか１年後なのか定かではありません。先の例のように人の情報の場合、退職などによりノーツユーザとして存在しない場合も考えられます。このような不整合に備え、チェックや再選択させる機能などの用意が必要です。

notes.ini 利用時の注意

最後に先日発生したトラブルについて紹介します。

ワークフロー系のアプリで、質問形式で申請内容を確認するウィザード形式のフォームがありました。ウィザードの最後では、必要な申請書を表示して、起票する機能を提供していました。ウィザードで入力した情報を notes.ini に書き込み、申請書起票時に読み込んで初期表示させ、二重入力を省く仕組みでした。

この機能で、ウィザードと申請書で値が変わる現象が発生しました。連携データに全角スペースが含まれていたことが原因でした。実験したところ、全角スペースは notes.ini に出力時は全角のままですが、読み込んだ際には半角スペースに変換されるようです（＠関数、LotusScript とも同様）。

また、複数の全角スペースや複数の半角スペースも半角スペース１つに変換されることも発見しました。この結果より、notes.ini から値を読み込む際には、Trim と同等の機能が実行されいると想定できます。

まとめ

今回紹介した環境変数の利用は、うまく使えば非常に便利な機能です。ただ、Trim のような処理が行われている点には注意が必要です。ご利用の際には、環境変数に格納される値についても意識しておくことをおススメします。

また、環境変数はすべてのノーツアプリで共通で使用できます。便利な反面、大量に使用すると、それそれぞれの目的や設定タイミング、どのアプリで利用しているかが不明瞭になり、バグや仕様の複雑化の要因となります。LotusScript でパブリック変数を使用すべきでない理由と同じですね。

利用の際には環境変数の名称や設定される値、設定タイミングなどの仕様を決め、チーム全体で周知することが重要です。

@MailSend の動作 ②

@MailSend の紹介です。この関数は、引数なしと引数ありの構文があり、前回は引数なしの動作について説明しました。今回は引数ありのパターンの使い方についてまとめます。

構文

まずは、構文の確認です。

@MailSend( sendTo ; copyTo ; blindCopyTo ; subject ; remark ; bodyFields ; flags )

各引数にセットする値と役割は次の通りです。

1	sendTo	文字列 文字列リスト	メールの宛先 宛先、CC、BCC の 1 つ以上に指定が必要
2	copyTo	文字列 文字列リスト
3	blindCopyTo	文字列 文字列リスト
4	subject	文字列	メールの件名
5	remark	文字列	メールの本文
6	bodyFields	文字列リスト	本文に追加するフィールド
7	flags	キーワード	メールに関するフラグ

宛先の設定

宛先に設定できるのは、ユーザ名、グループ名です。一人だけに送信する場合は文字列、複数人に送信する場合はリスト値で設定します。宛先、CC、BCC のうちどれか 1 つには指定が必要です。設定しない引数にはからの文字列 ""  を設定します。

件名の設定

メールの件名を文字列で指定します。文字列リストを指定した場合、最初の要素が使用されます。

本文の設定

＠MailSend で送信するメールの本文は、プレーンテキストとなります。引数の文字列に @NewLine を含むことで、改行させることができ、体裁を整えることが可能です。

ここまでが一般的な使い方となるので、簡単なサンプルを作成します。

メール送信ボタンの式は次の通りです。

xSubject := "『" + Destination + "』 の申請"; xBody := "新しい申請書を申請しました。"; xBody := xBody + @NewLine + "承認してください。"; @MailSend(Approver; ""; ""; xSubject; xBody)

フォームをプリビューして、メールを送信すると、メールが送信されます。

本文に追加するフィールドの設定

この機能は文書内のフィールドをメール内に埋め込める機能で、リストで複数のフィールドを指定すると、それらすべてを本文に表示します。

xSubject := "『" + Destination + "』 の申請"; xBody := "新しい申請書を申請しました。"; xBody := xBody + @NewLine + "承認してください。"; xBodyFlds := "Date":"Destination":"Purpose":"Amount"; @MailSend(Approver; ""; ""; xSubject; xBody; xBodyFlds)

メール送信ボタンを修正して、メールを送信すると次のようになりました。

指定したフィールドの一部しか表示されいません。しかも、改行も間隔も開けずただ羅列されています。ヘルプによると、数値や日付フィールドには対応していないようです。なかなか使いどころがわからない機能です...。この仕様だと remark にがんばって指定したほうが、自由に体裁が決定できるのでいいですね。

フラグの設定

最後の引数であるフラグは、送信優先度や署名、暗号化など、メール配信の細かな設定ができます。通常のアプリで使いそうなフラグは次の 2 つです。

キーワード	機能
[INCLUDEDOCLINK]	@MailSend が実行されたときに開いていた文書の文書リンクを本文の最後に追加します。 ただし、文書は保存されている必要があります。
[RETURNRECEIPT]	受信者がメールを開いたとき、開封確認を送る設定をします。

フラグはリストのように記述すると複数指定することができます。例えば、次のように設定すると、文書リンクと開封確認付きのメールとなります。

xSubject := "『" + Destination + "』 の申請"; xBody := "新しい申請書を申請しました。"; xBody := xBody + @NewLine + "承認してください。" + @NewLine; @MailSend(Approver; ""; ""; xSubject; xBody; ""; [IncludeDoclink]:[ReturnReceipt])

まとめ

引数付きの @MailSend を使えば、宛先、件名、本文が自由に設定でき、引数なしの場合のようにフィールド名の縛りもありません。また、文書リンク付きのメールを発信できるのでワークフローアプリでも活用できますね。

@MailSend の動作 ①

Notes アプリ開発とメールの送信は切っても切れない関係といえますね。今回は、式言語でメールを送信する @MailSend について紹介します。

構文

ヘルプによると @MailSend の構文は次のように、引数のあり/なしの 2 通りあります。

@MailSend

@MailSend( sendTo ; copyTo ; blindCopyTo ; subject ; remark ; bodyFields ; [ flags ] )

今回は、前者の引数なしのパターンを紹介します。

引数なしでメール送信できる訳

引数なしということは、宛先も指定しないの？ と疑問がわきますが、大丈夫です。この機能は、文書内のフィールド値を使用して送信する機能となっています。

簡単なサンプルとして次のようなフォームを作成します。

フォームをプリビューして、宛先と件名を入力し、［メール送信］ボタンをクリックします。

すると、宛先に指定したユーザのメールボックスにメールが届きます。

とっても簡単ですね。そして仕組みも単純です。

@MailSend を実行する文書にある SendTo が宛先、Subject が件名として使用されます。このように、特定の役割を持ったフィールド名を予約フィールドといいます。

予約フィールド

メールの配信制御に関連する予約フィールドはヘルプに詳細が記載されています。

メールオプションを制御する予約フィールド

通常、メール送信で使用する予約フィールドをまとめると次の通りです。

予約フィールド	役割・使い方
SendTo	宛先（リスト値可）
CopyTo	CC（リスト値可）
BlindCopyTo	BCC（リスト値可）
Subject	メールの件名
Body	メールの本文
ReturnReceipt	受信者がメールを開いたとき、開封確認を送る場合 "1" を指定

すべてのフィールドを送信

@MailSend では、送信する文書内のすべてのフィールドをメールで配信されます。例えば、次のようにフィールドを 3 つ追加してメールを送信してみます。

すると届いたメールの文書プロパティでこれらフィールドが確認できます。

Notes メールは、メールとは関係ないフィールドがメール内にあっても、そのまま配信するようです。文書を丸ごと配信する感じですね。いかにもノーツらしい挙動です。

リッチテキストの送信

メールの本文（Body）フィールドはリッチテキストです。これに倣い、作成したフォームの Body フィールドをリッチテキストに変更します。文書を新規作成し、本文を記入して送信しても、届いたメールの本文は空っぽとなります。

リッチテキストは文書を保存しないと @MailSend で送信できない仕様のようです。ただ、文書を保存してから送信するとメールを開く際にエラーが発生します。

これは、送信元の Form フィールドまで含めて送信されているからです。すべてのフィールドが送信される機能の弊害と言えますね。ちなみにメール DB にあわせて、送信元のフォーム名を "Memo" としておくとこのエラーは回避できます。

まとめ

今回は @MailSend の引数なしで使用する方法を紹介しました。引数がないので＠式はシンプルになりますが、フィールド名が固定されたり、フォーム名を意識したする必要がありました。また、すべてのフィールドが送信されることもあり、アプリで利用するには制限が多く、活用しづらい機能と言えます。

このような課題を解決するのが引数ありの @MailSend となります。次回、使い方を紹介します。

DXL Step-by-Step：#56）ノード操作 ⑨ - ノードの削除

今回は DXL ツリーからノードを削除する方法についてまとめます。前回紹介したノードを検索したり、必要なノードを取得する方法で不要なノードを探し出し、削除するという使い方になります。

ノードの削除

ノードを削除するには、 RemoveChild メソッドを使用します。

RemoveChild (NotesDOMNode - LotusScript®)

NotesDOMNode クラスのメソッドですので、それを継承している NotesDOMEmenetNode でも使用できるメソッドとなります。

構文は次の通りで、引数に指定した子ノードを削除するメソッドです。

Set notesDOMNode = notesDOMNode.RemoveChild( child )

ということは、メソッド実行のためには、削除したい子ノードと親ノードが必要となります。親ノードは ParentNode プロパティで取得できますので、次のように記述すると簡単に削除できます。

Call denDel.ParentNode.RemoveChild(denDel)

削除はツリーまるごと！

当たり前かもしれませんが、ノードを削除した場合、配下のノードもまとめて削除されます。例えば、前回紹介した関数を使って２つ目の表を取得して削除すると、列の定義である tablecolumn や行 tablerow、セル tablecell など表とその中身すべてが削除されます。

'リッチテキスト直下の２つ目のテーブルを取得    Set denTbl = xGetNthChildByName(denRT, "table", 2)    '取得したテーブルを削除    Call denTbl.ParentNode.RemoveChild(denTbl)

 戻り値の状態

最初に紹介した構文にある通り、RemoveChild メソッドには戻り値があり、ヘルプによると削除したノードが返されるそうです。削除したのにどういうこと？と思ってデバッガで確認したところ、ParentNode が存在しないノードになっていました。

これは、ノードを新規作成し AppendChild する前と同じです。DXL のツリー内に存在せず、宙に浮いた状態ということですね。これをどのように活用するのは今一つ見えないですが...

前回

DXL Step-by-Step

DXL Step-by-Step：#55）ノード操作 ⑧ - ノードの検索

前回、ノードを検索する GetElementsByTagName メソッドを紹介しました。便利な命令なのですが、配下の階層すべてが検索対象となるため、複雑なコンテンツでは希望するノードが取得できない点に注意が必要となります。その解決策の一例として、引数で指定した名称の最初の子ノードを取得する関数を紹介しました。

今回はその続きで、ノード検索で使いそうな関数を一気に紹介します。

最後の子ノードを取得

前回の関数とほぼ同等ですが、最後から最初のノードに向かって順に走査しています。

Function xGetLastChildByName(vdenParent As NotesDOMElementNode, ByVal vsNodeName As String) As NotesDOMElementNode    Dim dn As NotesDOMNode    Set dn = vdenParent.LastChild    While Not(dn Is Nothing)       If dn.IsNull = False Then          If dn.NodeType = DOMNODETYPE_ELEMENT_NODE Then             If dn.NodeName = vsNodeName Then                Set xGetLastChildByName = dn                Exit Function             End If          End If       End If       Set dn = dn.PreviousSibling       If dn.IsNull Then          Set dn = Nothing       End If    Wend End Function

次のノードを取得

最初が取得できるとその次のノードを取得したくなりますね。最初の表を探してその次の表を取得するという感じです。以下の関数では、引数のノードから兄弟ノードと取得して、走査しています。

Function xGetNextSiblingByName(vdnCur As NotesDOMElementNode, ByVal vsNodeName As String) As NotesDOMNode    Dim dn As NotesDOMNode    Set dn = vdnCur.NextSibling    While Not(dn Is Nothing)       If dn.IsNull = False Then          If dn.NodeType = DOMNODETYPE_ELEMENT_NODE Then             If dn.NodeName = vsNodeName Then                Set xGetNextSiblingByName = dn                Exit Function             End If          End If       End If       Set dn = dn.NextSibling       If dn.IsNull Then          Set dn = Nothing       End If    Wend End Function

一つ前のノードを取得

続いては、引数のノードより前にあるノードを操作する関数です。PreviousSibling を使って兄弟をさかのぼって走査しています。

Function xGetPrevSiblingByName(vdnCur As NotesDOMElementNode, ByVal vsNodeName As String) As NotesDOMNode    Dim dn As NotesDOMNode    Set dn = vdnCur.PreviousSibling    While Not(dn Is Nothing)       If dn.IsNull = False Then          If dn.NodeType = DOMNODETYPE_ELEMENT_NODE Then             If dn.NodeName = vsNodeName Then                Set xGetPrevSiblingByName = dn                Exit Function             End If          End If       End If       Set dn = dn.PreviousSibling       If dn.IsNull Then          Set dn = Nothing       End If    Wend End Function

子ノード数を取得

次は、子ノードを走査して、引数で指定した名称の子ノード数を数えて返す関数です。

Function xGetChildCountByName(vdenParent As NotesDOMElementNode, ByVal vsNodeName As String) As Integer    Dim dn As NotesDOMNode    Dim i As Integer    i = 0    Set dn = vdenParent.FirstChild    While Not(dn Is Nothing)       If dn.IsNull = False Then          If dn.NodeType = DOMNODETYPE_ELEMENT_NODE Then             If dn.NodeName = vsNodeName Then                i = i + 1             End If          End If       End If       Set dn = dn.NextSibling       If dn.IsNull Then          Set dn = Nothing       End If    Wend    xGetChildCountByName = i End Function

n 番目の子ノードを取得

子ノード数がわかると位置を指定してノードが取得したくなりますね。次の関数では引数で指定した名称のノードの中から n 番目のノードを返します。

Function xGetNthChildByName(vdenParent As NotesDOMElementNode, ByVal vsNodeName As String, ByVal viNth As Integer) As NotesDOMElementNode    Dim dn As NotesDOMNode    Dim i As Integer    i = 0    Set dn = vdenParent.FirstChild    While Not(dn Is Nothing)       If dn.IsNull = False Then          If dn.NodeType = DOMNODETYPE_ELEMENT_NODE Then             If dn.NodeName = vsNodeName Then                i = i + 1                If i = viNth Then                   Set xGetNthChildByName = dn                   Exit Function                End If             End If          End If       End If       Set dn = dn.NextSibling       If dn.IsNull Then          Set dn = Nothing       End If    Wend End Function

まとめ

前回、今回とノードの検索方法や普段使いで必要となる関数を紹介ました。これら関数を利用すれば、複雑で広大な DXL の海原を自由自裁、縦横無尽に航海できますね。

前回

DXL Step-by-Step

DXL Step-by-Step：#54）ノード操作 ⑦ - ノードの検索

今回は DXL ツリーからノードを検索する方法についてまとめます。

ノードの検索

GetElementsByTagName メソッドを使用するとノードの検索が可能です。

GetElementsByTagName (NotesDOMElementNode - LotusScript®)

このメソッドの使い方はシンプルで、引数に検索したいノード名を指定するだけです。例えば、以下のプログラムでは、リッチテキストを表す richtext ノードを検索しています。

Dim ddn As NotesDOMDocumentNode    Dim denDoc As NotesDOMElementNode    Dim dnl As NotesDOMNodeList       ・・・    '文書取得    Set denDoc = ddn.DocumentElement    'リッチテキスト検索    Set dnl = denDoc.GetElementsByTagName("richtext")

戻り値は、名称が一致したすべてのノードを検索された順序で返します。複数のノードの集合となりますので、NotesDOMNodeList のオブジェクトとなります。GetItem メソッドを使用して、必要なノードを取得できます。

'最初のリッチテキスト取得    Set denRT = dnl.GetItem(1)

この動作をサンプルの DXL 使って図にすると次のようになります。

図からもわかる通り、GetElementsByTagName メソッドでは、子ノードだけでなく、配下のすべてのノードが検索対象となるという点がポイントとなります。

子ノードだけを検索したい

リッチテキストでは表の中に表を配置するなど、階層化して複雑なコンテンツを表現できます。例えば、リッチテキストにタブ表を作成して、その中に 2 つの表を配置します。

これを DXL 化すると外側の表（赤線の table ノード）の中に内側の表（紫線の table ノード）が作成されます。

このフィールドに対して GetElementsByTagName を利用すると、すべての表がヒットしてしまいます。要は、検索結果では表の階層関係がわからず、希望した位置の表が取得できているのか判別が難しいのです。このような背景から、子ノードだけを検索したいことがしばしばあります。この要件に対応するメソッドはありませんので、自作しなければなりません。

次の関数は、引数で指定した名称の最初の子ノードを取得することができます。

Function xGetFirstChildByName(vdenParent As NotesDOMElementNode, ByVal vsNodeName As String) As NotesDOMElementNode    Dim dn As NotesDOMNode    Set dn = vdenParent.FirstChild    While Not(dn Is Nothing)       If dn.IsNull = False Then          If dn.NodeType = DOMNODETYPE_ELEMENT_NODE Then             If dn.NodeName = vsNodeName Then                Set xGetFirstChildByName = dn                Exit Function             End If          End If       End If       Set dn = dn.NextSibling       If dn.IsNull Then          Set dn = Nothing       End If    Wend End Function

まとめと次回の予告

今回は GetElementsByTagName メソッドでノードの検索方法を紹介しました。フィールドを表す item ノードなど階層化されないノードの場合は有効かつ便利に使用できます。しかし、事例に上げたように階層化されるノードでは、関係が不明瞭になり効果的に利用できません。その対策として、指定した名前の最初の子ノードを取得する関数を紹介しました。

最初のノードが取得できれば、次のノードを取得したくなります。最後のノードを取得したり、その一つ手前の取得したいというようなこともあるでしょう。DXL のノードを自由自在に操作するためには必要な機能と言えます。次回は、これらの便利関数を紹介します。

前回

DXL Step-by-Step

前回

Domino 14 マイグレーション： ”特に追加の設定は不要”ではなかった Windows アカウントの変更

2025 年 6 月 25 日をもって Domino 11 のサポートが終了します。

HCL Domino v11.0.x の EOM (End of Market) および EOS (サポート終了、End of Support) について

この手の話はフェイクニュースのようなフィッシング系の営業活動に利用されがちなので、あえて言います。Domino がなくなるのではなく、新しいバージョンがあるからそっちを使ってね！ということです。単に、古いバージョンのサポートが終了するだけで、Windows 10 のサポート終了と同じです。

新しいバージョンを導入すればさまざまな新機能が活用できます。私がサポートしている Domino サーバもいよいよバージョンアップすることになり、Domino 14.0 の検証をしています。

最近の Domino は互換性が非常に高く、基本的には検証時間がもったいないと感じるほど、フツーにそのまま動作します。そうはいっても、いくつかは気を付けるべき点があり、今回はその中から私の環境では比較的大きかった問題を紹介します。

Domino 14 のバージョンアップ情報

Domino 14 導入に関連して、バージョンアップの手順や注意点に関しては、HCL Ambassador の Kazumasa Hayashi さんのブログ、Domino Lab で詳しくまとめられています。私もこの記事を一読したうえで検証にとりかかりました。

Domino Server をV14 にバージョンアップ！

私が担当する環境では XPages を利用していなので、何も問題はないだろう、これまでのバージョンアップとは変わらないなと判断しました。

遭遇した問題

検証環境に Domino 14 をインストールしました。インストール作業自身は順調に進み、なんの問題もなく終了しました。ところが、通常アプリとしては正常に起動するのですが、サービス起動ができないのです。

Domino Console を起動して確認すると次のようなパニックエラーが発生していました。

[156C:0002-1570] HCL Domino (r) Server (64 Bit), Release 14.0FP3 HF33, February 05, 2025 [156C:0002-1570] (C) Copyright HCL Technologies. 1987, 2023 [156C:0002-1570] comp = 11, fnc = 81, probeid = 79, errcode = 5010, extsympt = 0065 69200000 Unexpected internal error returned to logger: 0x20692010 [156C:0002-1570] Thread=[156C:0002-1570] [156C:0002-1570] Stack base=0x6487D080, Stack size = 12640 bytes [156C:0002-1570] PANIC: Unexpected internal error returned to logger: 0x20692010

原因はフォルダのアクセス権限

HCL Ambassador 仲間やカスタマーサポートの協力で、早い段階から以下の記事に遭遇しました。

HCL Domino 14 (Windows 版) インストーラーウィザードで追加された Windows ユーザー名の入力画面について

そういえば、インストール時に見たことない画面が増えたなと感じてはいたのですが、この記事内に『デフォルトのまま NT AUTHORITY\LocalService を指定してインストールした場合は、特に追加の設定は不要です。』とあったので、黙殺していました...。

その後、以下の記事の 2 をみて、気が付きました。

HCL Domino 14 バージョンアップ時の注意事項

Domino 14  から サービス起動する際のアカウントが、 ”Local System” から ”Local Service” へ変更となりました。そして、Domino 14 のインストーラではその権限設定を自動で変更する仕様のようです。

ただ、自動で変更されるのはプログラムディレクトリとデータディレクトリのみとなっています。それ以外のフォルダを利用している場合、手動にて権限変更する必要があるのです。

外部フォルダの利用

検証環境のDomino ではさまざまな外部フォルダを利用していました。まず notes.ini では、次のような設定をしていました。

Technical Support ログ	LogFile_Dir=D:\Lotus\Domino\TechnicalSupport
トランザクションログ	TRANSLOG_Path=D:\Lotus\Domino\trans_log
全文索引	FTBasePath=D:\Lotus\Domino\Index_FT

また、アプリやメールなど DB の用途ごとにフォルダを切り、ディレクトリリンク機能で Domino サーバに認識させていました。

このような細かな設定は

1. Disk の枯渇対応
2. レスポンス改善を目的に一部を高速なストレージへ移行
3. フォルダごとのサイズを把握しやすくする

ことが目的です。特に 1 と 2 は物理サーバで、リソースを柔軟に増減できず、SSD のような高速ストレージが希少だった時代の名残です。将来のリソース不足に備え、部分的に移行しやすくするために行った設定でした。

権限の設定と解決

これら外部フォルダに対して、順に Windows の権限を付与します。下図の通り、LOCAL SERVICE に対してフルコントロールを設定します。

すべてのフォルダに設定が完了したら、無事サービス起動するようになりました。PANIC のメッセージを出す前に少しでもヒントとなるような情報を出してくれてれば、もっと早く気が付けたんですけどね...。

おわりに

今回のトラブルは Domino サーバに対して追加で行った設定があだとなって発生しました。ただ、どの設定も正規の Domino の機能として提供されたものです。開発したアプリが外部のローカルフォルダをアクセスしているならまだしも、正規の機能の範囲は対応してほしいところですね。

特に、トランザクションログは、データディレクトリとは別の RAID カードのディスクに配置することを推奨する記述が Administrator ヘルプにあったと思います。要は、トラブルの種を推奨していたということなので、たくさんの Domino ユーザが該当すると思います。これからバージョンアップをご検討の方は、十分お気をつけください。

DXL Step-by-Step：#53）ノード操作 ⑥ - 属性の操作

今回は NotesDOMElementNode が持つ属性の操作についてまとめます。

属性とは

下図は、#49）ノード操作 ② - ノード間の関係と取得方法 に掲載した DXL のノードを分類した図ですが、ピンクの下線が属性です。

属性は、NotesDOMElementNode の < > 内に定義され、属性名='値' で構成されます。値は、id='1' や def="1" のような数値でも、color='#ffe118' のような 16 進数でも、name='Body' のような文字列と同じ表現になります。つまり、属性の値の型には文字列しかないということですね。

また、font ノードのように複数の属性を持つこともあれば、richtext や run ノードのように属性を持たないこともあります。

属性の操作

属性を管理する NotesDOMAttributeNode というクラスが定義されています。しかし、属性は NotesDOMElementNode のメソッドから操作ができます。よって、NotesDOMAttributeNode クラスは普段使いでは使用しません。

NotesDOMElementNode のメソッド	機能
GetAttribute	属性の取得
SetAttribute	属性の設定
RemoveAttribute	属性の削除

属性の取得

属性の取得は、GetAttribute メソッドで属性名を引数に指定するだけです。戻り値はその属性の値が文字列で返されます。

attr$ = notesDOMElementNode .GetAttribute( attributeName )

なお、引数で指定した名前の属性が存在しない場合は null （空の文字列）が返されます。

属性の設定

属性の設定には、SetAttribute メソッドを使用します。引数は、属性の名称と値で、それぞれ文字列で指定します。

Call notesDOMElementNode .SetAttribute( attributeName , attributeValue )

属性がない場合には、新規で属性が追加され値がセットされます。すでに同名の属性が存在する場合には、値が上書きされます。

なお、値に null（空の文字列）を指定すると、属性が削除されるのではなく、値が空の属性が作成されます。

Call denItem.SetAttribute("name", "")

属性の削除

属性を削除するには、RemoveAttribute メソッドを使用します。引数は削除したい属性名です。

Call notesDOMElementNode.RemoveAttribute( attributeName )

存在しない属性名を指定した場合、エラーは発生せず、事実上何も実行されません。削除前の存在チェックは不要ですので、使いやすいメソッドですね。

まとめ

今回は NotesDOMElementNode の属性操作に特化してまとめました。DXL のコーディングはなかなかクセがあって思い通りいかないと感じているのですが、属性操作に限って言えば、非常にシンプルで直感的なわかりやすい機能になっています。

DXL Step-by-Step

次回

全銀仕様で使用できる文字の判定

前回は全角/半角の入力チェックが Nomad で動かず、対策した話をしました。文字コードがノーツクライアント（Windows）と違うことが原因だったのですが、同様の理由でもう一つ問題が発生した機能があります。それが全銀仕様で利用できる文字化チェックする機能です。

利用できる文字と 判定方法

全銀仕様で利用できる文字に関しては、ネットを調べるとすぐにわかります。何のご縁もないのですが但馬信用金庫さんの以下のサイトわかりやすかったので参考にさせていただきました。

全銀仕様データレコード使用可能文字 

半角カタカナが許可されているのですが、ヲ と ー（長音）は除外されています。そして、－（ハイフン）や括弧など一部の記号が使えます。

これまで、文字の判定は Asc 関数で文字コードを取得して判定していましたが、Nomad は、文字コードが違うためそのままでは利用できません。例えば、半角の ア は、Windows では 177、Nomad iOS では 15711665 となります。

サンプルプログラム

文字コードに応じた判定プログラムを作成することは可能かと思います。ただ、実行環境の文字コードを判定したり、利用可能文字の文字コードを調べるのは面倒です。

そこで、今回は使用できる文字が限られていることを利用します。使用可能文字のリストを作成し、チェックする文字がそこに含まれているのか確認する方法で対応します。

サンプルプログラムを以下に紹介します（スクリプトライブラリ内に記述する前提）。

◇ 定数宣言

まず、使用可能文字を定数として宣言します。

Option Declare Private Const xsZengin_Ei = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Private Const xsZengin_Su = "1234567890" Private Const xsZengin_Kana = "ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ" Private Const xsZengin_Special = "ﾞﾟ\｢｣()/.- "

◇ 全銀仕様の文字列か判定する関数

引数の文字列をチェックして、全銀仕様の文字で構成されている文字列なら True を返します。使用可能文字を変数 s に集めて、サブ関数 IsSubsetOfChars に渡してチェックしています。

Public Function IsZengin(ByVal vsTarget As String) As Boolean    Dim s As String    '許可された文字列    s = xsZengin_Ei      '全銀半角英字    s = s & xsZengin_Su     '全銀半角数字    s = s & xsZengin_Kana      '全銀半角カナ    s = s & xsZengin_Special      '全銀半角記号    IsZengin = IsSubsetOfChars(vsTarget, s) End Function

◇許可文字だけか判定

チェック対象の文字列 vsTarget が、許可された文字 vsAllowed のみで構成されているかどうか判定する関数です。

Public Function IsSubsetOfChars(ByVal vsTarget As String, ByVal vsAllowed As String) As Boolean    Dim i As Integer    Dim j As Integer    Dim s As String    Dim b As Boolean    b = True    '1 文字ずつ取得して許可されている文字か判定    For i = 1 To Len(vsTarget)       s = Mid(vsTarget, i, 1)       j = InStr(vsAllowed, s)       If j = 0 Then          '見つからない（= 許可されていない文字）          b = False          Exit For       End If    Next    IsSubsetOfChars = b End Function

許可された文字列に含まれているかの判定は InStr 関数を利用して単純化しています。

まとめ

今回紹介したサンプルでは文字コードを使用した判定を行わず、実際の文字と比較しています。よって、プログラムが実行される OS など、環境に依存しないプログラムにできたと思います。

入力チェック：全角/半角の判定と Nomad

Nomad は、Notes クライアントで使用していたアプリケーションをそのまま利用できることが特徴で、労せずモバイル対応できてしまう素晴らしいシステムです。

とはいっても、プラットフォームが違うわけですから、再現率は 100％ ではありません。画面サイズや縦横比の違い、Excel  に帳票を出力するなど Windows の機能を利用するアプリなど一部に制約があります。

今回紹介する現象は、もっと細かな話になります。私の思慮が足りなかっただけといえばそれまでですが、全く想定していなかったことなので紹介いたします。

発生した現象

一部のアプリケーションで入力された文字の全角/半角チェックをする機能がありました。その判定ロジックは、Len で文字数を取得、LenBP でその文字列のバイト数を取得、文字数 = バイト数なら半角、文字数 x 2 = バイト数なら全角と判定していました。

判定のための関数は次の通りなのですが、これが Nomad で正常に動作しなかったのです。

◇ すべて半角文字かチェック

Public Function IsZenkaku(ByVal vsTarget As String) As Boolean    Dim iLen As Integer    Dim iLenBP As Integer    iLen = Len(vsTarget)    iLenBP = LenBP(vsTarget)    If (iLen * 2) = iLenbp Then       '文字数の 2 倍がバイト数（= すべて全角文字）       IsZenkaku = True    Else       '文字数の 2 倍がバイト数ではない（= 半角文字が混入）       IsZenkaku = False    End If End Function

◇ すべて全角文字かチェック

Public Function IsHankaku(ByVal vsTarget As String) As Boolean    Dim iLen As Integer    Dim iLenBP As Integer    iLen = Len(vsTarget)    iLenBP = LenBP(vsTarget)    If iLen = iLenbp Then       '文字数とバイト数が同じ（= すべての文字が半角）       IsHankaku = True    Else       '文字数とバイト数が違う（= 全角文字が混入）       IsHankaku = False    End If End Function

文字列の長さ

LotusScript で文字列の長さを取得する関数には Len、LenB、LenBP の 3 種類があります。デザイナーヘルプをまとめると次のような機能です。

関数	機能
Len	文字列の文字数
LenB	文字列の長さを示すバイト数
LenBP	文字列の長さを示すバイト数（プラットフォーム固有の文字セット）

簡単なテストフォームを作成し、それぞれの関数の挙動をチェックします。

結果は次の通りでした。この結果すぐに気が付きました。全角や半角カナが 3 バイトとなっているので、Nomad iOS は Unicode で動作していると思われます。

文字	ノーツ（Windows）			Nomad iOS
	Len	LenB	LenBP	Len	LenB	LenBP
あ（全角）	1	2	2	1	2	3
A（半角英字）	1	2	1	1	2	1
ｱ（半角カナ）	1	2	1	1	2	3

LenB 関数はどういった機能を提供してくれているのか今一つ理解できませんが、Len 系の関数だけで全角/半角の判定は難しそうです。

対策

◇ すべて半角文字かチェック

半角から全角文字の変更は必ずできます。全ての文字が全角であるかチェックするには、これを利用すれば簡単です。文字列を全角に変換して、元の文字列と一致するか確認するだけです。変化があれば半角文字が混ざっていたということですね。

Public Function IsZenkaku(ByVal vsTarget As String) As Boolean    Dim sZen As string    Dim v As Variant    v = Evaluate(|@Wide("| & vsTarget & |")|)    '半角から全角に変換    sZen = v(0)    If sZen = vsTarget Then       '全角に変換しても変化がないのですべて全角文字       IsZenkaku = True    Else       '全角に変換すると変化したので半角文字が混入       IsZenkaku = False    End If End Function

◇ すべて全角文字かチェック

全て半角であるかについては少し厄介です。漢字など半角に変換できない文字があるからです。まず、全角/半角変換の関係を整理します。

チェックする文字	半角に変換	全角に変換	備考
あ（全角）	あ（全角）	あ（全角）	半角にできない全角
Ａ（全角）	A（半角）	Ａ（全角）	半角にできる全角
ｱ（半角）	ｱ（半角）	ア（全角）	半角にしても変化なし

この関係を利用して関数を作成します。1 文字ずつ上表に当てはめて判定します。1 文字でも全角文字を発見したら、判定を終了し False 返しています。

Public Function IsHankaku(ByVal vsTarget As String) As Boolean    Dim sSrc As String    Dim sHan As String    Dim sZen As String    Dim v As Variant    Dim i As Integer    IsHankaku = True    '1 文字ずつ確認    For i = 1 To Len(vsTarget)       sSrc = Mid(vsTarget, i, 1)       '全角から半角に変換       v = Evaluate(|@Narrow("| & sSrc & |")|)       sHan = v(0)       '半角から全角に変換       v = Evaluate(|@Wide("| & sSrc & |")|)       sZen = v(0)       If sSrc = sHan And sSrc = sZen Then          '全角（半角にできない全角文字）          IsHankaku = False          Exit For       ElseIf sSrc <> sHan And sSrc = sZen Then          '全角（半角に変換できる全角文字）          IsHankaku = False          Exit For       Else          '半角（全角でなく、半角に変換しても変化しない）          '→ 処理を継続して次の文字をチェック       End If    Next End Function

おわりに

今回は、全角/半角のチェックを例に Nomad 利用時に発生した課題を紹介しました。

私は長年 Notes クライアント用のアプリばかりを作っています。Web 化や XPages 化も詳しくありません。Windows アプリばかりだったせいもあり、文字コードには無頓着だったということですね。Nomad ≒ Notes クライアントではあるのですが、ところどころ落とし穴があるので注意が必要です。

ところで、紹介したコードでは、全角/半角の変換に Evaluate 関数を介た＠関数を利用していますが、これには理由があります。LotusScript の関数 StrConv はノーツクライアントと Nomad 環境で結果が変わり、判定に使用できなかったからです。この点も Nomad 運用時には注意が必要です。

Notes は複数の言語をサポートしており、開発の自由度も高いです。歴史が長いこと幅が広いことで混乱することもありますが、探せば回避策が見つかるところはありがたいといえます。宝さがしみたいで面白いですね。