配列変数をループさせる

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
!
 
-
|
!
 
 
 
 
-
|
|
|
!
-
|
|
|
!
-
|
|
!
-
|
-
|
!
|
|
|
|
-
|
|
|
!
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

/*
配列の中身をループして表示させる
曲目の選択などに使えるのではないでしょうか。
ここでは簡易ファイラーにしています。
by　ｋｂ１０うｙ
*/
//ウィンドウ
screen 0,640,160
title "上下キーで移動、左で上階層へ、Enterで決定"
font msgothic,20
//操作のための定数
#const koumoku_file 0x100    //ファイル属性
#const koumoku_dir  0x101    //ディレクトリ属性
#const draw_max     8        //描画する項目数
#const enterkoumoku 3        //選択されている（とする）番号
 
//変数
dim drawkoumoku,draw_max    //各項目の要素番号を格納
dim koumoku_type,64            //項目の属性を格納
sdim dirlists,256            //ファイル･フォルダの文字列を入れる配列
//↓3つバッファ
sdim dirbuf
sdim filebuf
sdim listbuf
koumokumax=0                //項目数
first=0                    //最初に描画する項目の番号
 
 
gosub *load
 
*main
    repeat
        redraw 2
            color : boxf
            //カレントディレクトリ描画
            pos 0,0
            color 255,255
            mes dir_cur
            //ここからファイル等描画
            color 255,255,255
            pos 0,20
            //書く項目を割り出す
            repeat draw_max
                color 255,255,255
                //最初の項目からその後の項目を決定
                drawkoumoku(cnt)= (first + cnt) \ koumokumax
                //選択している項目は赤
                if cnt = enterkoumoku : color 255
                pos 0,cnt*20+20
                mes dirlists(drawkoumoku(cnt))
                //おまけに書いてみる
                //ファイルならサイズ、ディレクトリなら"<DIR>
                color : boxf 400,cnt*20+20,640,cnt*20+40
                color 255,255,255
                pos 400,cnt*20+20
    
                if koumoku_type(drawkoumoku(cnt)) = koumoku_file {
                    exist dirlists(drawkoumoku(cnt))
                    //((strsize/1000)+((strsize-sirsize/1000)!=0))
                    //というのは、1024byteで割って端数があったら
                    //1足すというもの
                    //Windowsの表示に似せている
                    mes ""+((strsize/1024)+((strsize-sirsize/1024*１０２４)!=0))+"KB"
                }
                
                if koumoku_type(drawkoumoku(cnt)) = koumoku_dir {
                    mes "<DIR>"
                }
                //**********************************************
                loop
            //キー入力
            stick key
            if key&2 {
                first--
                //マイナスになったら項目数を足してループ
                if first < 0 : first += koumokumax
            }
            if key&8 {
                first++
                //項目数-1 以上になったら項目数を引いてループ
                if first > koumokumax -1 : first -= koumokumax
            }
            if key&1 {
                chdir "../"
                gosub *load
            }
            if key&32 {
                //項目属性で動作を決定
                if koumoku_type(drawkoumoku(enterkoumoku)) = koumoku_file {
                    exec dirlists(drawkoumoku(enterkoumoku)),16
                }
                //ディレクトリを後にしたのは、
                //移動した後に選択されている項目が
                //ファイルだったときに勝手に開かれるのを
                //防ぐため。
                if koumoku_type(drawkoumoku(enterkoumoku)) = koumoku_dir {
                    chdir dirlists(drawkoumoku(enterkoumoku))
                    //もう一度読み込み
                    gosub *load
                }
            }
            
        redraw 1
        await
        title "上下キーで移動、Enterで決定"
    loop
    
*load
    //もう1度初期化
    dim drawkoumoku,draw_max
    dim koumoku_type,64
    sdim dirlists,256
    sdim dirbuf
    sdim filebuf
    sdim listbuf
    koumokumax=0
    
    dirlist filebuf,"*.*",1    //ファイルのみ取得
    koumokumax += stat
    filecount = stat
    listbuf += filebuf
    
    dirlist dirbuf,"*",5        //ディレクトリのみ取得
    koumokumax += stat
    dircount += stat
    listbuf += dirbuf
    
    //"../"追加
    koumokumax++
    listbuf += "../"
    
    //項目属性設定
    dim koumoku_type,koumokumax
    
    repeat filecount
        koumoku_type(cnt) = koumoku_file
    loop
    
    repeat dircount + 1        //一応"../"もディレクトリとして扱う
        koumoku_type(cnt+filecount) = koumoku_dir
    loop
    
    //ディレクトリ情報を配列に
    split listbuf,"\n",dirlists
    koumokumax= length(dirlists)
    return