変数に「-1」が入っているときは書き込みしないようにしたく悩んでいます。以下、
dim a,20 a(0)=3,5,5,1,-1,-1,0,2,-1,8 ;-a------------------------------------------------- notetxt="":notesel notetxt repeat 10 val=str(a.cnt):noteadd val,cnt,1 loop pos 50,0:mes "a\n":mes notetxt ;--b------------------------------------------------ notetxt="":notesel notetxt repeat 10 if a.cnt=-1:continue ;<------- -1以下表示なし val=str(a.cnt): noteadd val,cnt,1 loop pos 100,0:mes "b\n":mes notetxt ;----c---------------------------------------------- notetxt="":notesel notetxt repeat 10 if a.cnt ! -1 :val=str(a.cnt):noteadd val,cnt,1 loop pos 150,0:mes "c\n":mes notetxt ;---f----------------------------------------------- notetxt="":notesel notetxt repeat 10 val=str(a.cnt):noteadd val,cnt,1 loop pos 300,0 repeat 12 noteget b,cnt :if b=-1:notedel cnt loop mes "f\n":mes notetxt stop
b案もc案も -1 以降表示無く、
f案では一旦書き込み後notedelしてみたのですが2-3行続くと取り切れません。
よろしくお願いいたします。