| パスワード:[kiri]
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) 繰り返し中止
繰り返し終了
|
