// 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
Skin "GS2" is designed by yiza.
Powered by PHP 7.1.33. HTML convert time: 0.006 sec.