ここでは、ON-REVのホームページにあるiREVのサンプルではなく、独自のirevスクリプトを掲載しています。
色々とテーブル操作のスクリプトを書いていてフト思ったのが、テーブルのセル(行数と列数)を自在に操れないかということです。そうすれば、もっとフレキシブルな表計算を可能にできるのではないか?こんな事を考えて作ってみたのが前回のirevスクリプトです。
更に今回は、行数と列数に式を入れられるようにしてみました。今までは数値、つまり1とか2とか10等といった値しか入力できませんでした。そこで今回は、例えば1+1とか2×3とか或いは9÷3といった、数式を入力できるようにしてみました。
これは、revTalkの「do」コマンドを使って実行させています。

以下がそのスクリプトです;


iRevによるアプリケーション:Table_Extendable_2.irev

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html lang="ja" xml:lang="ja" xmlns="http://www.w3.org/1999/xhtml">

<head>
	<meta http-equiv="content-type" content="text/html;charset=utf-8" />
	<title>Table_Extendable_2</title>
</head>

<body>
	<p><strong><font size="5">変数によるテーブルの行列数の増減サンプル;</font></strong></p>
	<p>Table_Extendable_2.irev</p>
	<p><font size="4">行数と列数に様々な数値を入力し、その結果を確認してください。<br>
					今回の行・列は数値だけでなく式も入力可能です。</font></p>
<p>----------</p>
	<form action="Table_Extendable_2.irev" method="POST" name="collect" >
		日付:<input name="TDay" type="text" /><br><br>
		行数:<input name="Row" type="text" /><br><br>
		列数:<input name="Column" type="text" /><br><br>
		<input type="submit" name="submit" value="実行"><br><br>
	</form>
<p>----------</p>

<?rev
--//フォームの処理//---
	if ($_POST["Row"] <> empty) and ($_POST["Column"] <> empty) then
		if ($_POST["TDay"] <> empty) then
			put "日付:" && $_POST["TDay"] &"<br/>"
			put $_POST["TDay"] into tTDay
		else
			put "日付:" && the date &"<br/>"
		end if

		put "行数:" && $_POST["Row"] &"<br/>"
		do "put" && $_POST["Row"] && "into tRow"

		if tRow is empty or tRow <= 0 then
			put 1 into tRow
		end if

		put "列数:" && $_POST["Column"] &"<br/><br/>"
		do "put" && $_POST["Column"] && "into tColumn"

		if tColumn is empty or tColumn <= 0 then
			put 1 into tColumn
		end if
--//変数によるテーブルの作成//--
		put "<table width='236' border = '1' cellpadding = '5' cellspacing = '0' frame = 'void' >"
			repeat with x = 1 to tRow
				put "<tr>"
				repeat with y = 1 to tColumn
					put "<td align='right'>" & (x*y) & "</td>"
				end repeat
				put "</tr>"
			end repeat
		put "</table>"
	end if
?>

<br>
<br>
</body>
(C)2009.07.29 TAjimiYORI-AraiKey-YF

</html>http://www.on-rev.com/home/http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtdhttp://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtdhttp://www.w3.org/1999/xhtmlshapeimage_2_link_0shapeimage_2_link_1shapeimage_2_link_2shapeimage_2_link_3