ウィリアムのいたずらの、まちあるき、たべあるき

import java.util.*;

/**
 * 
 * 決定表のコントロール部分
 */
public class  $#$CELL B2$#$Cntl {

	/*
	 * 右側の上のYN
	 */
	public static final String[] zyoken_list={
$#$REP 5$#$			"$#$KETA J$#$"$#$KETA L$#$
$#$REPEND J$#$
};

	/*
	 * 右側の下の実行内容
	 */
	public static final String[] todo_list={
$#$REP 5$#$			"$#$KETA K$#$"$#$KETA L$#$
$#$REPEND K$#$
};

	/*
	 * 	決定表の実行処理
	 */	
	public int execute(HashMap map) 
	{
		//======================//
		//	データ取得     //
		//======================//
$#$REP 5$#$
$#$IFKETA H,i$#$
		int	$#$KETA G$#$	=	0;
		try
		{
			String buf　=	(String)map.get("$#$KETA G$#$");
			$#$KETA G$#$	=	Integer.parseInt(buf);
		}
		catch(Exception e)
		{
			e.printStackTrace();
			return	-1;
		}		
$#$IFEND$#$
$#$IFKETA H,S$#$
		String	$#$KETA G$#$ = (String)map.get("$#$KETA G$#$");
		if ( $#$KETA G$#$	==	null )
		{
			return	-1;
		}
$#$IFEND$#$
$#$REPEND H$#$

		//======================//
		//	条件判定	//
		//======================//
		//	条件文をここに設定
		String	zyoken = "";
$#$REP 5$#$
		//	$#$KETA A$#$
		if ( $#$KETA B$#$ )
		{
			zyoken = zyoken+"Y";
		}
		else
		{
			zyoken = zyoken+"N";
		}
$#$REPEND B$#$		

		logout(zyoken);

		//======================//
		//	実行条件の選択 //
		//======================//
		String todo = "----";
		for(int i = 0 ; i ＜ zyoken_list.length ; i ++ )
		{
			if ( zyoken_list[i].equals(zyoken)==	true )
			{
				todo	=	todo_list[i];
			}	
		}
		logout(todo);
		
		//======================//
		//	実行 	      //
		//======================//
		$#$CELL B2$#$Model $#$CELL B1$#$Model=new $#$CELL B2$#$Model();

$#$REP 5$#$
		if ( todo.charAt($#$KETA D$#$)	==	'X' )
		{
			$#$KETA E$#$
		}
$#$REPEND D$#$	

		return	0;
	}

	/*
	 * 	ログ出力
	 */	
	 public void logout(String msg)
	 {
//		System.out.println(msg);
	 }

}

・タグをみつけて、そこまでを書き出し、
・見つけたタグについてはchgTagToStrで解析、必要な内容を仕様書から
　もってきて書き出し
・次のタグを探す

'//=========================//
'//　タグを処理する　　　   //
'//=========================//
Function chgTagToStr(tag As String, next_str_pos As Integer, shname As String) As Integer
    
    If (Mid(tag, 1, 6) = "REPEND") Then
        lpgyo = lpgyo + 1
        cellpos = Replace(Mid(tag, 7), " ", "") & CStr(lpgyo)
        celldata = Sheets(shname).Range(cellpos)
        If (celldata = "") Then
            chgTagToStr = next_str_pos
        Else
            chgTagToStr = lpstr_pos
        End If
        Exit Function
    End If
    
    If (Mid(tag, 1, 3) = "REP") Then
        lpstr_pos = next_str_pos
        lpgyo = CInt(Replace(Mid(tag, 4), " ", ""))
        chgTagToStr = next_str_pos
        Exit Function
    End If
    
    If (Mid(tag, 1, 4) = "CELL") Then
        cellpos = Replace(Mid(tag, 5), " ", "")
        celldata = Sheets(shname).Range(cellpos)
        If (no_out_flg = 0) Then
            outdata = outdata & celldata
        End If
        chgTagToStr = next_str_pos
        Exit Function
    End If
    
    If (Mid(tag, 1, 4) = "KETA") Then
        cellpos = Replace(Mid(tag, 5), " ", "") & CStr(lpgyo)
        celldata = Sheets(shname).Range(cellpos)
        If (no_out_flg = 0) Then
            outdata = outdata & celldata
        End If
        chgTagToStr = next_str_pos
        Exit Function
    End If

    If (Mid(tag, 1, 6) = "IFKETA") Then
        kugiri_pos = InStr(7, tag, ",")
        cellpos = Replace(Mid(tag, 7, kugiri_pos - 7), " ", "") & CStr(lpgyo)
        celldata = Sheets(shname).Range(cellpos)
        chkdata = Mid(tag, kugiri_pos + 1)
        If (celldata = chkdata) Then
            no_out_flg = 0
        Else
            no_out_flg = 1
        End If
        chgTagToStr = next_str_pos
        Exit Function
    End If
    
    If (Mid(tag, 1, 6) = "IFCELL") Then
        kugiri_pos = InStr(7, tag, ",")
        cellpos = Replace(Mid(tag, 7, kugiri_pos - 7), " ", "")
        celldata = Sheets(shname).Range(cellpos)
        chkdata = Mid(tag, kugiri_pos + 1)
        If (celldata = chkdata) Then
            no_out_flg = 0
        Else
            no_out_flg = 1
        End If
        chgTagToStr = next_str_pos
        Exit Function
    End If
    
    If (Mid(tag, 1, 5) = "IFEND") Then
        no_out_flg = 0
        chgTagToStr = next_str_pos
        Exit Function
    End If
    
    chgTagToStr = next_str_pos

End Function