test | Codetter（こーどったー）

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
//HSP
sdim folder,1024
dim num,2//繰り返し変数
dim files,20//フォルダー20個分の配列
dim ftja,20//tjaのありか20箇所分
dim tja,500//tjaファイル500個分の配列
dim data,20//tjaファイル500個分の配列
dim tjaf,500
dirlist folder,"*",5
num(0) = stat
split folder,"\n",files//20フォルダー分代入
repeat num(0)
dirlist ftja(cnt),files(cnt)+"/*.tja",1//*.tja部分を好きな拡張子に変更してください。
ind(cnt) = stat
loop
repeat num(0)
num(1) = num(1) + ind(cnt)
loop
repeat num(0);num(0)
if strlen(ftja(cnt)) > 7 {
    data(count) = ftja(cnt)
    count++
}
loop
repeat count
tjas =tjas+data(counts)
counts++
loop
dialog tjas//検索結果
;split tjas,"\n",tjaf//分割する場合はコメントアウト
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX