HOME > 情報・技術 > 【Notes】定義しておくと,後で幸せになれるかもしれない定数

だって,ノーツだもん!

投稿日:

定義しておくと安心?

共通ライブラリの「(Declaration)」に記述しておくと,後々幸せになれるかもしれない定数およびグローバル変数の一覧です。ただし,これらのサンプルは筆者の好みで作成したため,Notesのお作法的に正しいとは限りません。読者諸兄姉が参画しているプロジェクトに「コーディング標準」や「コーディング規約」がある場合は,現場の指示に従ってください。なお,本コラムは,Lotus Notes(LotusScript)を前提としていますが,VBAにも応用できると思います。


メッセージ関連

このブロックではエージェントの処理結果や,共通ライブラリ内の関数,サブルーチンで出力するメッセージを定義しておきます。定数は全て大文字,グローバル変数は最初の1文字を「g」とするなど,ルールを決めておくと良いでしょう。

' ---------------------------------------------------------------------
' メッセージ関連
' ---------------------------------------------------------------------
%INCLUDE "lsconst.lss"
Dim gNewLine            As String

Const DAILY_PROC        = "(日次処理)"
Const MONTHLY_PROC      = "(月次処理)"
Const RE_SUCCESS        = "正常終了"
Const RE_WARNING        = "警告終了"
Const RE_ERROR          = "異常終了"
Const FORMAT_DT         = "YYYY/MM/DD hh:nn:ss"
Const FORMAT_D          = "YYYY/MM/DD"

Const MSG_00_E001       = "環境文書が作成されていません。(00_E001)"
Const MSG_00_E002       = "公開アドレス帳の取得に失敗しました。(00_E002)"
Const MSG_00_E003       = "「<FILE_NAME>」の削除に失敗しました。(00_E003)"
Const MSG_00_I004       = "「<FILE_NAME>」を削除しました。" 
Const MSG_00_E005       = "添付ファイル一時保管場所(<PATH_NAME>)の作成に失敗しました。(00_E005)"
Const MSG_00_E006       = "リクエストに失敗しました、処理を停止します。(00_E006)"

Const MSG_00_E900       = "引数が不正です。(00_E900)"
Const MSG_00_I999       = "処理がキャンセルされました。"

広告


状況の定義

文書や処理の状況を定義します。関数やサブルーチンの引数で使用したり,文書の変更履歴の更新で使用することを想定しています。

' ---------------------------------------------------------------------
' 状況
' ---------------------------------------------------------------------
Const NEW_DOC           = "新規作成"
Const DEL_DOC           = "文書削除"
Const UNDEL_DOC         = "削除の解除"
Const START_PROC        = "処理開始"
Const END_PROC          = "処理終了"

I/Oファイル関連

入出力ファイル(文書に添付するファイルを含む)のフォーマットや,CSVファイルの区切り値を定義します。

' ---------------------------------------------------------------------
' I/Oファイル関連
' ---------------------------------------------------------------------
Const DEFAULT_PATH      = "c:¥work"
Const EXCEL_FILES       = "EXCEL 97-2003 (*.xls)|*.xls|All files (*.*)|*.*"
Const EXCEL_FILES_2007  = "EXCEL 2007 (*.xlsx)|*.xlsx|EXCEL 97-2003 (*.xls)|*.xls|All files (*.*)|*.*"
Const CSV_FILES         = "CSV files (*.csv)|*.csv|Text files (*.txt)|*.txt|All files (*.*)|*.*"
Const TEXT_FILES        = "Text files (*.txt)|*.txt|CSV files (*.csv)|*.csv|All files (*.*)|*.*"
Const PDF_FILES         = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*"

Const CNS_SC            = "'"			' シングルクォーテーション
Const CNS_DC            = """"			' ダブルクォーテーョン
Const CNS_COMM          = ","			' カンマ

【使用例】

開くダイアログボックス(OpenFileDialog)からファイル名を取得する例です。ライブラリで定義した「EXCEL_FILES_2007」と「DEFAULT_PATH」を使用しています。

Dim ws         As New NotesUIWorkspace
Dim varRet     As Variant
varRet         = ws.OpenFileDialog(True, "ファイル選択", EXCEL_FILES_2007, DEFAULT_PATH)

※ 掲載しているサンプルは,すべて利用者の責任でご使用ください。本サイトの執筆者,管理者および運営者は,これらのサンプルを利用することによって生ずるいかなる損害に対しても一切責任を負いません。


広告