#author("2018-06-13T17:58:22+09:00","","")
[[FrontPage]]


 // 2byte情報を格納する配列のモジュール書いてみました
 // 引数で指定した配列に
 // 1byte文字→1
 // 2byte文字�、�2
 // 2byte文字�□�3
 // が代入されます
 #module m_2byte_check
 #deffunc _2byte_check array tmp_d,var tmp_s
	tmp_l=strlen(tmp_s)
	dim tmp_d,tmp_l+1
	i=0
	while i < tmp_l
		n=peek(tmp_s,i)
		if ((n>=129)&(n<=159) )|( (n>=224)&(n<=252)){
			tmp_d.i=2:i++
			if tmp_l>i {	tmp_d.i=3:i++	}
		}else{	tmp_d.i=1:i++	}
	wend
	return
 #global
	s="abあc"
	dim ar,4
	_2byte_check ar,s
	repeat length(ar)
	mes ar.cnt
	loop