再帰の処理をＭＡＧＩＣで・・・　

　今回はプログラムのタスク構造の取得です。これがＭＡＧＩＣで出来れば、あとのいわゆる「ＭＡＧＩＣ解析」？は殆ど力作業なんじゃないかなぁ？
　第三回目のときに、ＸＭＬスタイルシートを使って再帰的な構造のＸＭＬを読み込んだと思いますが、それをＭＡＧＩＣのプログラムでやるにはどうするか・・・という話です。
　方法はＸＳＬ（ＸＭＬスタイルシート）使ったのと全く同じように考えれば良いのですが、前回まで使用した「ＸＭＬ連携」は残念ながら使えません。従来方法・・・つまり、Ｖ９からの関数「XMLGet」を使うことになります（逆に言えば、スキーマ情報は無くてもＯＫということです）。
　このあたりは将来的にはどうなるんでしょうか？ある部分は「ＸＭＬ連携」で、ある部分は従来方式というのは、Ｈelpにも推奨されないようなことが書いてあったりして、ちょっと心配なところもありますね。

　さて、前回解析したダミープログラムの主要な部分を抜き出したのが次のソースです。
　見て頂ければお分かりのように、ネストされた「Task」タグを順にたどればＯＫです。「Task」以下のＸＭＬの構造は全て同一になるので、「Header」タグやその他のタグの情報を順に取得していけば１プログラム内の全ての情報を取得することが可能です。

<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
<Application>
  <ProgramsRepository>
    <Programs>
      <Task MainProgram="N">
        <Header Description="タスク階層テスト" ISN_2="1" LastIsn="8">
        </Header>
        <Task MainProgram="N">
          <Header Description="処理１" ISN_2="2" LastIsn="8">
          </Header>
          <Task MainProgram="N">
            <Header Description="処理２" ISN_2="3" LastIsn="8">
            </Header>
            <Task MainProgram="N">
              <Header Description="処理３" ISN_2="4" LastIsn="8">
              </Header>
            </Task>
          </Task>
          <Task MainProgram="N">
            <Header Description="処理４" ISN_2="5" LastIsn="8">
            </Header>
            <Task MainProgram="N">
              <Header Description="処理５" ISN_2="6" LastIsn="8">
              </Header>
            </Task>
          </Task>
        </Task>
        <Task MainProgram="N">
          <Header Description="処理６" ISN_2="8" LastIsn="8">
          </Header>
        </Task>
      </Task>
    </Programs>
  </ProgramsRepository>
</Application>

（上記のソースは、骨格の部分のみを抜き出しています。更に、「Header」タグ中のいくつかの属性もカットしました。）

　さて、このソースを解析するプログラムですが、今回は2本のプログラムを作成します。
　ひとつめは、ＸＭＬをオブジェクトにロードし、開始位置であるところの最初のタスク（＝プログラムのルートタスク）の場所「Application/ProgramsRepository/Programs/Task」を次の再帰プログラムに受け渡すプログラム。
　もうひとつは、最初のプログラムから呼ばれ、タスク情報を取得していくプログラム。もし更にサブタスクが存在すれば、今度は自分自身を呼び出して順に処理する再帰的なプログラム。
　今回はそれぞれのプログラムを、「タスク構造取得」、「タスク解析再帰」と名付けることとします。

プログラムの作成手順

1. タスク構造取得メインプログラム
   最初に第一のプログラムを作成します。
   
   1. タスク特性
      
      • プログラム名：「タスク構造取得」
      • タスクタイプ：バッチ
      • タスク終了条件：「Yes」
      • チェック時期：「A=後置」
        
        
   2. データビュー
      データビューに以下のパラメータと変数を追加します。
      パラメータで受け取ったｉｄにより任意のプログラムソースを読めるようにします。
      
      
      
      • パラメータ：「プログラムＩＤ」、数値４
      • 変数：「ＸＭＬファイル名」、文字２５５、代入：式１「'%Source%\Prg_'&Trim(Str(A,'4'))&'.xml'」
      • 変数：「ＸＭＬオブジェクト」、ＢＬＯＢ
        
        
        
   3. ロジック
      ロジックにレコード後処理を追加します。
      ＸＭＬをＢｌｏｂに取り込んで、再帰用のプログラムをコールしますが、その際に、最初のタスク（ルートタスク）の位置をパラメータで渡してあげます。
      
      
      
      1. レコード後処理
         
         
         • ブロック：条件：「FileExist (B)」
         • 項目更新：Ｃ、値＝式３：「File2Blb(B)」
         • コールＰ：４（タスク解析再帰）、パラメータ１：式４：「0」、パラメータ２：式５：「'/Application/ProgramsRepository/Programs/Task'」
         • ブロック：Else
         • エラーＷ＝警告：式６：「'プログラムリポジトリファイル「Prg_'&Trim(Str(A,'4'))&'.xml」が見つかりません。'」
         • ブロック：End
           
           
   4. 入出力ファイル
      入出力ファイルにＸＭＬ読込の定義を記載します。
      
      • 名前：「ＸＭＬ」
      • メディア：Ｖ＝項目
      • アクセス：Ｒ＝読込
      • 書式：N=なし
      • 式／項目：Ｃ（ＸＭＬオブジェクト）
        
        
        
2. タスク構造取得サブプログラム
   次に第二の再帰的なプログラムを作成します。
1. タスク特性
• プログラム名：「タスク解析再帰」
• タスクタイプ：バッチ
• タスク終了条件：「Yes」
• チェック時期：「A=後置」
  
  
2. データビュー
   下記のパラメータと変数を追加します。
   階層レベルは、ネストしているレベルを意味しますが、最初のプログラムで読み込んだＸＭＬオブジェクトの位置を取得するのにも利用されます。ヘッダからタスクのＩＤと名前（それぞれ属性値）を取得し、変数にセットします。
   
   
   
   
   • パラメータ：「階層レベル」、N=数値、3
   • パラメータ：「ＸＰＡＴＨ」、A=文字、512
   • 変数：「タスクＩＤ」、N=数値、3、代入：「Val(XMLGet (A+1,1,Trim(B)&'/Header','ISN_2'),'5')」
   • 変数：「タスク名」、A=文字、30、代入：「XMLGet (A+1,1,Trim(B)&'/Header','Description')」
   • 変数：「カウンター」、N=数値、3
     
     
     
3. ロジック
   レコード後処理と、タスク後処理を追加します。
   
1. レコード後処理
   エラー文を利用し、メッセージボックスにタスクＩＤと名前を表示させます。
   
   • エラー：Ｗ=警告、「Trim(Str(C,'3'))&'.'&D」
     
     
2. タスク後処理
   子タスクがあるかどうかを判定し、ある場合は、その個数分だけ更に自分自身を呼び出します。
   Task[1]、Task[2]、Task[3]、・・・とpositionを指定します。
   
   
   
   • 項目更新：E:カウンター、値：「E+1」
   • ブロック：w=while式：「XMLExist (A+1,1,Trim(B)&'/Task['&Trim(Str(E,'3'))&']','')」
   • コールプログラム：４（「タスク解析再帰」＝自分自身）、パラメータ１：式：「A+1」、パラメータ２：式「Trim(B)&'/Task['&Trim(Str(E,'3'))&']'」
   • 項目更新：E:カウンター、値：「E+1」
   • ブロック：N=End
     
   
   
   
3. 作成プログラムの組み込み
   作成したプログラムは、前回作成したプログラム（リポジトリ一覧表示プログラム）を修正し、ホットキーによりコールできるようにします。
   
   1. ロジックタブにイベントを追加します。
      
      • 「Ctrl+H」キー→「E」キー→「Ｓ」キー→「↓」キー→「Ｆ５」キー→「Enter」キー
   2. 追加したイベントに、コールプログラムを追加します。
      
      • 作成プログラム3（タスク構造取得）を指定、パラメータ１：一覧から「id」項目を選択
   さあ、これでいよいよ実行です。
4. プログラムのテスト実行
   一覧表示プログラムを起動し、任意のプログラムで「Ｆ５」キーを押すと、今回作成したプログラムが起動します。
   
   
   
   
   
   メッセージボックスに順に取得したタスクの名称が表示されます。
   

改良・・・

　ここまでくれば、あとは「お化粧」の世界です。タスクツリーを表示させてみましょう。
　まず、メモリテーブルにタスク一覧取得用のテーブルを定義します。

　「タスク解析再帰」プログラムは、次のような修正を行います。

• パラメータ「親ＩＤ」（N=数値、3）を追加します。
• 変数「タスクタイプ」（A=文字、1）を追加し、代入に「XMLGet (A+1,1,Trim(B)&'/Header/TaskType','val')」をセットします。
• C=登録リンクを追加します。
• レコード後処理のエラー行は無効にします。
• タスク後処理のコールプログラムにパラメータ３（変数項目「タスクＩＤ」）を追加します。
  
  

　「タスク構造取得」プログラムの修正箇所は次のとおりです。

• レコード後処理のブロック文にアクション（DbDel ('5'DSOURCE,'')）を追加します。
• コールプログラムのパラメータ３に式で「0」をセットするかスキップにチェックします。
  

　結果は、ツリーコントロールを使用し、ネストしたタスクの構造を表示させてみましょう。「タスク一覧表示」というプログラムを作成します。
　最後に、「プログラム一覧」のプログラムのイベントを修正し、完成です。

　プログラムのソースをダウンロードできるようにしておきます。