ロケーション文書の NoteID

LotusScript でコーディングするとき、ロケーション文書の情報を参照したいときがあります。でも、毎回その ID を取得する方法を考えるのは面倒なのでファンクション化してみました。

Notes.ini の Location= というパラメータの２つめの引数は実はロケーション文書の Note ID なので、それを取得する仕組みです。今回はちょっと省略して接尾辞をつける方法で変数の型を決定させています。

Function GetLocationID As String
    Dim s As New NotesSession
    l$ = s.GetEnvironmentString("Location",True)
    IDBgn% = Instr(1, l$, ",") + 1
    IDEnd% = Instr(IDBgn%, l$, ",")
    GetLocationID = Trim(Mid$(l$, IDBgn%, IDEnd%-IDBgn%))
End Function