投稿プログラム : ListSorter

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:43:54

公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/ListSorter.html

概要
QR コード
プログラムリスト
CHECKER FLAG (ひとことコメント)

2012年11月07日投稿 / 投稿者 : hatena / タグ : 投稿プログラム実用ツール mkII専用

概要

DATA文に書かれたリストをソートし表示します。
リストの書き方は「ＤＡＴＡ　ＬＩＳＴ１，ＬＩＳＴ２」のようなかんじです。
この場合、ＬＩＳＴ１がソートの対象となりＬＩＳＴ１のソートに合わせてＬＩＳＴ２もソートされます。

QR コード

プチコンmkII 向けの QR コードです。

ＰＲＧ：ＨＮ＿ＬＩＳＴＳ Ver1.00

プログラムリスト

’┌─────────────────────────┐
’│┿　Ｌｉｓｔ　Ｓｏｒｔｅｒ　　　　　　　　　　　　│
’│└┬─Ｖｅｒｓｉｏｎ　　Ｖｅｒ１．００　　　　　　│
’│　├─ＦｉｌｅＮａｍｅ　ＰＲＧ：ＨＮ＿ＬＩＳＴＳ　│
’│　└─Ａｕｔｈｅｒ　　　ｈａｔｅｎａ　　　　　　　│
’└─────────────────────────┘
＠ＬＩＳＴＤＡＴＡ
’　　　　　　　：－－－－－－－－－－－－－－－－－－：
’　　　　　　　：　　　ＤＡＴＡ　ＡＡＡ，ＢＢＢ　　　：
’　Ｓａｍｐｌｅ：　　　ＤＡＴＡ　ＣＣＣ，””　　　　：
’　　　　　　　：　　　ＤＡＴＡ　””，ＤＤＤ　　　　：
’　　　　　　　：－－－－－－－－－－－－－－－－－－：
’───────────────────────────
’↓↓↓Ｗｒｉｔｅ　ｌｉｓｔ　ｄａｔａ　ｈｅｒｅ．↓↓↓
’───────────────────────────

’───────────────────────────
’↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
’　　　　　　　　　　　　　　　　　　　　　　　　　　　
’↓↓↓↓Ｄｏ　ｎｏｔ　ｄｅｌｅｔｅ　ｔｈｉｓ．↓↓↓↓
’───────────────────────────
ＤＡＴＡ　＊－－－－ＥＮＤ＿ＬＩＳＴ＿ＤＡＴＡ－－－－＊
’───────────────────────────
’↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
’───────────────────────────
ＧＯＳＵＢ＠ＩＮＩ　　　　　　’ヘンスウ　セッテイ　　　
ＧＯＳＵＢ＠ＬＩＳＴＳＥＴ　　’　リスト　サクセイ　　　
ＧＯＳＵＢ＠ＰＵＴ　　　　　　’　リスト　ヒョウシ゛　　
ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ　’　メイン　ル－フ゜　　　
’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＩＮＩ
　’ショキカ　　　　　　　　　　　　　　　　　　　　　　
　　ＣＬＥＡＲ
　’サイタ゛イ　コウモクスウ　　　　　　　　　　　　　　
　　ＬＩＳＴＭＡＸ＝１０００
　　　ＤＩＭ　ＬＩＳＴ１＄（ＬＩＳＴＭＡＸ＋１）
　　　ＤＩＭ　ＬＩＳＴ２＄（ＬＩＳＴＭＡＸ＋１）
　’テ゛－タ　ノ　マツヒ゛　ヲ　アラワス　モシ゛レツ　　
　　ＥＬＤＳＴＲ＄＝”＊－－－－ＥＮＤ＿ＬＩＳＴ＿ＤＡＴＡ－－－－＊”
　’ＬＥＦＴ　　ＤＡＴＡ　カ゛　ナイトキ　ヒョウシ゛　　
　　ＮＯＬＩＳＴ１＄＝”ＮＯ　ＤＡＴＡ”
　’ＲＩＧＨＴ　ＤＡＴＡ　カ゛　ナイトキ　ヒョウシ゛　　
　　ＮＯＬＩＳＴ２＄＝”ＮＯ　ＤＡＴＡ”
　’リストテ゛－タ　ノ　ラヘ゛ルメイ　　　　　　　　　　
　　ＬＢＬ＿ＬＩＳＴ＄＝”＠ＬＩＳＴＤＡＴＡ”
　’メインル－フ゜　ノ　ＶＳＹＮＣ　ノ　アタイ　　　　　
　　ＭＡＩＮＶＳＹＮＣ＝１
　’スクロ－ル　アッフ゜　ホ゛タン　　　　　　　　　　　
　　ＳＣＲＵＰ＝１
　’スクロ－ル　タ゛ウン　ホ゛タン　　　　　　　　　　　
　　ＳＣＲＤＯＷＮ＝２
　’ソ－ト　ノ　ハシ゛メ　ノ　イチ　　　　　　　　　　　
　　ＳＯＲＴＳＴ＝０
　’キ゛ョウハ゛ンコ゛ウ　ノ　ハシ゛メ　ノ　イチ　　　　
　　ＰＵＴＳＴ＝１
　’キ゛ョウハ゛ンコ゛ウ　ト　テ゛－タ　ノ　クキ゛リ　　
　　ＮＵＭ＿＿ＤＡＴＡ＄＝”．”
　’テ゛－タ　カン　ノ　クキ゛リ　　　　　　　　　　　　
　　ＤＡＴＡ＿＿ＤＡＴＡ＄＝”，”
ＲＥＴＵＲＮ
’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＬＩＳＴＳＥＴ
　ＲＥＳＴＯＲＥ　ＬＢＬ＿ＬＩＳＴ＄
　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＩＳＴＭＡＸ
　　ＲＥＡＤ　ＲＥＡＤＳ＄
　　ＩＦ　ＲＥＡＤＳ＄！＝ＥＬＤＳＴＲ＄　ＴＨＥＮ　ＬＩＳＴ１＄（Ｉ）＝ＲＥＡＤＳ＄：ＲＥＡＤ　ＬＩＳＴ２＄（Ｉ）　ＥＬＳＥ　ＧＥＴ＝Ｉ：Ｉ＝ＬＩＳＴＭＡＸ
　ＮＥＸＴ
　ＳＯＲＴ　ＳＯＲＴＳＴ，ＧＥＴ，ＬＩＳＴ１＄，ＬＩＳＴ２＄
ＲＥＴＵＲＮ
’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＰＵＴ
　ＣＬＳ
　ＦＯＲ　Ｉ＝ＳＴ　ＴＯ　ＳＴ＋２２
　　？　”　”＊（ＬＥＮ（ＳＴＲ＄（ＬＩＳＴＭＡＸ））－ＬＥＮ（ＳＴＲ＄（Ｉ＋ＰＵＴＳＴ）））；Ｉ＋ＰＵＴＳＴ；ＮＵＭ＿＿ＤＡＴＡ＄；
　　ＩＦ　ＬＩＳＴ１＄（Ｉ）＝＝””　ＴＨＥＮ　？　ＮＯＬＩＳＴ１＄；ＤＡＴＡ＿＿ＤＡＴＡ＄；　ＥＬＳＥ　？　ＬＩＳＴ１＄（Ｉ）；ＤＡＴＡ＿＿ＤＡＴＡ＄；
　　ＩＦ　ＬＩＳＴ２＄（Ｉ）＝＝””　ＴＨＥＮ　？　ＮＯＬＩＳＴ２＄　　　　　　　　　　　　　　ＥＬＳＥ　？　ＬＩＳＴ２＄（Ｉ）
　ＮＥＸＴ
ＲＥＴＵＲＮ
’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＭＡＩＮＬＯＯＰ
　ＵＰＦＬＧ＝０：ＤＯＷＮＦＬＧ＝０
　ＵＰＦＬＧ＝（ＢＵＴＴＯＮ（）　ＡＮＤ　ＳＣＲＵＰ）
　ＤＯＷＮＦＬＧ＝（ＢＵＴＴＯＮ（）　ＡＮＤ　ＳＣＲＤＯＷＮ）
　ＩＦ　ＵＰＦＬＧ　ＴＨＥＮ　ＳＴ＝ＳＴ－１：ＳＴ＝ＳＴ＊（ＳＴ＞０）：ＧＯＳＵＢ＠ＰＵＴ
　ＩＦ　ＤＯＷＮＦＬＧ　ＴＨＥＮ　ＳＴ＝ＳＴ＋１：ＳＴ＝ＳＴ＊（ＳＴ＜（ＬＩＳＴＭＡＸ－２２））＋（ＬＩＳＴＭＡＸ－２３）＊（ＳＴ＞ＬＩＳＴＭＡＸ－２３）：ＧＯＳＵＢ＠ＰＵＴ
　ＶＳＹＮＣ　ＭＡＩＮＶＳＹＮＣ
ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

プチコンまとめArchive

投稿プログラム : ListSorter

パンくずリスト

概要

QR コード

プログラムリスト

CHECKER FLAG (ひとことコメント)

メニュー

外部リンク

プチコン4

プチコン3号&BIG

プチコン初代&mkII