シリーズ仕様書からプログラムソースを生成する方法のつづきです。
前々回、マクロを公開し、前回、そのマクロをExcelに貼り付けて、生成させる方法について書きました。今回は、その前々回公開したマクロの説明です。
■マクロの関数の概要
このマクロには、３つのサブルーチン(Sub)または、ファンクション(function)があります。
（１）ボタンから起動されるサブルーチン（shiyoToFile）
（２）雛形ファイルと仕様書を読み込んで、自動生成する（makefile）
（３）制御内容ごとの処理（chgTagToStr）
（１）から、（２）が呼び出され、（２）から（３）が呼び出されます。
（１）は、仕様書によっては、書き換わります。
以下、それぞれの関数を説明します。
■（１）ボタンから起動されるサブルーチン（shiyoToFile）
ここでは、以下の処理をします。
（１－１）前処理
（２）のプログラムは、固定化するため、
（２）で処理できるようにするため、
前処理を行う
（１－２）（２）のプログラムを呼び出す
（１－３）後しまつ
（１－１）でシートやファイルを作成したら、
削除します。
今回は、（１－１）、（１－３）が必要ないので、（１－２）だけ行います。
Call makefile(雛形ファイル名,シート名,出力ファイル名)
です。
■（２）雛形ファイルと仕様書を読み込んで、自動生成する（makefile）
makefile(雛形ファイル名,シート名,出力ファイル名)というカタチの
サブルーチンです。内容は、以下のとおり
（２－１）雛形ファイルを読み込みます
indataに、ファイル内容を全部入れます。
（２－２）書き出し内容を作成します
・indataの開始ポイント（str_pos）を1、
（VBAにおいて、文字列の先頭は０でなく、１）
出力内容を（outdata)を空文字("")として
・制御内容のタグ$#$があるかないかチェックします ＊＊
・あったら、
前回のタグの終わりから、今回のタグまでoutdataにセットし、
制御内容部分を切り出し
chgTagToStrで制御内容を処理します
→この内部でoutdata（書き出し内容）をセットします
→chgTagToStrは、次の開始ポイント（str_pos）を返します
＊＊に戻ります
・＊＊のループが終わったら、残り部分をoutdataにセットします
（２－３）作成データを書き出します
・まず、書き出しファイルがあったら削除し
ここが、変な風になっているのは、＜＞っていうのを書くと、
変換しないといけないので、面倒だからというだけで深い意味はないです
・書き出します
■（３）制御内容ごとの処理（chgTagToStr）
chgTagToStr(制御内容,次の開始ポイント候補,仕様書のシート名)というカタチの
ファンクションです。返り値は、次の開始ポイントです。
内容は、制御内容が、それぞれのタグだったら、それにあった内容をします。
こんなかんじ
（３－１）制御コードが"REPEND"だったら、
仕様書チェック行(lpgyo)を次の行にして（１足す）
そこの行の指定箇所が空白だったら
ループ終わりなので、引数の次の開始ポイント候補を返す
そうじゃない（まだ行続く場合）
ループするため、ループ開始ポイント（lpstr_pos ）を返す
（３－２）制御コードが"REP"だったら、
仕様書チェック行(lpgyo)を取得
ループするためのループ開始ポイント（lpstr_pos）を、セット
→この制御コードの終わりの次の文字
＝次の開始ポイント候補にする
引数の次の開始ポイント候補を返す
（３－３）制御コードが"CELL"だったら、
指定箇所を、出力データ(outdata)に追加して
引数の次の開始ポイント候補を返す
（３－４）制御コードが"KETA"だったら、
現在行の指定桁を、出力データ(outdata)に追加して
引数の次の開始ポイント候補を返す
＊"REPEND"を先に聞き、"REP"をあとに聞く理由は、
先に"REP"を聞いてしまうと、そこに"REPEND"も
引っかかってしまうからです（"REP "で聞けばいいんだけどね）
＊＊今後、ここに条件文IFが追加される予定です
こんなかんじです。
人に、「同じプログラムを使えば枯れるから」とかいっておきながら、
実はこのプログラム、よく作るんだけど、いつも即興で作ってしまっていて、
今回も、即興でつくったので、バグとかもあるかも。。
あったらごめんなさい。
では、今回はここまで。
アクセス
トータル
ランキング
