ここでは、ON-REVのホームページにあるiREVのサンプルではなく、独自のirevスクリプトを掲載しています。 このアプリケーションは、フォームにデータを入力しそれをサーヴァーに送信して、その結果を画面に表示させるという、典型的なフォームを利用したスクリプトです。只通常のフォームと違うのは、扱うデータが棚卸の為の計算データという処です。 そうこのアプリケーションは、棚卸計算用の電卓なのです。ランレブのスタックだと配賦やメンテナンスなどに結構手間がかかるので、ウエブ上で同じようなアプリケーションを……と考えていた処にirevというランレブの延長でプログラミング可能な言語が登場したのを機に開発してみたものです。 このirevスクリプトの開発には、「Runtime Revolution Ltd 公式日本語掲示板」でいつもお世話になっているKOJIMA Kenjiさんにご協力を頂きました。 何がどのようにできるのかは、上の説明をお読みいただきご自身でお試しください。 以下がそのスクリプトです； iRevによるアプリケーション：Calc.irev <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="content-type" content="text/html;charset=utf-8"> <title>JPREV TadaTuka Stocktaking Calculator / JPREV タダツカ棚卸電卓</title> <br> <big>JPREV TadaTuka Stocktaking Calculator / JPREV タダツカ棚卸電卓</big> <br> <small>〜　この棚卸電卓は小島健治氏が作成された掲示板を元に作成しております。　〜</small> <br> <br> </head> <! special thanks to KENJI Kojima /!> 【データ形式】数値（１KG当り原価），（半角コンマ）重量（KG）<br> <br> 1234567890,2<br> 2345678901,3.2<br> 3456789012,6.2<br> 4567890123,2.12<br> 5678901234,1.4142<br> 6789012345,2.33<br> 7890123456,3.33<br> 8901234567,2.54<br> 9012345678,4.25<br> <br> Please put example data above ／上のデータを検証用にお使いください。<br> <br> Keep your mind, this action is at your own risk !! ；この棚卸電卓は自己責任でご利用下さい。<br> <br> <form action="calc.irev" method="POST" name="collect" > <textarea name="writeText" rows="10" cols="50" /></textarea><br><br> <input type="submit" name="submit" value="計算する"><br><br> <span class="subline">RawData has to be valid.／正しい形式のデータを入力してください。</span> </form> <?rev put "<strong>入力されたデータは；</strong>" & $_POST["writeText"] & "<br>" & "<strong>　　　データ行数は；</strong>" & the number of lines of $_POST["writeText"] & "<br><strong>　　　　計算結果は；</strong><br>" if $_POST["writeText"] <> empty then put $_POST["writeText"] into tRawData repeat for each line tLine in tRawData put item 1 of tLine &"円　掛ける　" & item 2 of tLine &&"KGは　" && item 1 of tLine * item 2 of tLine & "円" & cr after tOutput add item 1 of tLine * item 2 of tLine to tSum end repeat put tOutput into URL("file:CalData.txt") put tSum after URL("file:CalData.txt") replace cr with "<br>" in tOutput put tOutput & "<strong>　　　　　合計値は；</strong>" & tSum end if ?> </html>http://www.on-rev.com/home/shapeimage_2_link_0