コメント削除ツール - Comment Eraser

『コメント削除ツール - Comment Eraser』は、Accessのモジュール内のプログラムのコメントを一括して削除するアドイツールです。コメント行全体を丸ごと削除して前詰めしたり、「’（シングルクォーテーション）」だけ残してコメント文だけ削除したりといった削除方法が選択できます。

本ツールはフリーウェアです。自由にお使いください。ただし、
  • 本ツールを使用したことによる問題については一切責任を負いません。
  • 事前に必ずデータベースファイルのバックアップを取ってから実行してください。
  • コメント削除後に問題がないか十分に動作確認を行ってください。
  • サポートは一切行いません。


アドインのセットアップ

本ツールはAccess2010用のアドインです。はじめに下記のような手順でセットアップする必要があります。
  1. 本ツールの配布ファイル（.ZIP）を解凍し、適当な場所に「CommentEraser.accda」を置きます。

  2. Access2010を起動します。

  3. リボンの[データベースツール]タブより、[アドイン]ボタンをクリックし、[アドインマネージャ]を選択します。

  4. アドインマネージャが起動したら、[新規組み込み]ボタンをクリックします。

  5. 表示された画面で、先ほど解凍した「CommentEraser.accda」を選択します。

  6. アドインマネージャの「使用可能なアドイン」の一覧に「コメント削除ツール - Comment Eraser」が追加されたことを確認して、[閉じる]ボタンをクリックしてアドインマネージャを終了します。


    ※この操作によって、「CommentEraser.accda」は所定のアドイン専用のフォルダにコピーされます。適当な場所に解凍した「CommentEraser.accda」については削除してしまってかまいません。


使い方

  1. Access2010を起動し、開発などを行うデータベースファイル、つまりモジュールのコメントを削除したいデータベースファイルを開きます。

  2. リボンの[データベースツール]タブより、[アドイン]ボタンをクリックし、[Comment Eraser]のメニューを選択します。これによってComment Eraserが起動します。




  3. 「削除方法」を４つの中から選択します。

    • コメントを完全削除 →→ コメントだけの行は行全体を削除して、前詰めにします

    • シングルクォーテーション以降の文字だけ削除する →→ コメントだけの行は空白行として残ります

    • コメント先頭のシングルクォーテーションだけを残す →→コメント文だけが削除されます

    • コメント部分を '************* に置き換える

  4. この処理では、モジュールをひとつずつ開いて、コメントを削除し、そのモジュールを閉じるという操作を繰り返します。各モジュールを閉じる際の「保存確認」を２つの中から選択します。

    • オブジェクトごとに保存確認をする →→ 通常の操作と同様に保存するかどうかのメッセージが表示されます

    • そのまま上書き保存する →→ 無条件で上書き保存します

  5. [実行]ボタンをクリックします。
    それによって、カレントデータベース内のすべてのモジュール（フォーム・レポート・標準モジュール等）のコメント削除が実行されます。

  6. 削除後の状態はVBEを開いて確認してください。

【注意】コメントの文章の中に「'」や「"」の文字が含まれている場合、コメントが一部残る場合があります。


■実行例
'アプリケーション名
Public Const pcstrAppName As String = "名簿管理データベース"
'バージョン
Public Const pcstrAppVersion As String = "Ver3.0"
'レポート印刷時のレコードソース名
Public pstrRecSource As String
'レポート印刷時のWhere条件
Public pstrRecWhere As String

'エラー定数
Public Const ERR_FILENOTEXIST = 53          'ファイルが存在しない(DOSレベル)
Public Const ERR_CANTFINDDLG = 2137         '検索と置換ダイアログが使えないエラー
Public Const ERR_NOHASVALUE = 2427          '指定した式に値がないエラー
Public Const ERR_NOTOPENOBJECT = 2450       'オブジェクトが開いていないエラー

'*************
Public Const pcstrAppName As String = "名簿管理データベース"
'*************
Public Const pcstrAppVersion As String = "Ver3.0"
'*************
Public pstrRecSource As String
'*************
Public pstrRecWhere As String

'*************
Public Const ERR_FILENOTEXIST = 53          '*************
Public Const ERR_CANTFINDDLG = 2137         '*************
Public Const ERR_NOHASVALUE = 2427          '*************
Public Const ERR_NOTOPENOBJECT = 2450       '*************



動作環境

本ツールをご利用になるには、Access2010が必要です。Access2013については動作確認しておりません。



ダウンロード

ダウンロード (COMMENTERASER.ZIP、31,309バイトあります)






Copyright © T'sWare All rights reserved