mindの研究 その63


# 概要
mindが、謎なので調べてみた。
練習問題やってみた。

# 練習問題

mindで小遣い帳アプリを作成せよ。

# サンプルコード

```
txtファイルは　ファイル。

dbは　構造体
　セルは　文字列実体
　列は
　　6個の　セル
　全体は
　　100個の　列
。

メインとは
　文字列1は　文字列
　文字列2は　文字列
　単語1は　文字列
　単語2は　文字列
　単語3は　文字列
　単語4は　文字列
　単語5は　文字列
　単語6は　文字列
　数1は　変数
　数2は　変数
　数3は　変数
　数4は　変数
　数5は　変数
　数6は　変数
　数7は　変数
　数8は　変数
　数9は　変数
　合否は　変数
　数1に　0を　入れ
　"kozu.txt"で　txtファイルを　オープンして
　エラー?
　ならば
　　「ファイルのオープンに失敗しました」で　重大エラーする
　つぎに
　ここから
　　数1に　1を　加え　数1に　入れ
　　txtファイルから　一行読み出し　文字列1に　入れ
　　文字列1から　単語切り出し　単語1に　入れ
　　文字列1から　単語切り出し　単語2に　入れ
　　文字列1から　単語切り出し　単語3に　入れ
　　文字列1から　単語切り出し　単語4に　入れ
　　文字列1から　単語切り出し　単語5に　入れ
　　文字列1から　単語切り出し　単語6に　入れ
　　セル(数1，1)に　単語1を　入れ
　　セル(数1，2)に　単語2を　入れ
　　セル(数1，3)に　単語3を　入れ
　　セル(数1，4)に　単語4を　入れ
　　セル(数1，5)に　単語5を　入れ
　　セル(数1，6)に　単語6を　入れ
　　セル(数1，1)を　表示し　「 」を　表示し
　　セル(数1，2)を　表示し　「 」を　表示し
　　セル(数1，3)を　表示し　「 」を　表示し
　　セル(数1，4)を　表示し　「 」を　表示し
　　セル(数1，5)を　表示し　「 」を　表示し
　　セル(数1，6)を　表示し　改行し
　　データ終わり?
　　ならば
　　　打ち切り
　　つぎに
　繰り返し
　数1から　1を　引き　数1に　入れ
　「ロードしました。」を　一行表示し
　txtファイルを　クローズする
　ここから
　　「小遣い帳 d,表示 i,入力 e,修正 x,削除 s,ソート p,帳 r,終了 > 」を　表示する
　　文字列入力し　文字列1に　入れ

　　文字列1が　「p」に
　　等しい文字列
　　ならば
　　　「id　月　日　項目　金額　残高」を　一行表示し
　　　数３に　０を　入れ
　　　数1で　回数指定して
　　　　数2に　回数を　入れ
　　　　セル(数2，1)を　表示し　「 」を　表示し
　　　　セル(数2，2)を　表示し　「 」を　表示し
　　　　セル(数2，3)を　表示し　「 」を　表示し
　　　　セル(数2，６)を　表示し　「 」を　表示し
　　　　セル(数2，５)を　表示し　「 」を　表示し
　　　　セル(数2，５)を　数値変換し　数４と　合否に　入れ
　　　　もし　セル(数2，４)が　「-」に　等しい文字列
　　　　ならば
　　　　　数３から　数４を　引き　数３に　入れ
　　　　さもなければ
　　　　　数３に　数４を　加え　数３に　入れ
　　　　つぎに
　　　　数３を　数値表示し　改行し
　　　繰り返し
　　つぎに

　　文字列1が　「s」に
　　等しい文字列
　　ならば
　　　数1から　1を　引いて　数3に　入れ
　　　数3で　回数指定して
　　　　数2に　回数を　入れ
　　　　数2を　数値表示し
　　　　数1から　数2を　引き　数5に　入れ
　　　　数5で　回数指定して
　　　　　数4に　回数を　入れ
　　　　　数4に　数2を　加え　数4に　入れ
　　　　　数4を　数値表示し
　　　　　セル(数2，2)を　数値変換し　数6と　合否に　入れ
　　　　　セル(数4，2)を　数値変換し　数7と　合否に　入れ
　　　　　セル(数2，3)を　数値変換し　数8と　合否に　入れ
　　　　　セル(数4，3)を　数値変換し　数9と　合否に　入れ
　　　　　数6に　３２を　掛けて　数８を　加え　数６に　入れ
　　　　　数7に　３２を　掛けて　数9を　加え　数7に　入れ
　　　　　もし　数6が　数7より　大きい
　　　　　ならば
　　　　　　セル(99，1)に　セル(数2，1)を　入れ
　　　　　　セル(99，2)に　セル(数2，2)を　入れ
　　　　　　セル(99，3)に　セル(数2，3)を　入れ
　　　　　　セル(99，4)に　セル(数2，4)を　入れ
　　　　　　セル(99，5)に　セル(数2，5)を　入れ
　　　　　　セル(99，6)に　セル(数2，6)を　入れ
　　　　　　セル(数2，1)に　セル(数4，1)を　入れ
　　　　　　セル(数2，2)に　セル(数4，2)を　入れ
　　　　　　セル(数2，3)に　セル(数4，3)を　入れ
　　　　　　セル(数2，4)に　セル(数4，4)を　入れ
　　　　　　セル(数2，5)に　セル(数4，5)を　入れ
　　　　　　セル(数2，6)に　セル(数4，6)を　入れ
　　　　　　セル(数4，1)に　セル(99，1)を　入れ
　　　　　　セル(数4，2)に　セル(99，2)を　入れ
　　　　　　セル(数4，3)に　セル(99，3)を　入れ
　　　　　　セル(数4，4)に　セル(99，4)を　入れ
　　　　　　セル(数4，5)に　セル(99，5)を　入れ
　　　　　　セル(数4，6)に　セル(99，6)を　入れ
　　　　　つぎに
　　　　繰り返し
　　　　改行し
　　　繰り返し
　　つぎに

　　文字列1が　「d」に
　　等しい文字列
　　ならば
　　　「id　月　日　出入り　金額　項目」を　一行表示し
　　　数1で　回数指定して
　　　　数2に　回数を　入れ
　　　　セル(数2，1)を　表示し　「 」を　表示し
　　　　セル(数2，2)を　表示し　「 」を　表示し
　　　　セル(数2，3)を　表示し　「 」を　表示し
　　　　セル(数2，4)を　表示し　「 」を　表示し
　　　　セル(数2，5)を　表示し　「 」を　表示し
　　　　セル(数2，6)を　表示し　改行し
　　　繰り返し
　　つぎに

　　文字列1が　「i」に
　　等しい文字列
　　ならば
　　　数1に　1を　加え　数1に　入れ
　　　「1>id: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　セル(数1，1)に　文字列2を　入れ
　　　「月: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　セル(数1，2)に　文字列2を　入れ
　　　「日: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　セル(数1，3)に　文字列2を　入れ
　　　「出入り: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　セル(数1，4)に　文字列2を　入れ
　　　「金額: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　セル(数1，5)に　文字列2を　入れ
　　　「項目: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　セル(数1，6)に　文字列2を　入れ
　　つぎに

　　文字列1が　「e」に
　　等しい文字列
　　ならば
　　　「id: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　数1で　回数指定して
　　　　数2に　回数を　入れ
　　　　セル(数2，1)が　文字列2に　等しい文字列
　　　　ならば
　　　　　「月: 」を　表示し
　　　　　文字列入力し　文字列2に　入れ
　　　　　セル(数2，2)に　文字列2を　入れ
　　　　　「日: 」を　表示し
　　　　　文字列入力し　文字列2に　入れ
　　　　　セル(数2，3)に　文字列2を　入れ
　　　　　「出入り: 」を　表示し
　　　　　文字列入力し　文字列2に　入れ
　　　　　セル(数2，4)に　文字列2を　入れ
　　　　　「金額: 」を　表示し
　　　　　文字列入力し　文字列2に　入れ
　　　　　セル(数2，5)に　文字列2を　入れ
　　　　　「項目: 」を　表示し
　　　　　文字列入力し　文字列2に　入れ
　　　　　セル(数2，6)に　文字列2を　入れ
　　　　つぎに
　　　繰り返し
　　つぎに

　　文字列1が　「x」に
　　等しい文字列
　　ならば
　　　「id: 」を　表示し
　　　文字列入力し　文字列2に　入れ
　　　数1で　回数指定して
　　　　セル(回数，1)が　文字列2に　等しい文字列
　　　　ならば
　　　　　数2に　回数を　入れ
　　　　つぎに
　　　繰り返し
　　　数1から　数2を　引き　数3に　入れる
　　　数3で　回数指定して
　　　　回数に　数2を　加え　数4に　入れ
　　　　数4から　1を　引き　数4に　入れ
　　　　数4に　1を　加え　数5に　入れ
　　　　セル(数4，1)に　セル(数5，1)を　入れ
　　　　セル(数4，2)に　セル(数5，2)を　入れ
　　　　セル(数4，3)に　セル(数5，3)を　入れ
　　　　セル(数4，4)に　セル(数5，4)を　入れ
　　　　セル(数4，5)に　セル(数5，5)を　入れ
　　　　セル(数4，6)に　セル(数5，6)を　入れ
　　　繰り返し
　　　数1から　1を　引き　数1に　入れ
　　つぎに

　　文字列1が　「r」に
　　等しい文字列
　　ならば
　　　"kozu.txt"で　txtファイルを　新規オープンして
　　　エラー?
　　　ならば
　　　　「ファイルのオープンに失敗しました」で　重大エラーする
　　　つぎに
　　　数1で　回数指定して
　　　　数2に　回数を　入れ
　　　　セル(数2，1)を　txtファイルに　書き込み
　　　　「 」を　txtファイルに　書き込み
　　　　セル(数2，2)を　txtファイルに　書き込み
　　　　「 」を　txtファイルに　書き込み
　　　　セル(数2，3)を　txtファイルに　書き込み
　　　　「 」を　txtファイルに　書き込み
　　　　セル(数2，4)を　txtファイルに　書き込み
　　　　「 」を　txtファイルに　書き込み
　　　　セル(数2，5)を　txtファイルに　書き込み
　　　　「 」を　txtファイルに　書き込み
　　　　セル(数2，6)を　txtファイルに　一行書き込み
　　　繰り返し
　　　「セーブしました。」を　一行表示し
　　　txtファイルを　クローズする
　　　終り
　　つぎに
　繰り返し。
。






```

# 実行結果

```
>kozu
1 1 1 + 35120 元手金
2 1 1 - 120 コーヒー
3 1 1 - 120 あんまん
6 1 1 - 220 団子
4 1 2 - 120 ジュース
5 1 3 - 500 ラーメン

ロードしました。
小遣い帳 d,表示 i,入力 e,修正 x,削除 s,ソート p,帳 r,終了 > p
id　月　日　項目　金額　残高
1 1 1 元手金 35120 35120
2 1 1 コーヒー 120 35000
3 1 1 あんまん 120 34880
6 1 1 団子 220 34660
4 1 2 ジュース 120 34540
5 1 3 ラーメン 500 34040
小遣い帳 d,表示 i,入力 e,修正 x,削除 s,ソート p,帳 r,終了 >

```

以上。