HSPTV!掲示板

a=5
if (a=2)|(a=5)|(a=6)|(a=8)|(a=18):end

aが２・５・６・８・１８のどれかだと終了する
このif文を

if a=(2|5|6|8|18):end
こんな感じに、短くかきたいのですが
これだと無理なんですよ

他の書きかたがあれば教えてください

無意味に配列変数を一つ使いますが。。。↓

#module

#defcfunc isEqual int target, array comp
	bEqual = 0
	foreach comp
		if ( target == comp(cnt) ) { bEqual = 1 : break }
	loop
	return bEqual

#global

// ↑を、スクリプトの前の方に置いておくか、
// 別のファイルにして include する。

	a    = 5
	comp = 2, 5, 6, 8, 18	// 比較する数値を配列に代入
	if ( isEqual(a, comp) ) {
		mes "終了"
	}
	stop

# ミスったので一度削除

解決策になるかは分からないけど、こんなのは？

#define ctype check_a(%1)\
	((%1=2)|(%1=5)|(%1=6)|(%1=8)|(%1=18))

a = 4

if check_a(a) {
	dialog "COME"
}
else {
	dialog "END"
}

end

普通のと変なの２つ挙げます
数値変数 a の内容を判定します。
普通の

e=2,5,6,8,18
repeat 5:if a=e(cnt):end
loop

変なの

e="2,5,6,8,18":if(instr(e,0,str(a))>=0):end

皆さん色んな方法をありがとうございます、どうやら短くかくのは難しいようですね
>e="2,5,6,8,18":if(instr(e,0,str(a))>=0):end
これは意外な方法でｗ

>e="2,5,6,8,18":if(instr(e,0,str(a))>=0):end
これa=1だとまずいですよねｗｗ
まあSYAMさんのことだからわかってらっしゃると思いますがｗ

こうすれば多分平気

e="2,5,6,8,18,":if(instr(e,0,str(a)+",")>=0):end

あ。気付いてなかった。訂正ありがとです。
そうか。検出対象に終端つけないといかんわな…。