プチコンまとめWiki (初代/mkII)

Toukou/ListSorter の変更点

パンくずリスト


#title(投稿プログラム : ListSorter )
#contents
2012年11月07日投稿
/ 投稿者 : [[hatena>http://www1.atwiki.jp/hatena71869/pages/17.html]]
/ &tag(投稿プログラム,実用ツール);
/ &tag(投稿プログラム,実用ツール,mkII専用);

* 概要 [#f1180f53]
DATA文に書かれたリストをソートし表示します。&br;
リストの書き方は「&basic{DATA LIST1,LIST2};」のようなかんじです。&br;
この場合、&basic{LIST1};がソートの対象となり&basic{LIST1};のソートに合わせて&basic{LIST2};もソートされます。

* QR コード [#tf7dd263]
プチコンmkII 向けの QR コードです。
|~&basic{PRG:HN_LISTS}; Ver1.00|
|&ref(ver1.00_qr000.png);|

* プログラムリスト [#i0127d6f]
#region(プログラムリスト,close)
#basic{{
'┌─────────────────────────┐
'│┿ List Sorter            │
'│└┬─Version  Ver1.00      │
'│ ├─FileName PRG:HN_LISTS │
'│ └─Auther   hatena       │
'└─────────────────────────┘
@LISTDATA
'       :------------------:
'       :   DATA AAA,BBB   :
' Sample:   DATA CCC,""    :
'       :   DATA "",DDD    :
'       :------------------:
'───────────────────────────
'↓↓↓Write list data here.↓↓↓
'───────────────────────────

'───────────────────────────
'↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
'                           
'↓↓↓↓Do not delete this.↓↓↓↓
'───────────────────────────
DATA *----END_LIST_DATA----*
'───────────────────────────
'↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
'───────────────────────────
GOSUB@INI      'ヘンスウ セッテイ   
GOSUB@LISTSET  ' リスト サクセイ   
GOSUB@PUT      ' リスト ヒョウシ゛  
GOTO @MAINLOOP ' メイン ル-フ゜   
'---------------------------
@INI
 'ショキカ                      
  CLEAR
 'サイタ゛イ コウモクスウ              
  LISTMAX=1000
   DIM LIST1$(LISTMAX+1)
   DIM LIST2$(LISTMAX+1)
 'テ゛-タ ノ マツヒ゛ ヲ アラワス モシ゛レツ  
  ELDSTR$="*----END_LIST_DATA----*"
 'LEFT  DATA カ゛ ナイトキ ヒョウシ゛  
  NOLIST1$="NO DATA"
 'RIGHT DATA カ゛ ナイトキ ヒョウシ゛  
  NOLIST2$="NO DATA"
 'リストテ゛-タ ノ ラヘ゛ルメイ          
  LBL_LIST$="@LISTDATA"
 'メインル-フ゜ ノ VSYNC ノ アタイ     
  MAINVSYNC=1
 'スクロ-ル アッフ゜ ホ゛タン           
  SCRUP=1
 'スクロ-ル タ゛ウン ホ゛タン           
  SCRDOWN=2
 'ソ-ト ノ ハシ゛メ ノ イチ           
  SORTST=0
 'キ゛ョウハ゛ンコ゛ウ ノ ハシ゛メ ノ イチ    
  PUTST=1
 'キ゛ョウハ゛ンコ゛ウ ト テ゛-タ ノ クキ゛リ  
  NUM__DATA$="."
 'テ゛-タ カン ノ クキ゛リ            
  DATA__DATA$=","
RETURN
'---------------------------
@LISTSET
 RESTORE LBL_LIST$
 FOR I=0 TO LISTMAX
  READ READS$
  IF READS$!=ELDSTR$ THEN LIST1$(I)=READS$:READ LIST2$(I) ELSE GET=I:I=LISTMAX
 NEXT
 SORT SORTST,GET,LIST1$,LIST2$
RETURN
'---------------------------
@PUT
 CLS
 FOR I=ST TO ST+22
  ? " "*(LEN(STR$(LISTMAX))-LEN(STR$(I+PUTST)));I+PUTST;NUM__DATA$;
  IF LIST1$(I)=="" THEN ? NOLIST1$;DATA__DATA$; ELSE ? LIST1$(I);DATA__DATA$;
  IF LIST2$(I)=="" THEN ? NOLIST2$              ELSE ? LIST2$(I)
 NEXT
RETURN
'---------------------------
@MAINLOOP
 UPFLG=0:DOWNFLG=0
 UPFLG=(BUTTON() AND SCRUP)
 DOWNFLG=(BUTTON() AND SCRDOWN)
 IF UPFLG THEN ST=ST-1:ST=ST*(ST>0):GOSUB@PUT
 IF DOWNFLG THEN ST=ST+1:ST=ST*(ST<(LISTMAX-22))+(LISTMAX-23)*(ST>LISTMAX-23):GOSUB@PUT
 VSYNC MAINVSYNC
GOTO@MAINLOOP
}}
#endregion

* CHECKER FLAG (ひとことコメント) [#zb52c37e]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.005 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30