■記事リスト / ▼下のスレッド
/ ▲上のスレッド
| ■13327 / 親記事) |
横項目の順位の付け方について
|
□投稿者/ T.S -(2022/06/19(Sun) 14:39:40)
| T.Sと申します。
いつも勉強させていただいております。
桐9-2012 です。
標記の件、次のような処理をしたいと考えていますが、上手い計算式が思い浮かびません。
皆様方の良いお知恵をお借りできればと思っております。
よろしくお願いいたします。
【やりたい事】
●_[英語]～[社会]までの５項目の点数順(100点満点)に、次の項目[強み_英語]～[強み_社会]の各項目に降順に順位をつけたい。
[氏名]、[英語]、[数学]、[国語]、[理科]、[社会]、[強み_英語]、[強み_数学]、[強み_国語]、[強み_理科]、[強み_社会]
東京太郎,90,70,50,60,80,1,3,5,4,2
神奈川二郎,70,70,60,60,50,1,1,2,2,3
千葉花子,40,60,50,70,80,5,3,4,2,1
・・・
|
|
|
▽[全レス9件(ResNo.5-9 表示)]
| ■13336 / ResNo.5) |
Re[3]: 横項目の順位の付け方について
|
□投稿者/ ｎａｔｓｕ -(2022/06/21(Tue) 23:46:14)
| ONnojiさんへ
ご指摘と詳細な解説、どうもありがとうございました。
やっぱり、項目計算式とは相性がよろしくないようです。
お詫びといっては何ですが、一括にしてみました。
（一位が複数あるとき、次は二位にしてあります）
[氏名]、[英語]、[数学]、[国語]、[理科]、[社会]、[強み_英語]、[強み_数学]、[強み_国語]、[強み_理科]、[強み_社会]
↑ これを "元表"という名前にして[点数]整数型、[順位]整数型、[名前順]整数型、[科目]文字列の４項目を元表に追加してください。
今度は、きちんと動作した一括から直接コピーしたので大丈夫です。
変数宣言 固有，文字列{ &名前,&科目の名称, &s }
変数宣言 固有，整数{ &科目の順位, &科目の点数, &i }
表 "元表"
置換 [名前順]=#連番
置換 [強み_英語]=#U, [強み_数学]=#U, [強み_国語]=#U, [強み_理科]=#U, [強み_社会]=#U
繰り返し &i=2, 6
&s="強み_" + #項目属性(&i,1)
コマンド "置換 [科目]=&s"
コマンド "置換 [点数]=[" + #項目属性(&i,1) + "]"
ケース開始
ケース (&i=2)
書き出し 表,"一時ファイル",{[氏名],[科目],[点数],[順位],[名前順]}
ケース その他
書き出し 表,"一時ファイル",追加,{[氏名],[科目],[点数],[順位],[名前順]}
ケース終了
繰り返し終了
表 "一時ファイル"
&名前=""
絞り込み [点数]{≠#U}
並べ替え {[氏名]昇順,[点数]降順}
ジャンプ 行番号=先頭
繰り返し
ケース開始
ケース ([氏名]≠&名前)
&名前=[氏名]
&科目の順位=1
&科目の点数=[点数]
行訂正 [順位]=&科目の順位
ケース その他
ケース開始
ケース ([点数]≠&科目の点数)
&科目の順位=&科目の順位+1
&科目の点数=[点数]
行訂正 [順位]=&科目の順位
ケース その他
行訂正 [順位]=&科目の順位
ケース終了
ケース終了
行訂正 [順位]=&科目の順位
ジャンプ 行番号=次行
条件 (#EOF=1) 繰り返し中止
繰り返し終了
ジャンプ 行番号=先頭
繰り返し
&科目の名称=[科目]
&科目の順位=[順位]
&i=[名前順]
編集表 "元表"
ジャンプ 行番号=&i
コマンド "行訂正 [" + &科目の名称 + "]=&科目の順位
編集表 "一時ファイル"
ジャンプ 行番号=次行
条件 (#EOF=1) 繰り返し中止
繰り返し終了
|
|
|
| ■13337 / ResNo.6) |
Re[4]: 横項目の順位の付け方について
|
□投稿者/ ONnoji -(2022/06/22(Wed) 01:03:44)
| 2022/06/22(Wed) 22:24:13 編集(投稿者)
2022/06/22(Wed) 12:33:44 編集(投稿者)
2022/06/22(Wed) 01:07:01 編集(投稿者)
■No13336に返信(ｎａｔｓｕさんの記事)
ｎａｔｓｕさん江
この掲示板は桐のコマンドのお勉強をされる人がご覧になっていると思うので、老婆心ながら書かせていただきます。m(__)m
◇ ◇ ◇ ◇ ◇ ◇ ◇
もしも、表( .tbl )にレコードが無かったら、※理由：絞り込みに失敗した、元々空ファイルだった、すべて削除レコードだった、etc.
ジャンプ 行番号=先頭
┌繰り返し ← 無条件で繰り返している！
│ ：
│ ：
│ ：
│ ：
│ ジャンプ 行番号=次行
←─条件 (#EOF=1) 繰り返し中止
└繰り返し終了
（実際にエラーするか否かは別にして）これはダメでしょ。
ここは until：後判断型の繰り返しではなくて、while：前判断型の繰り返しにしますよ。
もちろん、これは予期せぬ失敗に備えてのことです・・・(^^)ok
ジャンプ 行番号=先頭
┌繰り返し ( .not #eof ) ← 条件を指定している
│ ：
│ ：
│ ：
│ ：
│ ジャンプ 行番号=次行 ← これが無いと終端行へ到達しないので絶対に必要
└繰り返し終了
■参考
３２ 繰り返し と 条件式｜桐の釣魚大全のトップ > フォームアプリケーション教書 第２部
http://silicon7565.html.xdomain.jp/guide/guide_Part2.htm#section32
３０．３ 条件式の書き方｜桐の釣魚大全のトップ > フォームアプリケーション教書 第２部
http://silicon7565.html.xdomain.jp/guide/guide_Part2.htm#section30-3
|
|
|
| ■13338 / ResNo.7) |
Re[5]: 横項目の順位の付け方について
|
□投稿者/ 尾形 -(2022/06/22(Wed) 04:39:20)
| どうも、こんにちは
> ┌繰り返し ( .not #eof ) ← 条件を指定している
> └繰り返し終了
この書き方だと
どの表に対しての .not #eof 判定なのか
分かりにくいので好みが分かれる気もします
|
|
|
| ■13340 / ResNo.8) |
Re[6]: 横項目の順位の付け方について
|
□投稿者/ ONnoji -(2022/06/22(Wed) 10:35:45)
| 2022/06/22(Wed) 13:05:41 編集(投稿者)
■No13338に返信(尾形さんの記事)
>>┌繰り返し ( .not #eof ) ← 条件を指定している
>>└繰り返し終了
>
> この書き方だと
> どの表に対しての .not #eof 判定なのか
> 分かりにくいので好みが分かれる気もします
なるほど。
よく読んでみると［繰り返し...繰り返し終了］は２か所あったんですね。(^^ゞ
■１番めの繰り返し
表 "一時ファイル"
&名前=""
絞り込み [点数]{≠#U} ← この絞り込みで０レコードになる可能性があります
並べ替え {[氏名]昇順,[点数]降順}
ジャンプ 行番号=先頭
┌繰り返し
│
│ ：
│ ：
│ ：
│
│ ジャンプ 行番号=次行
←─条件 (#EOF=1) 繰り返し中止
└繰り返し終了
これ↑は絞り込みで０レコードになる可能性があります。
もちろん、普通にはそんなことは起きませんよね。
でも、失敗は想定外の事から起きるんですよね。
■２番めの繰り返し
（編集表 "一時ファイル"）←必ずレコードが存在するか否かはプログラムの構造に依存します
ジャンプ 行番号=先頭
┌繰り返し
│ ：
│ ：
│ &i=[名前順]
│
│ 編集表 "元表"
│ ジャンプ 行番号=&i
│ コマンド "行訂正 [" + &科目の名称 + "]=&科目の順位
│
│ 編集表 "一時ファイル"
│ ジャンプ 行番号=次行
←─条件 (#EOF=1) 繰り返し中止
└繰り返し終了
なるほど、よく見たら２つの編集表（"一時ファイル"と"元表"）を行き来していますね。
この場合でも、繰り返しに条件の( .not #eof )を付けても動作には影響しないです。
> どの表に対しての .not #eof 判定なのか
むしろ、［ジャンプ 行番号＝先頭］の直前に［編集表 "一時ファイル"］を補った方が分かり易いですね。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
２つの編集表を行き来する場合には、最初の出発点がどちらなのか最初に［編集表］コマンドで明示した方がよいですね。
ｐ．ｓ．
当然ですがプログラムの書き方は自由です。
しかし、何よりもエラーを起こしにくいように書くことを心掛けるべきだと思います。
そして、他人（この場合には未来の自分を含みます）が見ても分かり易いように心掛けたいものですね。
それを踏まえた上で、いわゆる「好み」に関しては個人個人千差万別なので仕方ないですね。
|
|
|
| ■13341 / ResNo.9) |
Re[7]: 横項目の順位の付け方について
|
□投稿者/ T.S -(2022/06/22(Wed) 20:36:00)
| ONnoji 様
ｎａｔｓｕ 様
尾形 様
ご回答いただきありがとうございました。
イベントや複雑な項目計算式、一括処理と回答いただき有難うございました。
回答いただいたものを使わせていただき、希望どおりの処理が出来ました。
本当に助かりました。
イベントや一括処理でのコマンド、項目計算式の関数など私がこれまで使った事の無いもの使われており、
非常に勉強になりました。
今後も精進してまいりますので、御指南等よろしくお願いいたします。
|
解決済み! |
|
■記事リスト /
レス記事表示 →
[親記事-9]
|
で表示されます。
で表示されます。
２つのテーブルでの有り無しチェック(6)