HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
1122
jimmynoteadd 書き込み時に選択して3解決


jimmy

リンク

2021/11/22(Mon) 13:04:15|NO.94431

お世話になります。
変数に「-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行続くと取り切れません。
よろしくお願いいたします。



この記事に返信する


沢渡

リンク

2021/11/22(Mon) 13:42:54|NO.94432

noteaddを「何行目なのかを指定して上書き」という形で実行していますが、
「最終行に追加」では何か問題があるのでしょうか?

dim a,20 a(0)=3,5,5,1,-1,-1,0,2,-1,8 notetxt="":notesel notetxt repeat 10 if a.cnt=-1 : continue val=str(a.cnt):noteadd val,-1 loop pos 50,0:mes "a\n":mes notetxt



jimmy

リンク

2021/11/22(Mon) 15:58:42|NO.94433

ありがとうございます。これです。これがしたかったんです。
教えていただくと簡単な事ですが、もっとややこしいことも試して2日間悩みました。
ありがとうございました。



リンク

2021/11/24(Wed) 17:31:12|NO.94486

よかったですね



ONION software Copyright 1997-2023(c) All rights reserved.