instrとかstrmidとか難しいから、簡単にpokeとpeekでまとめてもいいかと。
sdim _str
_str ="＝u「こ」w求v「か「き」せ」け「こ」「さしがねж」「おれは「てん�匹気ぁ廚覆里澄�」"
dim _lpar
dim _lparc
dim _rpar
dim _rparc
dim _stpe
repeat strlen(_str)
_stpe =peek(_str,cnt)
if ($81 <=_stpe and _stpe <=$9f) or ($e0 <=_stpe and _stpe <=$ef){
//shift-jisでは2バイト文字の前半がこれ
//ここがないと"＝u"とかで誤爆する
if _stpe =129{
switch peek(_str,cnt+1)
case 117 //"「"を示す
_lpar(_lparc) =cnt
_lparc++
continue cnt+2
swbreak
case 118 //"」"を示す
_rpar(_rparc) =cnt
_rparc++
continue cnt+2
swbreak
swend
}
continue cnt+2
}
loop
if _lparc !_rparc :mes "括弧に過不足があるので対象外" :stop
_lpar(_lparc) =2147483647//番兵。処理を単純にするために用いる。
_rpar(_lparc) =2147483647//http://ja.wikipedia.org/wiki/%E7%95%AA%E5%85%B5
sdim _resp,,_lparc
dim _oucnt
dim _oucnt2
dim _nest
repeat _lparc
_oucnt =cnt
sdim _respt
if _lpar(_oucnt+1) >_rpar(_oucnt){//入れ子ではない
repeat _rpar(_oucnt) -_lpar(_oucnt) -2
poke _respt,cnt,peek(_str,_lpar(_oucnt)+cnt+2)
loop
_resp(_oucnt) =_respt
}else{//入れ子であるために対処する
repeat _lparc -_oucnt+1,1
if _lpar(_oucnt+cnt) >_rpar(_oucnt){
_nest =_oucnt +cnt -1
break
}
loop
repeat _nest -_oucnt+1
_oucnt2 =cnt
repeat _rpar(_oucnt+_oucnt2) -_lpar(_nest-_oucnt2) -2
poke _respt,cnt,peek(_str,_lpar(_nest-_oucnt2)+cnt+2)
loop
_resp(_oucnt+_oucnt2) =_respt
loop
continue _nest+1
}
loop
repeat _lparc
mes "「"+_resp(cnt)+"」"
loop
stop
strrepとか、文字列操作命令は難しいと思ったらこうしてもいいと思う。
文字列のうち「」に囲まれた部分を抽出したい
