07/02/25 19:13:40 dSivR6Uy0
>>701
bmp = "test.bmp" //bmp = "test1.bmp" //bmp = "test2.bmp"
DIM x[] = "test1.bmp","test2.bmp"
DIM y[LENGTH(x)-1]
for i=0 to LENGTH(x)-1
ifb bmp = x[i] then
select i+1
case 1
msgbox(x[i]+"発見")
case 2
msgbox(x[i]+"発見")
selend
// break
else
y[i] = "無い"
// msgbox(x[i]+"が無い")
// break
endif
next
for i=0 to LENGTH(x)-1
ifb y[i]<>"" then
select i+1
case 1
msgbox(x[i]+"は無かった")
case 2
msgbox(x[i]+"は無かった")
selend
endif
next